Page 57 - 6735
P. 57

End Sub

           'Процедура обробки події Click (натиск лівої кнопки миші)
           Private Sub CommandButton1_Click()
           'надпис рамки змінити на ім'я активного елемента
           Frame1.Caption = Frame1.ActiveControl.name
           For Each opt In Frame1.Controls 'для кожного елемента
               opt.Caption = opt.Value 'змінити надпис на його
           значення
           Next opt
           End Sub














                    Рисунок 2.11 – Елемент керування OptionButton

                                Клас ListBox – список

              В  прикладі  UserForm8  показано  використання  елемента
           керування  ListBox  (список),  який  використовується  для  вибору
           елемента  зі  списку  (рис.  2.12).  Основними  властивостями  є
           ListIndex  (індекс  вибраного  елемента)  і  ListText  (текст
           вибраного елемента).

           Private Sub UserForm_Initialize()
           ListBox1.ListStyle = fmListStyleOption 'стиль списку
           ListBox1.TextAlign = fmTextAlignCenter 'вирівнювання
           тексту
           ListBox1.MatchEntry = fmMatchEntryFirstLetter 'пошук по
           першій букві
                                          57
   52   53   54   55   56   57   58   59   60   61   62