Основы офисного программирования и язык VBA


Управление доступом к элементу - часть 2


  • Создайте стандартный модуль и напишите в нем две процедуры:

    Public Sub CheckOptions() 'Проверка на дорогах Dim Msg As String Msg = "Выполняю проверку на " With frmChecking

    If.CheckBox2.Value Then Msg = Msg & vbCrLf & "корректность дат" If.CheckBox3.Value Then Msg = Msg & vbCrLf & "согласованность данных" If.CheckBox4.Value Then Msg = Msg & vbCrLf & "правильность расходов" If.CheckBox5.Value Then Msg = Msg & vbCrLf & "правильность доходов" MsgBox (Msg) .Hide End With End Sub

    Public Sub SetOptions() frmChecking.Show End Sub

    Процедура SetOptions открывает нашу форму, предоставляя пользователю возможность включать или выключать те или иные флажки. Установив нужные значения, он может затем щелкнуть кнопку "Проверка". Обработчик этого события будет вызывать функцию CheckOptions, которая и производит проверку состояния каждого из четырех флажков группы. Заметьте, что проверка свойства Value не зависит от состояния свойства Enabled. Если даже флажок недоступен, но включен (Value = True), то появится сообщение о выполнении проверки. Недоступный флажок не позволяет пользователю изменить его состояние, но программно ѕ все в Ваших руках. Сделаем еще одно замечание. Реально, верхний флажок, управляющий проверкой, должен находиться в другой форме, более высокого уровня, но мы уже не стали усложнять задачу.

  • Напишите обработчик события командной кнопки:

    Private Sub CommandButton1_Click() CheckOptions End Sub

  • Теперь, если выполнить процедуру SetOptions, (по правилам, ее следовало бы вызывать в одном из обработчиков событий), то на экране появится форма. В ней можно установить флажки, например, следующим образом:

    Окно проверки в процессе работы

    Рис. 12.16.  Окно проверки в процессе работы

  • Если в этом состоянии окна щелкнуть командную кнопку "Проверка", то будет выведено сообщение о двух выполняемых проверках:

    Окно сообщений о выполняемых проверках

    Рис. 12.17.  Окно сообщений о выполняемых проверках




  • Начало  Назад  Вперед



    Книжный магазин