Page 51 - 6735
P. 51

Next obj
           'метод SetFocus
           CommandButton1.SetFocus 'установити фокус на кнопці
           Debug.Print UserForm2.ActiveControl.Value 'значення
           активного елемента, який містить фокус
           End Sub













                        Рисунок 2.6 – Результат роботи програми

                                 Клас Label – надпис

              В  прикладі  UserForm3  показано  використання  елемента
           керування    Label    (надпис),   який   використовується    для
           відображення  тексту  на  вікні  (рис.  2.7).  Основною  властивістю  є
           Caption, яка містить рядок із текстом.

           'Процедура обробки події Click (натиск лівої кнопки миші)
           Private Sub Label1_Click()
           Label1.AutoSize = False 'авторозмір
           Label1.Height = 40 'висота
           Label1.Width = 70 'ширина
           Label1.Font.name = "Times New Roman" 'ім'я шрифту
           Label1.Font.Size = 14 'розмір шрифту
           Label1.Font.Bold = True 'жирний шрифт
           Label1.Font.Italic = True 'курсив шрифт
           Label1.Font.Underline = True 'підкреслений шрифт
           Label1.ForeColor = RGB(255, 0, 0) 'колір переднього плану
           (шрифту)
                                          51
   46   47   48   49   50   51   52   53   54   55   56