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


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

Голосования сайта VBNet.Ru. Результаты голосований передаются на сайт. Проследите, что есть соединение с интернетом.



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

Ссылки:

  • Улицы VB
  • Использование VB
  • Азбука VB
  • VB на русском
  • Улицы VB
  • Кирпичики VB
  • CообЧа 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 можно найти здесь.

    наверх


    Конкурс!!!

       Хочу объявить Вам, что с 1-го по 31-е января на сайте вновь проводится конкурс на лучшую статью по программированию на Visual Basic. Мы ждем ваших работ по e-mail: ivan@vbnet.ru, pavel@vbnet.ru. Призы... главным призом для победителя конкурса будет книга, за второе и третье место предусмотрены поощрительные призы! Статья, присланная на конкурс должна отвечать всего двум требованиям: объем не менее 8000 знаков и ее должны написать вы. Все работы будут опубликованы на сайте, а для выявления победителя мы проведем голосование.

    наверх


    Сколько элементов выделено

    Данный пример покажет, сколько всего элементов выделено в ListBox'е. Рсположите на форме 1 ListBox и элемент CommandButton. Установите свойство MultiSelect элемента ListBox в 1 или 2

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
    Const LB_GETSELCOUNT = &H190
    Private Sub Form_Load()
    List1.AddItem "11"
    List1.AddItem "22"
    List1.AddItem "33"
    List1.AddItem "44"
    End Sub
    Private Sub Command1_Click()
    MsgBox SendMessage(List1.hwnd, LB_GETSELCOUNT, 0&, 0&)
    End Sub

    наверх


    Сохранение данных из ListBox'а в виде простого текста

    Данный пример отвечает на вопрос "Как мне сохранить данные из ListBox'а в файл на диске". Вот этот небольшой пример и отвечает на вопрос.

    Для выполнения данного примера вам понадобится элемент ListBox и элемент TextBox.

    Private Sub Command1_Click()
    Dim i
    For i = 1 To 10
    List1.AddItem "item" & i
    Next

    Dim text
    For i = 0 To List1.ListCount - 1
    text = text & List1.List(i) & vbCrLf
    Next
    Text1.text = text

    Dim FN As Integer
    FN = FreeFile
    Dim FName As String
    FName = "C:\1.txt"
    Open FName For Output As #FN
    Print #FN, Text1.text
    Close #FN
    End Sub

    наверх


    Поменять местами два рядом стоящих элемента

    Расположите на форме 2 элемента CommandButton и элемент ListBox.

    Private Sub Command1_Click()
    With List1
    If .ListIndex < 0 Then Exit Sub
    nItem = .ListIndex
    If nItem = 0 Then Exit Sub
    .AddItem .Text, nItem - 1
    .RemoveItem nItem + 1
    .Selected(nItem - 1) = True
    End With
    End Sub

    Private Sub Command2_Click()
    With List1
    If .ListIndex < 0 Then Exit Sub
    nItem = .ListIndex
    If nItem = .ListCount - 1 Then Exit Sub
    .AddItem .Text, nItem + 2
    .RemoveItem nItem
    .Selected(nItem + 1) = True
    End With
    End Sub

    Private Sub Form_Load()
    List1.AddItem "1"
    List1.AddItem "2"
    List1.AddItem "3"
    List1.AddItem "4"
    List1.AddItem "5"
    End Sub

    наверх


    Удалить повторящиеся элементы

    Расположите на форме элемент CommandButton и элемент ListBox.

    Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal sParam As String) As Long
    Const LB_FINDSTRINGEXACT = &H1A2

    Private Sub Command1_Click()
    For x = 0 To List1.ListCount - 1
    For y = 0 To List1.ListCount - 1
    ListPos = SendMessageByString(List1.hWnd, LB_FINDSTRINGEXACT, 0, List1.List(x))
    If ListPos <> x And ListPos <> -1 Then List1.RemoveItem ListPos
    Next y
    Next x
    End Sub

    Private Sub Form_Load()
    List1.AddItem "2"
    List1.AddItem "2"
    List1.AddItem "3"
    List1.AddItem "1"
    List1.AddItem "4"
    List1.AddItem "5"
    List1.AddItem "1"
    End Sub

    наверх


    3D-текст на форме

    Установите свойство формы AutoRedraw как True

    Private Sub Form_Load()
    Dim ShadowX
    Dim ShadowY
    ScaleMode = 3
    ForeColor = "&H808080"
    ShadowY = 5
    ShadowX = 5
    For I = 0 To 5
    CurrentX = ShadowX + I
    CurrentY = ShadowY + I
    If I = 5 Then Form1.ForeColor = vbWhite
    Form1.Print "3D Text!!!"
    Next
    End Sub

    наверх


    Загрузить/Сохранить текстовой файл из TextBox'а

    Данный пример вам поможет быстро сохранить информацию в файл на диске, а также загрузить данные в TextBox

    'Загрузить текстовой файл в TextBox

    Dim FN as Integer
    FN = FREEFILE
    Dim FName as String
    FName = "C:\tmp\index.txt"
    Open FName For Input As #FN
    Text1.Text = Input(LOF(FN), #FN)
    Close #FN

    'Сохранить текстовой файл из TextBox'а

    Dim FN as Integer
    FN = FREEFILE
    Dim FName as String
    FName = "C:\tmp\index.txt"
    Open FName For Output As #FN
    Print #FN, Text1.Text
    Close #FN

    наверх


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

    BalloonMessage for MS Agent

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

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

    наверх


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

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

    Вопросы:


    Автор вопроса: Андрей

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

       Есть программа (ЕХЕ-файл) написаная мной как-то давненько. Все данные об этой прогрмамме утеряны. Есть ли возиожность каким то способом разобрать снова эту программу, для изменений. Если есть, намыльте как это делается.


    Автор вопроса: Витёк

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

       У кого есть 3D движок для VB,если можете пришлите буду очень рад, мне просто нужно понять принцип дей ствия и создания, размер до 1Мб шлите мне на мыло vera@post.vnt.ru


    Автор вопроса: Сергей

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

       Как с помощью Drag'n'Drop перетащить файл ия проводника на форму программы для просмотра?


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

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

       1. В PictureBox, методом PaintPicture закинул рисунок. Как его сохранить в файл?
    2. Как получить свойства принтера. Т.е. вызвать родное окно с его родными свойствами?


    Автор вопроса: Жорж

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

       1. Как сделать так, чтобы какое-нибудь событие сопровождалось звуком, например при щелчке по кнопки раздавался сигнал.
    2. Не могу понять, как пользоваться элементом ProgressBar, мне надо, чтобы через каждые 10 секунд прибавлялось одно деление.


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

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

       Я вывожу три массива точек (красный, зеленый, синий) по координатам X, Y.
    Точки - это Shape().
    Как написать процедуру, которая принимала бы один из треж массивов, как объекты и присваивала им координаты.
    С координатами проблем нет. Проблема - передать объект в процедуру.


    Автор вопроса: Сергей

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

       Суть вопроса такова: Как програмно изменять свойства звукового файла
    (*.WAV), такие как качество звука, частота, количество каналов (стерео - моно) и
    прочее.




    Ответы:


    Вопрос:

       Вот надо составить список имён в Textbox'е. Т.е. пользователь набирает имя, щёлкает Enter и прога загружает нужную форму.

    Ответ:

    Автор ответа: Андрей

    Вот надо составить список имён в Textbox'е. Т.е. пользователь набирает имя, щёлкает Enter и прога загружает нужную форму.

    Private Sub Form_KeyPress(KeyAscii As Integer)' Key Previev Формы поставь равным True.
       If KeyAscii = 13 Then Call Process
    End Sub

    Private Sub Process
    A=TextBox.Text
    Select Case A
       Case ' Где Form1 Твой текст.
    Form1.Show
       Case
    Form2.Show
       Case
    FormN...Show
    End Select
    End Sub

    Сам не проверял, но по моему так. Если нет, мыль, разберемся


    Вопрос:

       Как сделать так, что бы при нажатии на кнопку, моя программа сохранялась в заданый мною каталог?

    Ответ:

    Автор ответа: Мазов Сергей

    Я предлагаю сделать так:
    Предположим, path - переменная с исходным путем и program.exe - имя вашей программы.

    On Error Goto mist
    FileCopy App.Path & "\Program.exe", path & "\Program.exe"
    mist:

    Этот код встроить в процедуру нажатия кнопки.


    Вопрос:

       Все ваши советы ,к сожалению, не помогли:((((((
    Я имею в виду вопрос по гоночному симулятору на OpenGL .
    Оказывается ,что у ВБ с OpenGL не так просто как с директом - нужно какое-то
    ПО ,но я незнаю какое именно, и ,соответственно, где его взять!:((

    Ответ:

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

    могу тебе скинуть на мыло называется opengl.tlb.




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

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

    наверх


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

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