Разработка программы

32. Посмотрите на поведение двух наших средств управления до их программирования. Для запуска проекта выберите в строке меню Run (Исполнить), Start (Начать) или щелкните на кнопке Start панели инструментов.

33. Посмотрите на экран. Панель элементов и окно свойств пропали. Обратите внимание, что в строке заголовка окна Microsoft Visual Basic в прямых скобках появилось слово [run], которое говорит о том, что сейчас установлен режим исполнения, а не режим разработки [design].

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

35. Прекратите работу Вашей прикладной программы. Для этого щелкните на кнопке End панели инструментов. Вы возвратились в режим разработки (о чем свидетельствует слово design на панели заголовка окна Microsoft Visual Basic).

36. Щелкните дважды на кнопке «Показать время», чтобы вывести ее программный текст, который показан на рис. 3.8.

37. Посмотрите на окно текста Form1. Мы видим пока еще только заготовку программы, связанной с командной кнопкой. Она начинается с заголовка, включающего слова Private Sub (Локальная процедура), и заканчивается предложением End Sub (Конец процедуры). Между этими предложениями Вы можете вставить текст программы.

Для каждого события, которое может произойти с объектом (в данном случае с кнопкой), в системе Visual Basic предусмотрена соответствующая событийная процедура. В качестве примера перечислим некоторые события, которые могут произойти с кнопкой:

• Click – пользователь щелкнул на кнопке управления;

• MouseMove – пользователь перемещает указатель мыши на кнопку;

• MouseDown – указатель мыши показывает на кнопку, и пользователь нажимает левую кнопку мыши;

• MouseUp – указатель мыши показывает на кнопку, и пользователь отпускает левую кнопку мыши.

События могут происходить практически с каждым объектом пользовательского интерфейса – формами, меню, текстовыми окнами, окнами рисунков и т.д. Вы должны снабдить все объекты процедурами для обработки каждого события, которое может с ними произойти. Например, чтобы заставить командную кнопку что-либо делать, когда пользователь щелкает на ней, нужно вставить программный текст в процедуру с именем Click. Если же Вы хотите, чтобы происходило какое-либо действие, когда пользователь просто указывает на кнопку, следует вставить программный текст в ее процедуру MouseMove.

32. Запрограммируйте кнопку cmdClick так, чтобы при щелчке на этой кнопке на надписи выводилась текущая дата и время. Окно текста программы должно быть активно, а в нем – показана процедура cmdTime_Click. Если это не так, дважды щелкните по кнопке cmdClick. Между заголовком процедуры и конечной строкой введите инструкцию, предварительно установив для удобочитаемости отступ от начала строки в виде четырех пробелов:

LblTime.Caption = Now Вот и вся программа, которая состоит всего из одного оператора. Эта инструкция делает результаты функции Now значением свойства Captin надписи lblTime. Стандартная функция Now возвращает текущее время и дату. Свойство Caption определяет текст, который появляется на средстве управления (в данном случае – на надписи). Таким образом, когда эта строка программы выполнится, на надписи появятся текущие дата и время.

32. Закройте окно текста процедуры.

33. Сохраните проект (выберите File, Save Project или щелкните на кнопке Save Project панели инструментов).

34. Запустите проект. Несколько раз щелкните по кнопке «Показать время». Каждый раз, когда Вы щелкаете, текущее время и дата появляются на надписи lblTime, как показано на рис. 3.9.

Попробуйте с помощью клавиатуры изменить показание времени. У Вас ничего не получится. Запомните, изменить значение свойства Caption надписи можно или в окне свойств в режиме разработки программы, или с помощью выполнения соответствующей инструкции (в нашем примере – это инструкция LblTime.Caption = Now) в режиме выполнения программы, но нельзя изменить с помощью клавиатуры в режиме выполнения.

32. Завершите работу программы.