Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 154.


VBNet VBMania
Голосование:



Рассылки Subscribe.Ru
VB.NET-World
Новости сайта IgorykSoft и советы по программированию
DanSoft о Visual Basic
Visual Basic.NET Уроки.

Ссылки:

  • Улицы VB
  • Использование VB
  • Азбука VB
  • Улицы VB
  • Кирпичики VB
  • CообЧа VB
  • VB по русски
  • Snoozex Design
  • IgorykSoft
  • DanSoft
  • Господа!!! читайте MSDN!!!

    Несколько слов от автора:

       Очередной выпуск рассылки. Ничего нового не происходит... Коды подходят к концу, так что присылайте ещё, буду рад!
    Читайте!


    Содержание выпуска




    Книги

    Переход на VB .NET. Стратегии, концепции, код (цена ~ 158 руб.)

    Эта книга была задумана как одна из первых книг о.NET, которая ознакомит читателя с основными идеями новой архитектуры и подготовит его к знакомству с более детальной литературой, например документацией Microsoft и ее толкованиями, которая неизбежно появится на рынке. Она поможет вам взглянуть на эту технологию с позиций ваших собственных рабочих планов и быстро освоить те концепции, которые покажутся необычными для большинства прогр...

    Автор(ы): Дан Эпплман, Издательство: Питер, 2002 г.


    Программирование на VB.NET. Учебный курс (цена ~ 119 руб.)

    Эта книга является вводным курсом по изучению языка программирования Visual Basic .NET. Даны основные принципы объектно-ориентированного программирования в контексте языка VB .NET, поскольку без хорошей подготовки в этой области невозможно в полной мере пользоваться всеми преимуществами VB .NET.
    Изложены азы всех аспектов языка, которыми должен владеть любой профессиональный разработчик VB .NET

    Автор(ы): Г. Корнелл, Дж. Моррисон, Издательство: Питер, 2002 г.


    VB.NET для разработчиков (цена ~ 125 руб.)

    Основная задача книги - быстро ознакомить разработчиков Visual Basic с изменениями в .NET Framework. Программисты, использующие Java, C++, Delphi или другие инструменты разработки приложений и интересующиеся Visual Basic или технологией .NET Framework, также найдут эту книгу полезной. Хотя книга посвящена Visual Basic.NET, ее основная цель - продемонстрировать взаимодействие Visual Basic и ...

    Автор(ы): Кит Франклин, Издательство: Вильямс, 2002 г.




    Остальные книги о VB можно найти
    здесь.

    наверх


    Citycat by Email

       Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое.
       Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru.

    наверх


    Новости сайта VBNet

    Дата: 20.04.2003 12:04 | Раздел: Примеры кода | Автор: Сергей Никифоров

    Шарик БУМ 2003 - Игра: растреливаем шарики.

    Дата: 19.04.2003 12:04 | Раздел: Примеры кода | Автор: Ловиков Миха

    Autorun On/Off - Пример работы с реестром (раздел policies\explorer) на сей раз включение\отключение автозагрузки CD-Rom'а.

    Дата: 16.04.2003 05:55 | Раздел: Примеры кода | Автор: EROS

    MOUSE OUT - Иммитация события MouseOut для контрола. Пример реализован при помощи функций API.

    Дата: 15.04.2003 05:53 | Раздел: Примеры кода | Автор: Дорохов Кирилл

    Port Listener - Port Listener - это великолепная программа для работы с сетью. Это программа может прослушивать порты,как сервер или присоеденяться к открытым портам,как клиент.

    Дата: 14.04.2003 05:48 | Раздел: Примеры кода | Автор: Millenium

    Anonym E-Mail Sender - Отправка анонимных электронных писем...

    Дата: 13.04.2003 05:45 | Раздел: Примеры кода | Автор: Millenium

    Игра в Кости - Простая игра в кости... .. Вы загадываете цифру и бросаете кости.



    Последние 20 тем форума на VBNet.Ru:

    13:54 / 20 апр.  PDF >>> DOC, HTM... | Хитов: 0 |  Ответов: 0
    11:23 / 20 апр.  база данных | Хитов: 5 |  Ответов: 0
    08:23 / 20 апр.  VBNET CD | Хитов: 10 |  Ответов: 1
    01:58 / 20 апр.  Дизассемблер | Хитов: 28 |  Ответов: 10
    01:01 / 20 апр.  filezzz=>array;array=>print; | Хитов: 5 |  Ответов: 1
    00:02 / 20 апр.  Как найти значение в Excel | Хитов: 5 |  Ответов: 0
    23:41 / 19 апр.  Как на VB5/6 определить (через API) версию dll-ки? | Хитов: 3 |  Ответов: 0
    21:33 / 19 апр.  голосовое чтение записей | Хитов: 32 |  Ответов: 5
    21:12 / 19 апр.  Uninstall | Хитов: 17 |  Ответов: 1
    15:48 / 19 апр.  Визуальное сопровождение печати документа | Хитов: 27 |  Ответов: 4
    15:45 / 19 апр.  Печать | Хитов: 23 |  Ответов: 2
    11:37 / 19 апр.  Formula One 6.0 | Хитов: 16 |  Ответов: 0
    11:12 / 19 апр.  Подскажите где взять код проги считающей траф и... | Хитов: 31 |  Ответов: 4
    00:18 / 19 апр.  Excel | Хитов: 22 |  Ответов: 0
    22:19 / 18 апр.  Частота обновления | Хитов: 22 |  Ответов: 0
    22:02 / 18 апр.  Key Watch | Хитов: 25 |  Ответов: 3
    20:16 / 18 апр.  DataGrid help!! | Хитов: 16 |  Ответов: 0
    20:05 / 18 апр.  версии dll | Хитов: 24 |  Ответов: 2
    18:56 / 18 апр.  Beta ttesting! | Хитов: 84 |  Ответов: 7
    17:33 / 18 апр.  Русский ---> Russkii convertor and Password ... | Хитов: 44 |  Ответов: 5


    Последние поступления в Библиотеку кодов:



    Новости от VBNet-чиков!:



    наверх


    Новости сайта VBMania



    наверх


    Новости сайта Азбука VB



    наверх


    Новости сайта MSDN



    наверх


    Новости сайта GotdotNet

    • 16.04.2003 - Cтартовал новый проект - "Соmmunity Book"!
      Книга "Этюды на C#" создается силами нашего сообщества! Каждый может принять участие в написании глав, составлении примеров, обсуждении.
    • 14.04.2003 - Представление Windows Server 2003!
      C 20 по 22 мая в городах: Москва, Нижний Новгород, Екатеринбург, Ростов-на-Дону, Новосибирск, Алматы, Санкт-Петербург, Киев. Все посетители бесплатно получат ознакомительную версию Windows Server 2003!
    • 14.04.2003 - Семинар "Проектирование и внедрение решений на основе Microsoft .NET Framework для ОС Windows Server 2003"
      Компания Microsoft приглашает вас 25 апреля 2003 года посетить бесплатный семинар для системных архитекторов, создающих решения для автоматизации бизнес-процессов с использованием технологий Microsoft, который пройдет в Москве в конференц-зале гостиницы «Рэдиссон Славянская» по адресу Бережковская набережная, дом 2.


    Новые статьи:



    наверх


    Новости сайта dotSite

    Новые статьи:



    Новые примеры:



    наверх


    Один момент из жизни форума: Баг с Flat/3D buttons

    Вопрос:
    Автор вопроса: hudson

       В VB6 встретил такой баг:
       У стандартной кнопки по дефолту аттрибут "Appearance" установлен в 3D. Если изменить его на Flat, то кнопка остается такой же как и с аттрибутом 3D. У остальных компонентов изменение аттрибутов работает нормально... В чем тут может быть проблема???


    Ответы:

    Автор: Gravity
       Вряд ли это глюк .... ну такое Билл ГЕЙтс :) ну точно бы исправил ... мне кажется это для таких как ты чтобы побольше спрашивали :)))

    Автор: hudson
       2 Gravity : Ну и как же тогда получить "Flat" баттон в Васике???

    Автор: User Unknown
       Можно свой написать. Из пары лейблов:)))

    Автор: hudson
       2 User Unknown:
       Можно, но в данном случае нужна стандартная.....
       2 ALL:
       Это что вообще никак не лечится??? :(

    Автор: CyRax
       Ну подумай логически. Где ты видел в винде плоские кнопки ?
       Используй лучше тулбар.

    Автор: Access
       Ну в общем-то можно...

    Private Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)
    Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
    Private Const BS_NULL& = 1
    Private Const BS_BOTTOM& = &H800&
    Private Const BS_BITMAP& = &H80&
    Private Const BS_AUTORADIOBUTTON& = &H9&
    Private Const BS_AUTOCHECKBOX& = &H3&
    Private Const BS_AUTO3STATE& = &H6&
    Private Const BS_3STATE& = &H5&
    Private Const BS_CENTER& = &H300&
    Private Const BS_CHECKBOX& = &H2&
    Private Const BS_DEFPUSHBUTTON& = &H1&
    Private Const BS_DIBPATTERN& = 5
    Private Const BS_DIBPATTERN8X8& = 8
    Private Const BS_DIBPATTERNPT& = 6
    Private Const BS_FLAT& = &H8000&
    Private Const BS_ICON& = &H40&
    Private Const BS_HOLLOW& = BS_NULL
    Private Const BS_HATCHED& = 2
    Private Const BS_GROUPBOX& = &H7&
    Private Const BS_INDEXED& = 4
    Private Const BS_LEFT& = &H100&
    Private Const BS_LEFTTEXT& = &H20&
    Private Const BS_MULTILINE& = &H2000&
    Private Const BS_NOTIFY& = &H4000&
    Private Const BS_OWNERDRAW& = &HB&
    Private Const BS_PATTERN& = 3
    Private Const BS_PATTERN8X8& = 7
    Private Const BS_PUSHBUTTON& = &H0&
    Private Const BS_PUSHLIKE& = &H1000&
    Private Const BS_RADIOBUTTON& = &H4&
    Private Const BS_RIGHT& = &H200&
    Private Const BS_RIGHTBUTTON& = &H20&
    Private Const BS_SOLID& = 0
    Private Const BS_TEXT& = 0&
    Private Const BS_TOP& = &H400&
    Private Const BS_USERBUTTON& = &H8&
    Private Const BS_VCENTER& = &HC00&
    Private Const GWL_EXSTYLE& = (-20)
    Private Const GWL_HINSTANCE& = (-6)
    Private Const GWL_HWNDPARENT& = (-8)
    Private Const GWL_ID& = (-12)
    Private Const GWL_STYLE& = (-16)
    Private Const GWL_USERDATA& = (-21)
    Private Const GWL_WNDPROC& = (-4)
    Private Sub Form_Load()
    Dim tmpValue&, mskNoStyle&
    tmpValue& = BS_PUSHBUTTON & BS_FLAT
    'Remove all the style bits from the button
    mskNoStyle& = GetWindowLong&(Command1.hwnd, GWL_STYLE) And Not (BS_AUTOCHECKBOX Or _
    BS_RADIOBUTTON Or BS_3STATE _
    Or BS_GROUPBOX Or BS_ICON Or BS_PUSHBUTTON)
    dl& = SetWindowLong&(Command1.hwnd, GWL_STYLE, mskNoStyle& Or tmpValue&)
    Command1.Refresh
    End Sub

    Автор: Миха
       Метод flat не виден визуально (но для кодинга он где-то учитывается ,это я помню).

    Автор: JONick
       Можешь взять с vbstreets или я могу выслать спец. флат и не только кнопки...



    наверх


    Доска объявлений

       Ищу телеработу.

    • Переводы: английский, украинский, русский.
    • Cipper программист.
    • Assembler программист.
    • PIC разработчик
    • композитор
    • Прогрессивные стили
    • 3D анимация
    • GIF анимация
    Антон Лозовский.

    наверх


    Мои программы

    BalloonMessage for MS Agent

       BalloonMessage for Microsoft Agent реализует диалог программы с пользователем, используя при этом технологию Microsoft Agent. OCX реализует три типа диалоговых окон: InputBox, MsgBox и MsgLabels.

    Авторы: Шатрыкин Иван и Павел Сурменок.

    наверх

    Вопрос/Ответ

    Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.

    Вопросы:


    Автор вопроса: 001

    Ответ ожидается по этому адресу

       Помогите мне, пожалуйста решить следующую проблему. Я создаю один DHTML проект, в котором мне требуется отослать почту со вложением файла. Как это сделать на HTML при помощи mailto:адрес@мыло.ру?subject="тема" а как нужно продолжить строку, чтобы вложть файл?


    Автор вопроса: weeeer

    Ответ ожидается по этому адресу

       Как сделать так чтобы меню в программе было как в Word-е то есть справа была полоса серого цвета либо другого цвета


    Автор вопроса: IzoMicke

    Ответ ожидается по этому адресу

       Пусть есть массив переменной длины

    Dim vArr()

    В циклическом процессе определяется число неких элементов (n) и делается

    Redim vArr(n-1)

    Вопрос: можно ли как-то программно возвратить vArr в исходное состояние, т.е. в то, в котором он был до первого ReDim'а?


    Автор вопроса: sla_237

    Ответ ожидается по этому адресу

       Подскажте пожалуйста как отловить нажатие на кнопку "свернуть" и "закрыть" , и не дать программе свернутся или закрытся , а выполнить какое то свое дествие. Если можно с примером , уже 3ю неделю мучаюсь , ниче не получается :(


    Автор вопроса: Илья

    Ответ ожидается по этому адресу

       Как издать на PC-Speaker писк при помощи VB 6.0 для Windows 98/XP?




    Ответы:


    Вопрос:

       Как сделать прозрачный контрол,чтобы отвечал на MouseMove, MouseEnter, MouseOut?

    Ответ:

    Автор ответа: LIS

    Создай картинку без рисунка-вот и контрол.


    Вопрос:

       Не подскажите,как из VB6 запустить программу(игру). Например у меня есть форма с кнопкой OK, я нажимаю и должна запуститься игрушка. Как прописать директорию, точнее как установить связь.

    Ответ:

    Автор ответа: admin

    Проще всего через команду shell.



    Ответ:

    Автор ответа: ]CBK[CRaSH

    прога запускается при помоши

    shell "Путь\Файл.exe","способ открытия"

    если тебе надо изменять директорию то ножно сделать так на форму кидаеш textbox, в нем прописываеш путь

    shell text1.text


    Вопрос:

       Скажите, как можно из моей проги отослать письмо на мыло так, чтобы в обход всяких Outlook Express. Данные для письма брать из файла. И ещё эта прога не должна надоедать всякими глупыми запросами. Подскажите что делать. Можно кусочек кода (VB6).

    Ответ:

    Автор ответа: admin

    Посмотри на сайте www.hiprog.ru там вместе с кодом есть програмка smtpserver она и занимаеться рассылкой писем без всяких почтовиков (через себя) описание работы там же.



    Ответ:

    Автор ответа: weff-повар

    Воспользуйся программой THE BAT.


    Вопрос:

       Скажите, как сделать, чтобы моя прога определила мой IP когда я в сети. Это значение нужно присвоить какой либо переменной. Если нетрудно, приведите пример кода.

    Ответ:

    Автор ответа: ]CBK[CRaSH

    IP определить довольно легко: на форму кидаеш winSock

    My_IP=Winsock1.LocalIP


    Вопрос:

       1.Кто знает как на Visual Basic Script в документе HTML запрограммить чтение данных из файла, лежащего рядом (любые варианты).

    2.Подскажите как передать хотябы переменную. Неплохо если поделитесь простыми примерами с Winsock'om на примере клиент-сервер... или дайте ссылки на общения, статьи, примеры...

    Ответ:

    Автор ответа: ViTal

    Отвечу на первый вопрос.
      
    dim objFS, objFile, objTS, sText, sFilePath
    Set objFS=Server.CreateObject("Scripting.FileSystemObject")
    sFilePath=Server.MapPath("somefile.txt")
    Set objFile=objFS.GetFile(sFilePath)
    Set objTS=objFile.OpenAsTextStream(1)
    sText=objTS.ReadLine() //читаем строку из файла
    //sText=objTS.ReadAll //читаем весь файл
    objTS.Close
    Set objTS=Nothing
    Set objFile=Nothing
    Set objFS=Nothing



    Ответ:

    Автор ответа: Кирко Владимир

    1. Ну вот это, например,

    Dim arrFileLines()
    i = 0
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile("C:\Ваш_Файл.txt", 1)
    Do Until objFile.AtEndOfStream
          Redim Preserve arrFileLines(i)
          arrFileLines(i) = objFile.ReadLine
          i = i + 1
    Loop
    objFile.Close
    For l = Ubound(arrFileLines) to LBound(arrFileLines) Step -1
         Wscript.Echo arrFileLines(l)
    Next

    будет читать текстовый файл и, потом, выдавать его по строчкам в обратном порядке.
    НО
    - файл должен существовать (иначе будет выдана ошибка)
    - антивирусы (Нортон-антивирус, в частности) очень резво реагируют на попытки использования FileSystemObject.




    Можете заполнить эту форму, либо отослать вопрос СЮДА

    Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.
    Текст сообщения:
    Ваше имя
    E-mail для ответа

    наверх


    Выпуск подготовили:

    Сурменок Павел