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

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

20
7. Ввести программный код для объекта управления КнопкаОтмена:
Private Sub КнопкаОтмена_Click()
Сообщение.Font.Underline = False
Сообщение.Font.Bold = False
Сообщение.Font.Size = 8
Сообщение.Font.Name = " Ms Sans Serif "
Сообщение.Font.Italic = False
End Sub
8. Ввести программный код для объекта управления КнопкаПодчер -
кивание:
Private Sub КнопкаПодчеркивание_Click()
If Сообщение.Font.Underline = False Then
Сообщение.Font.Underline = True
Else
Сообщение.Font.Underline = False
End If
End Sub
9. Ввести программный код для объекта управления КнопкаПолу -
жирный:
Private Sub КнопкаПолужирный_Click()
If Сообщение.Font.Bold = False Then
Сообщение.Font.Bold = True
Else
Сообщение.Font.Bold = False
End If
End Sub
10. Ввести программный код для объекта управления КнопкаРазмер :
Private Sub КнопкаРазмер _Click()
If Сообщение.Font.Size = 18 Then
Сообщение.Font.Size = 8
Else
Сообщение.Font.Size = 18
End If
End Sub
11. Разработать программный код для командной кнопки Выход.
12. Запустить проект и программу на выполнение, просмотреть резуль-
тат работы, исправить ошибки при их наличии. 
                                    20

7. Ввест и програ м м н ый код д л я объект а у пра вл ен ия К нопкаО тм ена:
          Private Sub К нопкаО тм ена_Click()
            С ообщение.Font.Underline = False
            С ообщение.Font.Bold = False
           С ообщение.Font.Size = 8
           С ообщение.Font.Name = " Ms Sans Serif "
           С ообщение.Font.Italic = False
          End Sub

8. Ввест и програ м м н ый код д л я объект а у пра вл ен ия К нопкаП одч ер-
   кивание:
          Private Sub К нопкаП одч еркивание_Click()
            If С ообщение.Font.Underline = False Then
           С ообщение.Font.Underline = True
            Else
           С ообщение.Font.Underline = False
          End If
          End Sub

9. Ввест и програ м м н ый код д л я объект а у пра вл ен ия К нопкаП олу -
   жирны й :
          Private Sub К нопкаП олу жирны й _Click()
            If С ообщение.Font.Bold = False Then
            С ообщение.Font.Bold = True
           Else
           С ообщение.Font.Bold = False
           End If
          End Sub

10. Ввест и програ м м н ый код д л я объект а у пра вл ен ия К нопкаРазм ер:
          Private Sub К нопкаР азм ер_Click()
          If С ообщение.Font.Size = 18 Then
             С ообщение.Font.Size = 8
             Else
             С ообщение.Font.Size = 18
          End If
          End Sub

11. Р а зра бота т ь програ м м н ый код д л я ком а н д н ой кн опки В ы х од.
12. Запу ст ит ь проект и програ м м у н а выпол н ен ие, просм отреть резу л ь -
    т а т ра боты, испра вит ь ошибки при ихн а л ичии.

Страницы