End Sub. 'Щелчок по кнопке "Показать метку"
'Щелчок по кнопке "Показать метку"
Private Sub Command8_Click()
Label1.Visible = True
End Sub
'Щелчок по кнопке "Изменить текст метки"
Private Sub Command9_Click()
Label1.Caption = "Это надпись"
End Sub
'Щелчок по кнопке "Изменить фон метки"
Private Sub Command10_Click()
Label1.BackColor = &HFFFFC0
End Sub
'Щелчок по кнопке "Изменить цвет текста метки"
Private Sub Command11_Click()
Label1.ForeColor = &HC000&
End Sub
'Щелчок по кнопке "Спрятать метку"
Private Sub Command12_Click()
Label1.Visible = False
End Sub
'Щелчок по кнопке "Показать картинку"
Private Sub Command13_Click()
Image1.Visible = True
End Sub
'Щелчок по кнопке "Спрятать картинку"
Private Sub Command14_Click()
Image1.Visible = False
End Sub
'Щелчок по кнопке "ВЫХОД"
Private Sub Command15_Click()
End
End Sub
8. Сохраните форму и проект (выбрав File – Save FrmСвойства.frm и Save Свойства.vbp) в папке 2.3.
9. Проверьте работоспособность проекта, запустив его на выполнение (F5).
10. Создайте exe-файл программы с помощью команды File → Make Свойства.exe.
11. Выйдите из среды Visual Basic.
12. Запустите на выполнение файл ФИО.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения
Дата добавления: 2015-06-12; просмотров: 612;