ПЕРЕЛІК ДИСЦИПЛІН:
  • Адміністративне право
  • Арбітражний процес
  • Архітектура
  • Астрологія
  • Астрономія
  • Банківська справа
  • Безпека життєдіяльності
  • Біографії
  • Біологія
  • Біологія і хімія
  • Ботаніка та сільське гос-во
  • Бухгалтерський облік і аудит
  • Валютні відносини
  • Ветеринарія
  • Військова кафедра
  • Географія
  • Геодезія
  • Геологія
  • Етика
  • Держава і право
  • Цивільне право і процес
  • Діловодство
  • Гроші та кредит
  • Природничі науки
  • Журналістика
  • Екологія
  • Видавнича справа та поліграфія
  • Інвестиції
  • Іноземна мова
  • Інформатика
  • Інформатика, програмування
  • Юрист по наследству
  • Історичні особистості
  • Історія
  • Історія техніки
  • Кибернетика
  • Комунікації і зв'язок
  • Комп'ютерні науки
  • Косметологія
  • Короткий зміст творів
  • Криміналістика
  • Кримінологія
  • Криптология
  • Кулінарія
  • Культура і мистецтво
  • Культурологія
  • Російська література
  • Література і російська мова
  • Логіка
  • Логістика
  • Маркетинг
  • Математика
  • Медицина, здоров'я
  • Медичні науки
  • Міжнародне публічне право
  • Міжнародне приватне право
  • Міжнародні відносини
  • Менеджмент
  • Металургія
  • Москвоведение
  • Мовознавство
  • Музика
  • Муніципальне право
  • Податки, оподаткування
  •  
    Бесплатные рефераты
     

     

     

     

     

     

         
     
    Visual Basic і Системний Реєстр Windows
         

     

    Інформатика, програмування

    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/

         
     
         
    Реферат Банк
     
    Рефераты
     
    Бесплатные рефераты
     

     

     

     

     

     

     

     
     
     
      Все права защищены. Reff.net.ua - українські реферати ! DMCA.com Protection Status