Лабораторные_VB
.pdf
13. В окне свойств в поле Name ввести: myforma (в окне проекта изменится имя формы), а в поле Caption ввести: Первая программа (в окне формы изменится ее заголовок).
14. Щелчком мыши перейти в окно формы, активировав панель элементов
(ToolBox). Если ToolBox был закрыт, его можно вызвать командой: Вид
(View) > Панель элементов (ToolBox).
21
15. На панели элементов щелкнуть на кнопке Надпись (Label) и мышью
"нарисовать" в форме контур элемента управления. В окне свойств для созданной надписи в поле Caption набрать: Введите текст.
16. На панели элементов щелкнуть на кнопке Поле (TextBox) и добавить поле для ввода текста в форму (под надписью). В окне свойств для созданного поля в свойстве Name набрать: mytextbox.
22
17. На панели элементов щелкнуть на кнопке Кнопка (CommandButton) и
добавить управляющую кнопку в форму (под текстовым полем). В окне свойств для созданной кнопки в свойстве Caption набрать: Завершение.
18. Выделить все добавленные элементы в форме (надпись, текстовое поле и кнопку) и применить к ним команду: Формат (Format) > Выровнять (Align) > По левому краю (Lefts).
23
19. Выделить в форме добавленную кнопку и вызвать программу для обработки связанных с ней действий командой: Вид (View) > Программа
(Code) (или окно проекта > кнопка Программа (View Code)).
20. В окне программы в открывшемся шаблоне набрать:
24
Option Explicit
'Инструкция для обязательного объявления переменных
Private Sub CommandButton1_Click()
'Начало процедуры-программы, выполняемой при щелчке
'(клике) по кнопке по имени CommandButton1
Dim mytext As String
'Объявление (создание) переменной по имени mytext
'для хранения данных типа "строка" (String)
mytext = mytextbox.Text
'Запись текста из поля по имени mytextbox в переменную
'mytext
MsgBox "Введено: " & mytext
'Вывод окна-сообщения со строкой, начинающейся с
'"Введено: " и заканчивающейся текстом из переменной
'mytext
MsgBox "На листе:" & ActiveWorkbook.Worksheets(1).Cells(1, 2)
'Вывод окна-сообщения со строкой, начинающейся с
'"На листе: " и заканчивающейся текстом-значением
'из ячейки B1 первого листа текущего файла MS Excel Unload myforma
'Закрытие формы по имени myforma
End Sub
' Завершение программы-процедуры
Шаблон процедуры для кнопки (Private Sub CommandButton1_Click() ...
End Sub) был добавлен автоматически. Процедура срабатывает при щелчке (Click) по объекту – кнопке (CommandButton1). В окне программы процедуры для различных объектов выбираются из двух списков (Объект
(Object) и Процедура (Procedure)).
25
21. В окне программы для модуля (Module1) перед строкой
End Sub
добавить строку для отображения формы myforma
myforma.Show
22. Сохранить файл, установить курсор в процедуру first и запустить модуль с процедурой first на выполнение (F5).
26
23. Перейти в окно программы для кнопки (CommandButton1) и
выполнить команду: Отладка (Debug) > Добавить контрольное значение
(Add watch).
27
В открывшемся окне в поле Выражение (Expression) набрать имя переменной: mytext.
После нажатия OK отобразится окно Контрольное значение (Watch) (Вид
(View) > Окно контрольного значения (Watch Window)).
24. Запустить программу в режиме отладки (Отладка (Debug) > Шаг с
заходом (Step Into) или F8).
28
В запущенном окне диалога ввести текст и нажать кнопку Завершение.
В открывшемся окне VB желтым цветом отмечается текущая операция.
Для выполнения следующей операции нужно нажать F8. Выполняя программу по шагам, можно установить с помощью окна контрольного
29
значения при выполнении какой строки кода переменной mytext будет присвоено значение.
Продолжать выполнять программу по шагам (F8) до ее завершения.
25. После завершения выполнения программы в ее тексте заменить mytext
на mytex в строке MsgBox "Введено: " & mytext.
Запустить программу на выполнение (F5).
26. Ввести текст в поле ввода и нажать кнопку Завершение. Прочитать сообщение об ошибке и нажать в его окне OK.
30