Page 50 - 6735
P. 50

'Обробник події користувача notNumber
           Private Sub obj_notNumber(x As Variant)
           MsgBox "Warning! x is not number: " & x
           End Sub












                         Рисунок 2.5 – Обробка події notNumber

                     Загальні властивості компонентів MS Forms

              В  наступному  прикладі  UserForm2  показано  використання
           методів  і властивостей, які є  у більшості  елементів керування MS
           Forms. Доступ до усіх елементів керування форми можна отримати
           за допомогою властивості  Controls (рис. 2.6).

           Private Sub UserForm_Initialize()
           'для кожного елемента керування на UserForm2
           For Each obj In UserForm2.Controls
               obj.AutoSize = True 'авторозмір
               obj.Visible = True 'видимість
               obj.Enabled = True 'дозвіл керування
               'координати верхнього лівого кута
               obj.Left = 10
               obj.Top = obj.Top + 20
               obj.Height = 20 'висота
               obj.Width = 100 'ширина
               obj.ControlTipText = "help" 'текст підказки
               obj.BackColor = vbYellow 'колір фону
               obj.ForeColor = RGB(0, 0, 0) 'колір переднього плану
               obj.BackStyle = fmBackStyleTransparent 'тип фону
                                          50
   45   46   47   48   49   50   51   52   53   54   55