Ход работы. 1. Создайте в папке Лабораторная_работа_№2 папку 2.2.
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); "М.Ю. Лермонтов"
Дата добавления: 2015-06-12; просмотров: 527;