VB-Coder's Site

Предисловие

Этими строчками я начинаю вторую статью в цикле
о Microsoft Visual Basic версии 6.
Сегодня мы рассмотрим ещё 5 возможностей VB.

1. Работа с файлами

Для работы с файлами используются
функция Open "имя файла" for для_чего as №_открытого_файла.
Есть три цели для открытия файла:
1) Input - используется для чтения содержимого файла.
2) Output - используется для записи с уничтожением
всего старого содержимого файла.
3) Append - для дозаписи в файл.

Пример:

Private Sub openfile_Click()
Open "file.txt" For Input As #1 'Открываем файл для чтения
Input #1, st 'Считываем первую строчку и обозначаем её содержимое как переменную st
Input #1, st2 'Считываем вторую строчку и обозначаем её содержимое как переменную st2
Close #1 'Закрываем файл
End Sub

2. Сохранение и загрузка рисунков.

Для сохранения рисунка используется функция SavePicture картинка_с_формы, "путь_к_файлу".
Для загрузки рисунка используется функция loadpicture("имя_файла").

3. FSO(File System Object)

Новая возможность Visual Basic - Объектная модель File System Object (FSO),
которая предоставляетобъектно-ориентированый инструмент для работы сдисками,
папками и файлами. Это позволяет использоватьизвестный синтаксис object.method
с богатым наборомсвойств, методов и событий для работы с папками и файлами в
добавление к традиционным операторам и командам Visual Basic. Объектная модель
FSO даёт приложениям возможностьсоздавать, изменять, перемещать и удалять папки
или определять, существуют ли конкретные папки, и если да, то где. Также она
позволяет получать информацию о папках, например, их имена, дату создания или
последнего изменения и т.п.Объектная модель FSO, которая содержится в библеотеке
типов Scripting(файл Scrrun.Dll), поддерживает создание и управление текстовыми
файлами через объект TextStream (Текстовый поток). Программирование в объектной
модели FSO предполагает три главные задачи: Создание объекта FileSystemObject
с помощью метода CreateObject(Создать объект),или объявление переменной как
объекта FileSystemObject Выбор подходящего метода на вновь созданном объекте
Обращение к свойствам объектов Объектная модель Fso содержится в библеотеке
типов, называемой Scripting, которая расположена в файле Scrrun.dll. Если на
нее нет ссылки, следут проверить опцию Microsoft Scripting Runtime в диалоговом
окне References, доступном из меню Properties.

Пример:

Dim fso As New FileSystemObject, f As File, txt As TextStream ' Тип TextStream нужен для работы с текстовыми файлами, только не путайте его с File(это для работы со всеми файлами)
Dim str As String

Private Sub Command1_Click()
str = InputBox("Name?", "File", "Alex")
Set txt = fso.CreateTextFile(str) ' Создаем текстовый файл
End Sub

4. Коды клавиш

Смотри здесь...

5. Работа с реестром

Visual Basic умеет работать только с веткой
HKEY_CURRENT_USER\ Software\VB and VBA Program Setting
и только со строковыми ключами, но этого вполне достаточно,
чтобы сохранять и считывать настройки своих программ:

Запись данных в реестр:

SaveSetting AppName, Section, Key, Setting '// AppName - название вашей программы, Section - ключ, Key - имя параметра, Setting - строковое значение параметра

Чтение данных из реестра:

GetSetting AppName, Section, Key, Default '// AppName - название вашей программы, Section - ключ, Key - имя параметра, Default - значение, которое будет возвращено функцией, если параметра не существует

Удаление данных из реестра:

DeleteSetting AppName, Section, Key '// AppName - название вашей программы, Section - ключ, Key - имя параметра
Примичание: если вы хотите удалить подраздел целиком, то имя ключа указывать не нужно.

Получение всех имён и значений параметров заданного ключа:

GetAllSetting AppName, Section '// AppName - название вашей программы, Section - ключ

Пример:

Dim intKeys As Integer, strKeys As Variant '// Объявляем переменные
strKeys = GetAllSettings("MyApp", "MySection") '// Используем функцию GetAllSettings
For intKeys = LBound(strKeys, 1) To UBound(strKeys, 1) '// Получаем границы массива ключей и выполняем цикл
Debug.Print strKeys(intKeys, 0), strKeys(intKeys, 1) '// Выводим результат
Next intKeys

Заключение

На этом пока всё. Сегодня мы расмотрели
ещё 5 сторон Visual Basic 6. В следующей
статье мы рассмотрим проигрывание музыки,
модули, переменные, написание функций и
случайные числа. До свидания. С вопросами
и пожеланиями пишите на amd1991@mail.ru

Обратно... На главную