Page 55 - 6735
P. 55

'фонова картинка
           CommandButton1.Picture =
           LoadPicture("d:\WINDOWS\Паркет.bmp")
           'позиція картинки
           CommandButton1.PicturePosition =
           fmPicturePositionAboveLeft
           End Sub

           'Процедура обробки події DblClick (подвійний натиск лівої
           кнопки миші)
           Private Sub CommandButton1_DblClick(ByVal Cancel As
           MSForms.ReturnBoolean)
           CommandButton1.Caption = "DblClick!" 'надпис
           End Sub












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

                Класи CheckBox і ToggleButton – прапорець і вимикач

              В  прикладі  UserForm6  показано  використання  елементів
           керування  CheckBox  (прапорець)  і  ToggleButton  (вимикач),  які
           володіють  властивістю  Value,  що  має  значення  True,  коли  стан
           елемента керування вибраний, і False, коли стан не вибраний. (рис.
           2.10).
           Private Sub UserForm_Initialize()
           CheckBox1.Enabled = True 'доступність
           CheckBox1.TripleState = True 'дозволити три стани
           CheckBox1.Value = True 'значення "вибрано"
           CheckBox1.Value = False 'значення "не вибрано"
                                          55
   50   51   52   53   54   55   56   57   58   59   60