Реферат: Visual Basic и Системный Реестр Windows

MySet - строка для хранения возвращаемого функцией GetSetting значения;

GetSetting – имя самой функции;

VBKeyName - строковое значение, которое является именем внутреннего подраздела VB and VBA Program Setting. Мы используем свойство объекта App.Title, т.к. хотим прочесть информацию из созданного нашей программой раздела ;

Section - строковое значение, которое является именем внутреннего подраздела VBKeyName. В нашем случае он носит имя PortSettings;

Key - строковое значение, которое представляет имя параметра в созданном подразделе PortSettings.В подразделе может быть много параметров и по-этому, мы указываем на желаемое - Connect using;

Default - необязательный аргумент, представляющий строковое значение, которое будет возвращено функцией в случае ошибки (если такого параметра нет). Функция возвращает строковое значение, присвоенное аргументу Default. К примеру CrtMsg = "Такого параметра не существует.".

Чтение значений с помощью функции GetAllSettings()

***Предварительно добавте следующий код к имеющемуся коду командной кнопки

SaveSetting:

SaveSetting App.Title, "PortSettings", "Data bits", "8"

SaveSetting App.Title, "PortSettings", "Parity", "None"

SaveSetting App.Title, "PortSettings", "Stop bits", "1"

SaveSetting App.Title, "PortSettings", "Flow control", "None"

Произведите операцию записи данных в Системный Реестр.

Для получения из реестра массива, содержащего все значения параметров из определенного подраздела (например, PortSettings) применяется функция GetAllSettings(). Для этого дважды щелкните на командной кнопке GetAllSettings и в раскрывшемся окне введите следующий код:

Private Sub Command3_Click()

Dim intSettings As Integer

MySet = GetAllSettings(App.Title, "PortSettings")

For intSettings = LBound(MySet, 1) To UBound(MySet, 1)

Debug.Print MySet(intSettings, 0), MySet(intSettings, 1)

Next intSettings

End Sub

Запустите программу на выполнение и нажмите на кнопку GetAllSettings. В окне Immediate Вы увидете введенные ранее (оператором SaveSetting) значения:

Connect using COM1

Bits per second 2400

Data bits 8

Parity None

Stop bits 1

Flow control None