Изменение состояния формы при запуске

23 В окне свойств для формы установите свойство Window State – 2 (развернутый) или перейдите в окно кода, щелкнув дважды по форме, и заполните процедуру, чтобы получилось:

 

Private Sub Form_Load()

frmColor.WindowState = 2

End Sub

24 Запустите проект, затем сохраните его.

 

Задача 2. Создайте приложение Забавная форма (FormFun), в котором две командные кнопки будут уменьшать и увеличивать размер формы; следующие две – изменять цвет, и еще две будут заставлять другие кнопки исчезать и появляться вновь.

Порядок выполнения работы

1 Запустите новый проект в Visual Basic.

2 Разместите шесть командных кнопок (Command Buttons) на форме.

3 Используя команду Форматирование / Размер, сделайте кнопки одинаковыми по размеру (рисунок 9.5).

4 В окне свойств для формы и каждой кнопки установите свойства в соответствии с рисунком 9.6.

5 Для того чтобы при запуске проекта, кнопка <cmdShow> была невидимой, пока будут видны другие кнопки, установите для нее свойство Visible (видимость) – Нет.

6 Запишите процедуры Событий для формы и кнопок (рисунок 9.7). При записи процедур используйте копирование.

7 Запустите проект на выполнение и сохраните его в своей папке.

8 Попробуйте самостоятельно из­­менить ваш проект так, чтобы при нажатии кнопки <Увеличение формы> форма распахивалась на весь экран, а при нажатии кнопки <Уменьшение формы> форма принимала исходные размеры.

 

Private Sub cmdShrink_Click() frmFormFun.Height = frmFormFun.Height - 100 frmFormFun.Width = frmFormFun.Width - 100 End Sub	Private Sub cmdGrow_Click() frmFormFun.Height = frmFormFun.Height + 100 frmFormFun.Width = frmFormFun.Width + 100 End Sub
Private Sub cmdred_Click() frmFormFun.BackColor = vbRed End Sub	Private Sub cmdBlue_Click() frmFormFun.BackColor = vbBlue End Sub
Private Sub cmdHide_Click() cmdGrow.Visible = False cmdShrink.Visible = False cmdHide.Visible = False cmdred.Visible = False cmdBlue.Visible = False cmdShow.Visible = True End Sub	Private Sub cmdShow_Click() cmdGrow.Visible = True cmdShrink.Visible = True cmdHide.Visible = True cmdred.Visible = True cmdBlue.Visible = True cmdShow.Visible = False End Sub

Рисунок 9.7 – Процедуры для управлений

 

Создание простых приложений

 

Цель занятия. Освоить приемы работы с элементами управления Lable и TextBox; научится выполнять простейшие вычисления с использованием этих Управ­­лений.

Теоретические вопросы:

1 Для чего предназначены Управления Lable и TextBox?

2 Перечислите основные свойства, события и методы этих Управлений.

3 Какие префиксы добавляются к именам этих Управлений?

4 Какие знаки служат для соединения содержимого текстовых полей?

5 Для чего нужны комментарии при записи кода программы, и с какого знака начинается комментарий?

Задача 1. Разработайте приложение, которое предлагает пользователю ввести фамилию, имя, отчество, возраст, затем приветствует его и выводит год рождения.

Процедуры обработки событий

Private Sub cmdClear_Click() 'Что делать, когда будет нажата кнопка очистки?

txtHello.Text = " " 'Очистка поля для вывода Приветствия и Года рождения.

txtYear.Text = " " 'Очистка поля для ввода Количества лет.

txtName.Text = " " 'Очистка поля для ввода Имени.

txtPatronymic.Text = " " 'Очистка поля для ввода Отчества.

txtSurname.Text = " " 'Очистка поля для ввода Фамилии.

End Sub

 

Private Sub cmdExit_Click() 'Что делать при нажатии кнопки Выход?

End 'Завершние выполнения проекта,

'переход из режима Пуск в режим Создание.

End Sub

Private Sub cmdHello_Click() 'Что делать при нажатии кнопки Привет?

'Склеивание значения текстовых полей заком +.

'Пробел и _ служат для разбивки строки кода.

txtHello.Text = "Добрый день, " + " " + txtSurname + _

" " + txtName + " " + txtPatronymic + "!"

End Sub

Private Sub cmdYear_Click() ' Что делать, при нажатии кнопки Год рожд?

txtHello.Text = " " ' Очищается текстовое поле для приветствия.

x = Val(txtYear.Text) ' Число введенное в поле Возраст преобразуется из тестового

' в числовое и присваивается переменной x.

y = 2002 - x ' Вычисляется год рождения.

Text = "году" ' Переменной Text присваивается слово Году.

' Вывод года рождения, склеивание выполняется знаком &.

txtHello.Text = "Вы родились в " & Str(y) & " " & Text

End Sub

 

 

Задача 2. Разработайте приложение «Калькулятор», которое выполняет четыре арифметических действия.

Порядок выполнения работы

1 Откройте новый проект.

2 Разместите на нем управляющие элементы, как показано на рисунке 9.9.

3 Задайте самостоятельно свойства элементов управления. Для изменения раз­мера шрифта надписей на кнопках используйте свойство Font, предварительно выделив все 4 кнопки.

4 Перейдите в окно кода и заполните про­це­дуру для кнопки <+>.