Visual Basic і Системний Реєстр Windows.
Системний
Реєстр (Registry) Windows це база даних для зберігання системної і
користувача інформації в Windows. Системний Реєстр складається з двох файлів
- SYSTEM.DAT, в ньому міститься інформація про конкретний компьторе, і USER.DAT,
що містить користувацькі установки і дані.
Для
роботи з Системним Реєстром зазвичай застосовують спеціальний редактор Системного
Реєстру - REGEDIT.EXE, або спеціальні функції Win32 API, або деякі
вбудовані функції та оператори Visual Basic.
Зупинимося
на останньому і розглянемо роботу з даними до реєстру за допомогою Visual
Basic. Для цього Вам доведеться зробити наступне:
Запустіть
редактор Системного Реєстру, він знаходиться в каталозі Windows --
C: WindowsRegedit.exe. При запуску редактора у вікні з'являться шість
ключів-папок (ці ключі якраз і представляють вміст файлів SYSTEM.DAT і
USER.DAT). Виберіть ключ HKEY_CURRENT_USER (цей ключ входить до складу файла
USER.DAT) і клацніть на плюсик "+". У розкрився списку виберіть
з'єднання - Software - і розкрийте його. Знайдіть у знову списку, що відкрився папку
- VB and VBA Program Setting - це і є розділ Системного Реєстру куди з
допомогою вбудованих операторів та функцій Visual Basic Ви можете записувати і
зчитувати необхідну Вам інформацію.
Запустіть
Visual Basic і відкрийте новий проект. Помістіть на форму чотири командні
кнопки і у властивості Caption ", кожній з них введіть відповідно:
SaveSetting, GetSetting, GetAllSettings, DeleteSetting. Запам'ятайте проект під
ім'ям, скажімо, MYREG.
А
тепер приступимо до роботи.
Запис
значень за допомогою оператора SaveSetting
Двічі
клацніть на командній кнопці SaveSetting і в розкрився вікні введіть
наступний код:
Private Sub Command1_Click ()
SaveSetting App.Title,
"PortSettings", "Connect using", "COM1"
End
Sub
Запустіть
програму на виконання та натисніть SaveSetting, потім перейдіть на
вікно редактора Системного Реєстру. Відкрийте папку VB and VBA Program Setting і
там Ви побачите новостворену папку MYREG, а в ній підрозділ з ім'ям
PortSettings. Відкривши його, у лівому вікні редактора, Ви прочитаєте запис яку
тільки що створили - Connect using "COM1".
*** Якщо
Ви правильно виконали все, що написано, але нічого не побачили, не хвилюйтеся.
Натисніть клавішу F5 (Refresh) і перед вами з'явиться шукана запис.
Тепер
розглянемо по-детальніше, що Ви написали у вікні коду. Синтаксис оператора SaveSetting наступний:
SaveSetting VBKeyName, Section, Key,
Setting, де:
SaveSetting
- Ім'я самого оператора;
VBKeyName
- Строкове значення, яке є ім'ям внутрішнього підрозділу VB and VBA
Program Setting. У нашому випадку онo буде носити ім'я нашої програми - MYREG,
тому що ми використовували властивість об'єкта App.Title;
Section
- Строкове значення, яке є ім'ям внутрішнього підрозділу VBKeyName.
У нашому випадку воно носить ім'я PortSettings;
Key
- Строкове значення, яке представляє ім'я параметра в створеному підрозділі
PortSettings.В підрозділі може бути багато параметрів.
Setting
- Строкове значення, яке Ви хочете привласнити даним параметром. У нашому
випадку параметру Connect using присвоюється значення COM1;
Читання
значень за допомогою функції GetSetting ()
*** При
виконання нижченаведених дій оголосіть у роздiлi Declaration форми
змінні CrtMsg As String, MySet As Variant
Щоб
отримати значення для певного запису, потрібно використовувати функцію
GetSetting (). Двічі клацніть на командній кнопці GetSetting і в розкрився
вікні введіть наступний код:
Private Sub Command2_Click ()
MySet = GetSetting (App.Title,
"PortSettings", "Connect using", CrtMsg)
Debug.Print
MySet
End
Sub
Запустіть
програму на виконання і наміте на кнопку GetSetting. У вікні Immediate Ви
побачите введене раніше (оператором SaveSetting) значення - COM1.
Тепер
розглянемо докладніше, що Ви написали у вікні коду. Синтаксис оператора GetSetting наступний:
MySet = GetSetting (VBKeyName,
Section, Key [, Default])
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
Тепер
розглянемо докладніше, що Ви написали у вікні коду. Синтаксис оператора GetAllSetting наступний:
MySet = GetAllSettings (VBKeyName,
Section)
MySet
- Повертається функцією масив значень, він повинен бути типу Variant
GetSetting
- Ім'я самої функції;
VBKeyName
- Строкове значення, яке є ім'ям внутрішнього підрозділу VB and VBA
Program Setting. Ми використовуємо властивість об'єкта App.Title, тому що хочемо прочитати
інформацію з створеного нашою програмою розділу;
Section
- Строкове значення, яке є ім'ям внутрішнього підрозділу VBKeyName.
У нашому випадку він носить ім'я PortSettings;
Решта
оператори допомагають обробити масив значень і отримати інформацію в зручному
вигляді.
Видалення
розділу параметрів за допомогою оператора DeleteSetting
Ви
вже створили цілий масив параметрів! А що робити якщо він більше непотрібний? Для
видалення параметрів застосовується оператор DeleteSetting. Двічі клацніть на
командній кнопці DeleteSetting і в розкрився вікні введіть наступний код:
Private Sub Command4_Click ()
DeleteSetting
App.Title, "PortSettings", "Flow control"
End
Sub
Запустіть
програму на виконання і наміте на кнопку DeleteSetting, потім перейдіть
на вікно редактора Системного Реєстру і Ви побачите, що параметр Flow control
відсутня.
***
Якщо
Ви правильно виконали все, що написано, але нічого не побачили, не хвилюйтеся.
Натисніть на клавішу F5 - Refresh.
Тепер
розглянемо докладніше, що Ви написали у вікні коду. Синтаксис оператора DeleteSetting наступний:
DeleteSetting VBKeyName, Section,
Key, де:
DeleteSetting
- Ім'я самого оператора;
VBKeyName
- Строкове значення, яке є ім'ям внутрішнього підрозділу VB and VBA
Program Setting. Ми використовуємо властивість об'єкта App.Title, тому що хочемо видалити
інформацію з створеного нашою програмою розділу;
Section
- Строкове значення, яке є ім'ям внутрішнього підрозділу VBKeyName.
У нашому випадку він носить ім'я PortSettings;
Key
- Строкове значення, яке представляє ім'я параметра в підрозділі
PortSettings.В підрозділі може бути багато параметрів і по-цьому, ми вказуємо
на бажане - Flow control;
Якщо
Ви захочете вилучити відразу весь підрозділ, а не деякі параметри, то для
цього використовуйте такий синтаксис оператора DeleteSetting:
DeleteSetting VBKeyName, Section;
Помістивши
код DeleteSetting App.Title, "PortSettings" в Private Sub
Command4_Click (), Ви видалите весь підрозділ PortSettings.
А
якщо Ви захочете прибрати взагалі всі Ваші установки з Сіастемного Реєстру, то
скористайтеся наступним кодом:
Private
Sub Command4_Click ()
DeleteSetting App.Title
End Sub
Список літератури
Для
підготовки даної роботи були використані матеріали з сайту http://visualprogs.narod.ru/
