Голосование:
Голосования сайта VBNet.Ru. Результаты голосований передаются на сайт. Проследите, что есть соединение с интернетом.
Ссылки:
Несколько слов от автора:
Поздравляю вас с наступившим!
Загляните обязательно в раздел Конкурс!
Читайте!
Загляните обязательно в раздел Конкурс!
Читайте!
Содержание выпуска
- Книги
- Конкурс!!!
- Сколько элементов выделено
- Сохранение данных из ListBox'а в виде простого текста
- Поменять местами два рядом стоящих элемента
- Удалить повторящиеся элементы
- 3D-текст на форме
- Загрузить/Сохранить текстовой файл из TextBox'а
- Вопрос/Ответ
Книги
Остальные книги о 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
Автора: Шатрыкин Иван и Павел Сурменок.
наверх
Вопрос/Ответ
Автор вопроса: Андрей
Ответ ожидается по этому адресу
Есть программа (ЕХЕ-файл) написаная мной как-то давненько. Все данные об этой прогрмамме утеряны. Есть ли возиожность каким то способом разобрать снова эту программу, для изменений. Если есть, намыльте как это делается.
Автор вопроса: Витёк
Ответ ожидается по этому адресу
У кого есть 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 владельцу сайта.
наверх
|
Переход на VB .NET. Стратегии, концепции, код (цена ~ 158 руб.) Эта книга была задумана как одна из первых книг о .NET, которая ознакомит читателя с основными идеями новой архитектуры и подготовит его к знакомству с более детальной литературой, например документацией Microsoft и ее толкованиями, которая неизбежно появится на рынке. Она поможет вам взглянуть на эту технологию с позиций ваших собственных рабочих планов и быстро освоить те концепции, которые покажутся необычными для большинства прогр... |
||
|
Автор(ы): Дан Эпплман, Издательство: Питер, 2002 г.
|
|||
|
Программирование на VB.NET. Учебный курс (цена ~ 119 руб.)
Эта книга является вводным курсом по
изучению языка программирования Visual Basic .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.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 владельцу сайта.