Ход работы. 5. Теперь напишем код для кнопки «ВЫХОД»

End Sub

End Sub

End Sub

5. Теперь напишем код для кнопки «ВЫХОД». Также щелкните по ней два раза и напишите следующий код:

Private Sub Command2_Click()

End 'завершить программу

6. Сохраните форму и проект (выбрав File – Save FrmФИО.frm и Save ФИО.vbp) в папке 2.1.

7. Проверьте работоспособность проекта, запустив его на выполнение (F5).

8. Создайте exe-файл программы с помощью команды File → Make ФИО.exe.

9. Добавьте кнопку CommandButton, которую назовите «Очистить» (свойство Caption).

10. Щелкните по кнопке «Очистить» два раза, и в обработчике события запишите следующий программный код:

Private Sub Command3_Click()

FrmФИО.Cls 'очистить форму

11. Проверьте работоспособность проекта, запустив его на выполнение (F5).

12. Заново сохраните файлы форм, проекта и перезапишите exe-файл.

13. Выйдите из среды Visual Basic.

14. Запустите на выполнение файл ФИО.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения

Задание 2. Печать текстовых данных из кода на форме.

Постановка задачи.

Разработать приложение, которое по щелчку мыши на форме печатает стихотворение, а при подведении мыши к кнопке «Очистить» очищает форму. Примерный вид приложения приведен на Рис.2.5.

1. Создайте в папке Лабораторная_работа_№2 папку 2.2.

2. Запустите среду Visual Basic 6.0.

3. Расположите на форме три элемента управления CommandButton.

4. Установите свойства элементов управления и формы в соответствии с Таблицей 2.1, или ориентируясь на внешний вид формы (Рис.2.5).

Таблица 2.1 – Свойства компонентов приложения «Стихотворение»

Компонент	Свойство	Значение
Form1	Caption	Стихотворение
Name	frmСтих
BackColor	По своему усмотрению
Width, Height, Font	По своему усмотрению
MaxButton, MinButton	False
Icon	Загрузите любое графическое изображение формата *.ico
СommandButton1	Caption	Напечатать
Name	cmdПечать
Style	1 – Graphical
BackColor	По своему усмотрению
CommandButton2	Caption	Очистить
Name	cmdОчистить
Style	1 – Graphical
BackColor	По своему усмотрению
CommandButton3	Caption	ВЫХОД
Name	cmdВыход
Style	1 – Graphical
BackColor	По своему усмотрению

5. Щелкните два раза по кнопке «Напечатать» и в открывшемся окне редактора кода напишите следующий код (результат работы кода – на Рис.2.6):

Private Sub CmdПечать_Click()

FrmСтих. Print Tab( 15 ); "Белеет парус одинокий"

FrmСтих. Print Tab( 15 ); "В тумане моря голубом"

FrmСтих. Print Tab( 15 ); "Что ищет он в стране далекой?"

FrmСтих. Print Tab( 15 ); "Что кинул он в краю родном?"

FrmСтих. Print Tab( 40 ); "М.Ю. Лермонтов"

Дата добавления: 2014-12-23