Visual Basic. Практика. Ищенко В.А - 19 стр.

                                          19
                                                                               Т а бл ица 7
          О бъект ы, свойст ва и событ ия эл ем ен тов у пра вл ен ия

                    О бознач е-
                                                                                 О браба-
                   ниеобъекта         И м я объекта
    О бъект                                               С вой с тваобъек-       ты вае-
                   у правления        у правления
 у правления                                               тау правления            м ое
                    по у м олч а-        (Name)
                                                                                 с обы тие
                        нию
                                                          Caption –
                                    У пра вл ен ие
Ф орм а            Form1                                  У пра вл ен ие
                                    шриф т а м и
                                                          шриф т а м и
К ом а н д н а я   CommandBut       К н опка Н о-         Caption –
К н опка 1         ton1             выйШ риф т            Н овый шриф т
К ом а н д н а я   CommandBut       К н опка П ол у -     Caption –
К н опка 2         ton2             ж ирн ый              П ол у ж ирн ый
К ом а н д н а я   CommandBut                             Caption –
                                    К н опка К у рсив
К н опка 3         ton3                                   К у рсив
К ом а н д н а я   CommandBut       К н опка П од чер-    Caption –
К н опка 4         ton4             кива н ие             П од черкива н ие
К ом а н д н а я   CommandBut       К н опка Р а зм ер-   Caption –
К н опка 5         ton5             Ш риф т а              Р а зм ершриф т а
К ом а н д н а я   CommandBut                             Caption –
                                    К н опка О т м ен а
К н опка 6         ton6                                   О т м ен а
К ом а н д н а я   CommandBut                             Caption –
                                    К н опка Выход
К н опка 7         ton7                                   Выход
Т екст овое П о-
                   TextBox          С ообщен ие                   Н ет
ле

5. Ввест и програ м м н ый код д л я объект а у пра вл ен ия К нопкаК у рс ив:

            Private Sub К нопкаК у рс ив_Click()
              If С ообщение.Font.Italic = False Then
              С общение.Font.Italic = True
              Else
             С ообщение.Font.Italic = False
             End If
            End Sub

6. Ввест и програ м м н ый код д л я объект а у пра вл ен ия К нопкаН о-
   вы й Ш риф т:
            Private Sub Н овы й Ш риф т_Click()
              If С ообщение. Font.Name = "MT Extra" Then
              С ообщение.Font.Name = "Ms Sans Serif"
              Else
             С ообщение.Font.Name = "MT Extra"
             End If
            End Sub