Page 56 - 6735
P. 56

CheckBox1.Value = Null 'значення "третій стан"
           CheckBox1.SetFocus 'установити фокус
           ToggleButton1.Value = False 'значення "не вибрано"
           End Sub

           'Процедура обробки події Change (зміна стану)
           Private Sub CheckBox1_Change()
           If CheckBox1.Value Then 'якщо значення=True
               CheckBox1.Caption = "True" 'змінити надпис на "True"
           ElseIf Not CheckBox1.Value Then 'інакше, якщо
           значення=False
               CheckBox1.Caption = "False" 'змінити надпис на "False"
           Else: CheckBox1.Caption = "Null" 'інакше змінити надпис на
           "Null"
           End If
           End Sub











             Рисунок 2.10 – Елементи керування CheckBox і ToggleButton

                           Клас OptionButton – перемикач

              В  прикладі  UserForm7  показано  використання  елемента
           керування  OptionButton  (перемикач),  який  володіє  властивістю
           Value, що має значення True, коли елемент керування вибраний, і
           False, коли він не вибраний (рис. 2.11).

           Private Sub UserForm_Initialize()
           OptionButton3.Value = True 'значення
           OptionButton3.Caption = "True" 'надпис
                                          56
   51   52   53   54   55   56   57   58   59   60   61