Page 54 - 6735
P. 54

'процедура обробки події KeyPress (натиснута клавіша на
           клавіатурі)
           Private Sub TextBox4_KeyPress(ByVal KeyAscii As
           MSForms.ReturnInteger)
           'якщо ASCII код клавіші <48 або >57 (не цифра)
           If KeyAscii < 48 Or KeyAscii > 57 Then
           KeyAscii = 0 'не виводити нічого
           End If
           End Sub












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

                           Клас CommandButton – кнопка

              В  прикладі  UserForm5  показано  використання  елемента
           керування  CommandButton  (кнопка),  на  який  користувач  може
           натиснути (рис. 2.9). Основною подією є  Click, яка викликається
           натиском лівої кнопки миші на елементі керування.

           'Процедура обробки події Click (натиск лівої кнопки миші)
           Private Sub CommandButton1_Click()
           CommandButton1.Enabled = True 'доступність
           CommandButton1.Locked = False 'заблокованість
           CommandButton1.Caption = "Click!" 'надпис
           CommandButton1.AutoSize = True 'авторозмір
           CommandButton1.Cancel = True 'асоціація з клавішею Esc
           CommandButton1.Default = True 'асоціація з клавішею Enter
           CommandButton1.Accelerator="A" 'клавіша-акселератор Alt-A
                                          54
   49   50   51   52   53   54   55   56   57   58   59