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


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

    Дата: 09.03.2003 12:10 | Раздел: Примеры кода | Автор: CyRax

    System Colors - Как узнать системные цвета Windows.

    Дата: 08.03.2003 12:10 | Раздел: Примеры кода | Автор: CyRax

    Image Cloner - Копирование изображений (возможности StretchBlt).

    Дата: 08.03.2003 10:32 | Раздел: Примеры кода | Автор: Щелканов Александр

    RAVEN's CHAT - Простенький чат на VB с использованием Winsock.

    Дата: 07.03.2003 15:28 | Раздел: Примеры кода | Автор: Страшный Сон

    KeyWatch3 - Программа определяет положение мышиного курсора, отслеживает нажатия клавиш клавиатуры и мыши, и, к тому же, является отличным примером с SAFEARRAY 24-bit, AlphaBlend

    Дата: 07.03.2003 12:10 | Раздел: Примеры кода | Автор: CyRax

    Custom ToolTip - Программное создание всплывающей подсказки.

    Дата: 07.03.2003 10:31 | Раздел: ActiveX контролы | Автор: Paul

    ScrollText - Контрол ScrollText - это просто текст с автоматической прокруткой. Разрабатывался без всяких целей, просто для изучения графики в VB6. Есть исходный код. Краткое описание - Readme.txt

    Дата: 06.03.2003 12:10 | Раздел: Примеры кода | Автор: CyRax

    AutoRun Viewer - Просмотр ключей автозагрузки реестра.

    Дата: 06.03.2003 09:58 | Раздел: Примеры кода | Автор: Виталиум!

    Многоканальный Winsock 2 - В этой версии теперь исправлены некоторые ошибки, присущие предыдущей версии, а также добавлены некоторые новые функции.

    Дата: 05.03.2003 12:10 | Раздел: Примеры кода | Автор: CyRax

    PicInDoc - Обновление просмоторщика рисунков в DOC-файлах.

    Дата: 04.03.2003 12:10 | Раздел: Примеры кода | Автор: CyRax

    Age - Dычисление возраста (Лет,Месяцев,Дней).



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

    22:08 / 9 мар.  vb.net | Хитов: 16 |  Ответов: 1
    22:07 / 9 мар.  Что заменяет FileListBox и DirListBox? | Хитов: 17 |  Ответов: 3
    19:12 / 9 мар.  Работа с form ? | Хитов: 26 |  Ответов: 2
    15:06 / 9 мар.  Проверьте | Хитов: 16 |  Ответов: 0
    14:49 / 9 мар.  А DirectX? | Хитов: 14 |  Ответов: 1
    12:15 / 9 мар.  Посоветуйте книгу по VB | Хитов: 25 |  Ответов: 3
    11:56 / 9 мар.  Новое сообщение без темы | Хитов: 8 |  Ответов: 1
    11:46 / 9 мар.  Командная строка | Хитов: 16 |  Ответов: 3
    09:26 / 9 мар.  Как изменить цвет статус-бара ? | Хитов: 14 |  Ответов: 2
    08:45 / 9 мар.  Чат | Хитов: 14 |  Ответов: 0
    06:14 / 9 мар.  Экранная заставка | Хитов: 26 |  Ответов: 4
    21:53 / 8 мар.  инсталяшка | Хитов: 30 |  Ответов: 4
    16:56 / 8 мар.  TreeView | Хитов: 29 |  Ответов: 5
    11:10 / 8 мар.  Как сделать так, чтобы окно нельзя было изменит... | Хитов: 39 |  Ответов: 6
    11:05 / 8 мар.  Как перехватить закрытие программы ? | Хитов: 21 |  Ответов: 2
    09:15 / 8 мар.  t | Хитов: 12 |  Ответов: 0
    04:38 / 8 мар.  ActiveX ishe odyn | Хитов: 4 |  Ответов: 0
    21:25 / 7 мар.  ActiveX...GRRRR | Хитов: 13 |  Ответов: 6
    16:35 / 7 мар.  Только для девчонок, мальчишки могут смотреть т... | Хитов: 65 |  Ответов: 7
    15:03 / 7 мар.  Q: большие и маленькие в MS Access | Хитов: 22 |  Ответов: 1


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



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



    наверх


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

    • 10.03 - Вышел долгожданный третий номер Мании!


    наверх


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

    • 03.03

      VB - Исходные коды - Элементы управления - ToolTipText горизонтальной линейки прокрутки
      Показан пример создания оригинального ToolTipText горизонтальной линейки прокрутки.

      VB - Исходные коды - Вычисления - Пример определения возраста
      В примере используются функции DateDiff, DateSerial....

      VB - Исходные коды - Графика - Пример перерисовки
      В примере используются API-функции GetDC и StretchBlt

      VB - Исходные коды - Графика - Извлечение рисунков из документа Word
      Показан пример извлечения картинок из документа Word. Пример имеет небольшой Help.

      VB - Исходные коды - Графика - Системная палитра Windows 9x

      VB - Исходные коды - Работа с Windows - Работа с Регистрами Windows

      VB - Статьи - Работа с Windows - О работе с LPT-портами и другой аппаратурой в Visual Basic
      Статья расчитана на читателей, знакомых с устройством и работой LPT-порта.

      VB - Исходные коды - Работа с Windows - Работа LPT-порта с другой аппаратурой в Visual Basic
      В примере показывается принцип работы с классом TVicHW32, онисанный в статье "О работе с LPT-портами и другой аппаратурой в Visual Basic"

      VB - Исходные коды - Работа с Windows - Работа с *. ini файлами
      Программа IniFile - это наиболее полное собрание функций Win32API для работы с приватными файлами .ini и файлом Win.ini Все используемые функции разделены на разделы и для них написаны функции-оболочки. Все функции с комментариями.


    наверх


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



    наверх


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



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



    наверх


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

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



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



    наверх


    Где взять декампилятор для VB

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

       Где взять декампилятор для VB? Очень нужен !!!


    Ответы:

    Автор: Ян
       Я видел декомпилятор для прог, написанных на VB3, а декомпилятор программ на VB4 и выше, вроде не существует:(

    Автор: paul_sn
       СЯ слышал есть что декомпилятор для VB5. Но говорят что почти все существующие декомпиляторы коряво работают. Изначальный код получить практически невозможно

    Автор: AGReSSoRs
       decompiljator estj tolko dla vb3!!! sam ego juzal no frm on ne decompiliruet nomano tolko bas i drugie mono prosmotretj!!

    Автор: Stick
       Нормального Декомпилятора для VB НЕТ и не будет. Хотя если Microsoft включили его в VB.NET То еще Можно понадеется на VB 8.0. Хотя я думаю, что врят(д)ли. А еще где-то есть статья про то что, якобы, декомпилятор из VB.NET можно переделать для VB разных версий... Хотя, опять же, врят(д)ли.
       P/S Только не надо спрашивать "Где Ты ЕЕ(статью) Видел???" - я не помню.

    Автор: JEDI
       ЕСТЬ Универсальный декомпилятор но он декомпилит в код АСМА, а это врдяли те поможет

    Автор: Иван
       Как это переделать декомпилятор VB .NET для других версий???? VB .NET же генерирует не р-код и не машинный код, а JIT код! Это промежеточный код, который компилируется при запуске проги, как в JAVA!!! Это же совсем другой код! Переделать никак нельзя.

    Автор: SeMa
       A decompilyator kagis tolko do VB3 tak kak v vb3 kod i ne compilirovalsa on prosto bil zashit v EXE i eto exe evo translirovalo a decompilyator tolko vityagivaet cod s exehi (vrode) vot takto ...

    Автор: msv
       У меня где-то был декомпилятор для VB6 (в исходниках). Но вот одна проблема - основной язык его - французский (но есть и инглиш)

    Автор: Диман
       Идеальный декомпилятор - Notepad!

    Автор: Страшный Сон
       Notepad - это всё тот же асм.



    наверх


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

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

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

    наверх


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

    BalloonMessage for MS Agent

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

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

    наверх

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

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

    Вопросы:


    Автор вопроса: MC Green

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

       Какие есть API-функции для работы с *.ini файлами (если можно, пример кода)


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

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

       Как в VB написать драйвер, работающий с LPT портом ?
    И если возможно вставить ассемблерные коды.


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

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

       Как размещать GIF-анимировыанные картинки на форме? Я пробовал Image, PictureBox, но ничего не помогает. Может кто-нибудь знает?


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

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

       Есть у кого-нибудь исходники обычного Scroller'а??? Если не в лом, мыльте: leonxl@vpcit.ru


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

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

       В процессе работы программы создается текстовый файл событий. Можно ли как-нибудь его зашифровать?


    Автор вопроса: Лёха

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

       Может кто знает как изменить значок папки? Простое создание\копирование файла Desktop.ini не помогает.


    Автор вопроса: P@Ssword

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

       Пипл, что за оператор такой - LSet?


    Автор вопроса: P@Ssword

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

       Как после испольяования CryptHashData получить этот самый хэш, а не его handler?


    Автор вопроса: Леонид И Карлов

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

       Приобретал несколько CD с бэйсиком 6, ни один из них не хочет работать на моём компьютере. Инсталяция нормально, а потом сообщение "программа выполнила недопустимую операцию и будет закрыта" это сообщение либо после попытки сохранить пустую форму, либо при помещении на форму кнопки и попытке сохранить (пустую форму и проект некоторые крмпакты сохраняют).
    Не встречалась такая ситуация?
    Как с ней бороться?
    Кстати 5 Бэйсик пашет во всю...




    Ответы:


    Вопрос:

       Вот такой вопрос: в текстбоксе есть определенный текст. Так вот что требуется: если первые 6 символов соответсвуют образцу (например If six number = "sobaka" Then) то будет происходить какое-то действие. Как это осуществить?

    Ответ:

    Автор ответа: Mind Engine

    A language reference полистать влом?

    ok = "sobakadrugcheloveka"

    If ok Like "sobaka*" Then MsgBox "Попадос!"



    Ответ:

    Автор ответа: Роман

    If Right$("переменная",6)="sobaka" then ...



    Ответ:

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

    Размещаеш на форме TextBox и Кнопку. Для кнопки на событие он_клик пишиш следующие:
       
    Dim ss, sss As String
    ss = Text1.Text
    sss = Mid(ss, 1, 6)
    if sss = "sobaka" then
    MsgBox sss
    else
    msgbox "Не собака !!!"
    end if



    Ответ:

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

    Легко и просто:

    if Left$ (txtTextBox1.text, 6) = "Образец" then ...



    Ответ:

    Автор ответа: Дмитриев Николай

    Все делается ну очень просто!
        Имеется TextBox и некий фрагмент текста там, чтобы получить первые шесть символов из строки пользуемся функцией MID$(строка, начальный символ, конечный символ), на примере это выглядит так:


    Private Sub Command1_Click()

    ' получаем первые шесть символов и сравниваем их с образцом в нижнем
    регистре

    If LCase(Mid$(Me.Text1.Text, 1, 6)) = "sobaka" Then

    ' тут прописываем ссылку на действия или сами действия в случае истины

    MsgBox "Hello!" ' тут выскакивает мессаж ПРИВЕТ (по англицки)

    Else

    ' : прописываем действия при отрицательном результате, или убераем
    оператор Else

    End If

    End Sub



    Ответ:

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

    if MID(str,1,6)="123456" then msgbox "Est"

    Mid(строка,начальный символ,скока символов)=Строка



    Ответ:

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

    Private Sub Text1_Change()
             Static slovo As String
             Static alltxt As String
             slovo = "собака"
             alltxt = Text1.Text
             If Left(alltxt, Len(slovo)) = slovo Then MsgBox "Вы написали" & slovo
    End Sub



    Ответ:

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

    if mid(textbox1.text, 1, 6) = "sobaka" then ....


    Вопрос:

       Как на VB6 из буфера обмена извлечь только URL и вставить его в ListBox без кнопок.

    Ответ:

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

    Ты можешь извлечь все данные, а потом найти в старке нужный URL


    Вопрос:

       Кто может мен расказать как объщаться с ИК портом (USB) с помощью VB!

    Ответ:

    Автор ответа: Александр

    Ищу ответ на Ваш вопрос и не только я.
    если вы где то встретите решение дайте знать.
    Но знаю, что IRDA соединение может решаться чачстично через Comport, но под NT кажется не работает
    Слышал, что все работает через Socket, Но как понятия не имею.


    Вопрос:

       Люди, кто-нибудь знает как сделать инсталляшку IE5.5 раямером 4-7м. все 70м таскать неохота изза простого юзания пары файликов типа mshtml.dll да shdocvw.dll. просто заменить их не канает - форты умирают :-)

    Ответ:

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

    Foton Basic Compiler - компилятор базика.
    Компилирует макросы написаные на SAX BASIC в exe файлы.
    Размер файла от 3Kb


    Вопрос:

       Какие есть API-функции для работы с *.ini файлами (если можно, пример кода).

    Ответ:

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

    Вот тебе текст модуля:

    Declare Function GetPrivateProfileString Lib _
    "kernel32" Alias "GetPrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName _
    As Any, ByVal lpDefault As String, ByVal lpReturnedString _
    As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

      Declare Function WritePrivateProfileString Lib _
    "kernel32" Alias "WritePrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName _
    As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

    Public Function LoadINI(sInifile As String, sSection As String, _
    sKey As String, sDefault As String) As String
    Dim sTemp As String * 256
    Dim nLength As Integer
    sTemp = Space$(256)
    nLength = GetPrivateProfileString(sSection, _
    sKey, sDefault, sTemp, 255, sInifile)
    LoadINI = Left$(sTemp, nLength)
    End Function

      Public Sub SaveINI(sInifile As String, sSection As String, _
      sKey As String, sValue As String)
    Dim n As Integer
    Dim sTemp As String
    sTemp = sValue
    For n = 1 To Len(sValue)
    If Mid$(sValue, n, 1) = vbCr Or Mid$(sValue, n, 1) = vbLf _
    Then Mid$(sValue, n) = " "
    Next n
    n = WritePrivateProfileString(sSection, sKey, sTemp, sInifile)

      End Sub

      Функция SaveINI отвечает за запись в ИНИ файл параметры соответственно. Путь и имя файла, Секция, Ключ, Значение.
      Функция LoadINI отвечает за чтение из ИНИ файла параметры соответственно. Путь и имя файла, Секция, Ключ, Значение.




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

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

    наверх


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

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