Visual Basic 6. Руководство разработчика



         

Функции доступа к системной базе данных - часть 3


Если размеры окна изменяются пользователем, программа сохраняет новые значения высоты и ширины окна в реестре с помощью метода

QueryUnload. При последующем запуске программы окно будет иметь именно эти размеры. Таким образом, можно организовать сохранение установок инициализации программы в реестре, а затем получать их при запуске приложения. Чтобы проверить проект Registry, закройте форму щелчком на кнопке Close. Если работа приложения завершена с помощью команды End меню Run (команда Закончить в меню Выполнить) в IDE-среде Visual Basic, то событие QueryUnload не вызывается.

Ниже приводится текст программы Registry.

Программа 13.11. Программа Registry

Option Explicit

Private Declare Function RegCreateKey Lib "advapi32.dll" _

Alias "RegCreateKeyA" (ByVal hKey As Long, _

ByVal IpSubKey As String, phkResult As Long) As Long

Private Declare Function RegDeleteKey Lib "advapi32.dll"

Alias "RegDeleteKeyA" (ByVal hKey As Long,

ByVal IpSubKey As String) As Long

Private Declare Function RegDeleteValue Lib "advapi32.dll" _

Alias "RegDeleteValueA" (ByVal hKey As Long, _

ByVal IpValueName As String) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" _

Alias "RegQueryValueExA" (ByVal hKey As Long,

ByVal IpValueName As String, ByVal IpReserved As Long, _

IpType As Long, IpData As Any, IpcbData As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" _

Alias "RegSetValueExA" (ByVal hKey As Long, _

ByVal IpValueName As String, ByVal Reserved As Long,

_

ByVal dwType As Long, IpData As Any, _

ByVal cbData As Long) As Long

Const ERROR_SUCCESS = 0&

Const ERROR_BADDB = 1009&

Const ERROR_BADKEY = 1010&

Const ERROR_CANTOPEN = 1011&

Const ERROR_CANTREAD = 1012&

Const ERROR_CANTWRITE = 1013&

Const ERROR_REGISTRY_RECOVERED = 1014 &

Const ERROR_REGISTRY_CORRUPT = 1015&

Const ERROR_REGISTRY_IO_FAILED = 1016&




Содержание  Назад  Вперед