Простые FAQ (ЧАВО).

Для тех кто не знает что такое FAQ - поясняю, - это Часто Задаваемые Вопросы или ЧАВО (FAQ англ. Frequently Asked Questions).

Вопросы:

1. Как сохранить текст в файл?
2. Как прочитать текст из файла?
3. Как добавить, удалить элемент в списке (listbox)?
4. Как использовать элементы DirListBox, FileListBox, DriveListBox ?
5. Каким образом можно узнать какой элемент выбран в списке?
6. Как программно загрузить картинку в PictureBox или Image?
7. Можно ли в VB проиграть wav файл?
8. Как распечатать текст на принтере?
9. Как можно узнать текущее разрешение экрана?
10. Можно ли узнать где находится exe файл запущенной программы?
11. Как загрузить дополнительный элемент управления (.ocx)?

Ответы:

Для сохранения текста в файл используйте такой код:

Open ПУТЬ_К_ФАЙЛУ for Output as #X
Print #X, ТЕКСТ_КОТОРЫЙ_НУЖНО_СОХРАНИТЬ
Close #X

Здесь всесто X нужно поставить номер (от 1 до 255). Также можно использовать функцию FreeFile.

Пример:

Open "C:\Temp\VB.txt" for Output as #1
Print #1, "Visual Basic - самый лучший язык программирования!"
Close #1

2. Как прочитать текст из файла?

Для чтения текста из файла используйте такой код:

Open ПУТЬ_К_ФАЙЛУ for Input as #X
Input #X, StrPerem
Close #X

Представленная процедура прочитает первую строчку из файла и запишет в переменную StrPerem. Для чтения всего текста, как правило, используется такой код:

Open ПУТЬ_К_ФАЙЛУ for Input as #X
While not(EOF (X))
Input #X, StrTemp
StrPerem = StrPerem & StrTemp
Loop
Close #X

Здесь всесто X нужно поставить номер (от 1 до 255). Также можно использовать функцию FreeFile.

3. Как добавить, удалить элемент в списке (listbox)?

Для добавления элемента в список используется метод AddItem.

Пример:

List1.AddItem "Меня добавили в список"

Для удаления используется метод RemoveItem с номером элемента, который нужно удалить.

Пример (удалит первый элемент в списке):

List1.RemoveItem 0

4. Как использовать элементы DirListBox, FileListBox, DriveListBox ?

Перечисленные элементы используются для навигации по диску. Например, для создания формы, в которой будет выбираться файл следует:

Создать все 3 элемента. Затем обработать событие Change у DirListBox, вписав в него такой вот код:

File1.Path = Dir1.Path

Теперь обработайте событие Change у DriveListBox:

Dir1.Path = Drive1.Drive

Вот и всё! Теперь запустите проект и походите по каталогам и дискам. Кстати имя текущего выбранного файла в FileListBox содержится в св-ве filename.

5. Каким образом можно узнать какой элемент выбран в списке?

Используйте свойство ListIndex.

Пример:

Form1.Caption = List1.ListIndex

6. Как программно загрузить картинку в PictureBox или Image?

Делается это так: Obj.Picture = LoadPicture (ПУТЬ_К_ФАЙЛУ)

Где Obj - имя PictureBox, Image или формы.

Пример:

Picture1.Picture = LoadPicture ("C:\Images\vblogo.jpg")

7. Можно ли в VB проиграть wav файл?

Можно! В VB всё можно! :) С помощью API ф-ции sndPlaySound из библиотеки winmm.dll (windows multimedia). Вот её объявление:

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Пример:

sndPlaySound "C:\youpath\vavchik.wav", 1

8. Как распечатать текст на принтере?

В Visual Basic есть такой объект Printer. С его помощью с принтером можно делать почти всё, что угодно. Например, вам нужно распечатать текст, находящийся в текстовом поле Text1. Для этого:

Printer.Print Text1.Text
Printer.EndDoc

9. Как можно узнать текущее разрешение экрана?

Используя свойства Height и Width объекта Screen.

Пример:

Form1.Caption = Screen.Height
' отобразится в твипах

Form1.Caption = Screen.Height / Screen.TwipsPerPixelY
' отобразится в пикселах

10. Можно ли узнать где находится exe файл запущенной программы?

Можно, использовав объект App. Кстати в нём хранятся и другая полезная инфа.

Пример:

Form1.Caption = App.Path
' на капшне отобразится путь, где находится запущенный exe

11. Как загрузить дополнительный элемент управления (.ocx)?

Нажмите правой кнопкой на панели с элементами управления (она находится слева) и выберите из контекстного меню команду Components... Далее отметьте галочками подключаемые элементы и нажмите OK.