Методические указания к выполнению лабораторной работы по программированию в VB
Private Sub CmdColor_Click().
frmColor .Сарtioп="Черный"
End Sub
5.Дважды щелкните по элементу-кнопке (CommandButton), расположенной на панели инструментов, поместите её на форме и за дайте следующие свойства:
• свойству Name присвойте значение cmdEnd;
• свойству Caption присвойте значение Выход.
6.Свойство Caption определяет текст, расположенный на кноп ке.
7. Дважды щелкните но кнопке «Выход» (имя cmdEnd). Двойной щелчок но элементу открывает окно программы со стандартным событием. Для элемента кнопка стандартным является событие Click. На экране должен появиться шаблон процедуры cmdEnd_Click. Имя процедуры означает, что после того как пользователь нажмет кнопку cmdEnd, будет выполнен код, находящийся в этой процедуре.
8. Введите между строками Private Sub cmdEnd_Click() и End Sub следующий фрагмент программы (добавьте фрагмент, выделенный жирным шрифтом):
Private Sub cmdEnd_Click ()
Unload Me
Set frmColor = Nothing
End Sub
9. Сохраните проект программы командой File, Save Project As (Файл, Сохранить Проект как) с именем zl-2, а также сохраните модуль формы командой File, Save frmColor.frm As (Файл, Сохранить frmColor.frm как) с именем zl-2.
10.Выполните команду. Run,Start (Пуск, Старт).Нажмите кнопку Черный, надпись в заголовке формы должна поменяться. Нажмите кнопку Выход для завершения про граммы.
Усовершенствование программы.
Изменим программу так, чтобы при нажатие на кнопку менялся не только заголовок формы, но и надпись на кнопке. Пусть название кнопки "Черный" при нажатии на нее
меняется на "Белый". |
|
|
|
1. |
Откройте подпрограмму CmdColor_Click() |
и добавьте в неё оператор (выде- |
|
лен |
жирным шрифтом), который изменяет |
свойство Caption |
объекта cmdCol- |
or: |
Private Sub CmdColor_Click(). |
|
|
|
|
|
|
|
frmColor. Caption = "Черный" |
|
|
|
cmdColor.Caption = "Белый" |
|
|
|
End Sub |
|
|
2. |
Сохраните проект программы командой File, Save Project As |
(Файл, Сохра- |
|
нить Проект как) с именем zl-2, а также сохраните модуль формы командой File, Save frmPriem.frm As (Файл, Сохранить frmPriem.frniKaK) С именем zl-2.
3. Выполните команду Run, Start (Пуск, Старт). Нажмите кнопку Черный, надпись в
заголовке формы |
и надпись на кнопке должны поменяться. Нажмите кнопку Выход |
|
для завершения программы. |
|
|
|
|
|
|
|
|
Усков Ю.И. |
2 |
каф. МиИТ, 2015 |