═рчтрэшх ётющёЄтр ╟эрўхэшх ётющёЄтр
Nameаааааааааааааааааааааааааааааааааааааааааааааааааа frmFormFun
Captionаааааааааааааааааааааааааааааааааааааааааааааа Form Fun
Command1 ╩юьрэфэр ъэюяър:
═рчтрэшх ётющёЄтрааааааааааааааааа ╟эрўхэшх ётющёЄтр
Nameаааааааааааааааааааааааааааааааааааааааааааааааааа cmdShrink
Captionаааааааааааааааааааааааааааааааааааааааааааааа Shrink Form
Command2 ╩юьрэфэр ъэюяър:
═рчтрэшх ётющёЄтрааааааааааааааааа ╟эрўхэшх ётющёЄтр
Nameааааааааааааааааааааааааааааааааааааааааааа cmdGrow
Captionааааааааааааааааааааааааааааааааааааааа Grow Form
Command3 ╩юьрэфэр ъэюяър:
═рчтрэшх ётющёЄтрааааааааааааааааа ╟эрўхэшх ётющёЄтр
Nameааааааааааааааааааааааааааааааааааааааааааа cmdHide
Captionааааааааааааааааааааааааааааааааааааааа Hide Buttons
Command4 ╩юьрэфэр ъэюяър:
═рчтрэшх ётющёЄтрааааааааааааааааа ╟эрўхэшх ётющёЄтр
Nameааааааааааааааааааааааааааааааааааааааааааа cmdRed
Captionааааааааааааааааааааааааааааааааааааааа Red Form
Command5 ╩юьрэфэр ъэюяър:
═рчтрэшх ётющёЄтрааааааааааааааааа ╟эрўхэшх ётющёЄтр
Nameааааааааааааааааааааааааааааааааааааааааааа cmdBlue
Captionааааааааааааааааааааааааааааааааааааааа Blue Form
Command6 ╩юьрэфэр ъэюяър:
Для записи каждой из процедур событий, необходимо воспользоваться окном кода. Выберите в нем необходимый элемент управления из списка объектов и событие из списка процедур. Затем щелкните в пространстве между заглавной строкой и нижней строкой основного окна и вводите необходимые строки кода. Это не трудно. Но, обязательно, сравнивайте то, что вы ввели с клавиатуры, с тем, что написано в наших рекомендациях. Вы должны быть очень точны!
Сначала запишем процедуру обработки событий cmdShrink_Click. В этой процедуре мы уменьшим высоту формы на 100 твипов и уменьшим ширину формы на 100 твипов:
Private Sub cmdShrink_Click()
'Уменьшение (Shrink) формы
'Уменьшаем высоту формы на 100 твипов
frmFormFun.Height = frmFormFun.Height - 100
'Уменьшаем ширину формы на 100 твипов
frmFormFun.Width = frmFormFun.Width - 100
End Sub
Прежде чем перейти к другим процедурам обработки событий, давайте обсудим то, что мы записали, т.к. здесь есть несколько важных моментов. Эта процедура обработки событий выполняется, если вы щелкаете по кнопке с надписью Shrink Form. Надеемся, вы легко распознали и строки с комментариями. В тех строках, которые являются не-комметариями, записаны строки кода, выполняющие операции по изменению высоты и ширины формы. Посмотрим на операцию изменения высоты:
frmFormFun.Height = frmFormFun.Height - 100
Вспомним, как работает оператор присваивания (=). С правой стороны от оператора присваивания находится значение вычисляемого выражения. Таким образом, цифра 100 является вычитаемым, (вы заметили, там знак минус?) числом из текущей высоты формы. Из того значения текущей высоты формы с левой стороны от оператора присваивания, которое обозначено как frmFormFun.Height. В результате этого, свойство Height (Высота) формы изменится на свойство Height минус 100 твипов. В результате выполнения этой строки кода, свойство Height будет уменьшено на 100 и форма на экране сожмется.
Это выражение показывает, почему мы называем оператор присваивания (=) именно так, а не просто знаком равенства. Ведь любой может заметить, что левая сторона этого выражения никак не может быть равна (в математическом смысле этого слова) правой. Но, независимо оттого, что обозначает frmFormFun.Height, выражение справа всегда будет меньше выражения слева на 100. Даже притом, что это не математическое равенство, вы часто можете услышать от программиста, что "frmFormFun.Height равно frmFormFun.Height минус 100", хотя речь идет о присвоении, а не о равенстве. Необходимо помнить об этой особенности оператора присваивания при разработке программ.
А сейчас, рассмотрим следующую процедуру обработки событий. Процедура cmdGrow_Click увеличивает высоту формы на 100 твипов и увеличивает ширину формы также на 100 твипов:
Private Sub cmdGrow_Click()
'Увеличение (Grow) формы
'Увеличить высоту формы на 100 твипов
frmFormFun.Height = frmFormFun.Height + 100
'Увеличить ширину формы на 100 твипов
frmFormFun.Width = frmFormFun.Width + 100
End Sub
Процедура обработки событий cmdRed_Click изменяет цвет фона у формы на красный цвет:
Private Sub cmdRed_Click()
'Сделать форму красной (red)
frmFormFun.BackColor = vbRed
End Sub
Процедура обработки событий cmdBlue_Click изменяет цвет формы на голубой цвет:
Private Sub cmdBlue_Click()
'Сделать форму голубой (blue)
frmFormFun.BackColor = vbBlue
End Sub
Процедура обработки событий cmdHide_Click применяется для того, чтобы сделать невидимыми (присвоить свойству Visible значение False) все командные кнопки, за исключением cmdShow. Это делается так:
Private Sub cmdHide_Click()
'Скрыть (hide)
все кнопки, кроме cmdShow
cmdGrow.Visible = False
cmdShrink.Visible = False
cmdHide.Visible = False
cmdRed.Visible = False
cmdBlue.Visible = False
'Показать (show)
кнопку cmdShow
cmdShow.Visible = True
End Sub
А для процедуры обработки событий cmdShow_Click, запишем следующее действие, обратное предыдущему:
Private Sub cmdShow_Click()
'Показать (Show) все кнопки, кроме cmdShow
cmdGrow.Visible = True
cmdShrink.Visible = True
cmdHide.Visible = True
cmdRed.Visible = True
cmdBlue.Visible = True
'Скрыть (Hide) кнопку cmdShow
cmdShow.Visible = False
End Sub
И, наконец, процедура обработки событий Form_Click, которая используется для увеличения 'grow' формы, поэтому имеет такой же код, как и кнопка cmdGrow_Click:
Private Sub Form_Click()
'Увеличение формы
'Увеличить высоту формы на 100 твипов
frmFormFun.Height = frmFormFun.Height + 100
' Увеличить ширину формы на 100 твипов
frmFormFun.Width = frmFormFun.Width + 100
End Sub
(Необходимо внимательно отнестись к выбору процедур в окне кода. Когда вы выбираете элемент управления Form, то в списке процедур вам будет предложена процедура Load. А вам следует выбрать Click из списка процедур). Просмотрите тему, где ранее мы обсуждали способы сохранения нового проекта. Сохраните ваш проект.
Сейчас у вас уже достаточно опыта, чтобы легко увидеть совершаемые события для той или иной процедуры. Обратите особое внимание на то, как для свойства Visible кнопок cmdHide и cmdShow применяется событие Click. Заметьте также, что многие процедуры обработки событий имеют очень простой и похожий код. Например, событие Form_Click похоже на событие cmdGrow_Click. Подобные записи можно найти в разных частях проекта на Visual Basic. Если вы помните, ранее мы обсуждали способы размещения однотипных элементов управления на форме. Так вот, при записи кода, мы, наоборот, приветствуем использование способов редактирования, таких как Copy и Paste, для многократной вставки повторяющихся строк. Чтобы скопировать что-либо, необходимо выделить нужный текст, используя мышь - так, же, как, вы это делали при работе с текстовым редактором. Затем выбрать Edit (Правка) в главном меню Visual Basic, а затем Copy (Копировать). После этого поместите курсор в то место, куда необходимо вставить текст. Текст можно вставлять и в другие процедуры. Выберите снова Edit, затем Paste (Вставить). Ура! Скопированный текст появился в новом месте. Возможно, вставленный текст будет нуждаться в небольшом редактировании, но, все равно, вы сэкономите много времени при записи кода. И это вам потребуется уметь делать впоследствии для записи даже небольших кусочков программ, таких, к примеру, как этот. Также советуем использовать команды редактирования текста, такие как Find (Найти) и Replace (Заменить). Используйте их, когда это можно и нужно.
В VB5 и VB6 есть и другие пути уменьшения количества вводимого с клавиатуры текста, и, соответственно, уменьшения числа возможных ошибок. Если вы щелкните Tools, затем Options в главном меню Visual Basic, затем выберите закладку Editor, то увидите вариант выбора под названием Auto List
Members (Автоматическое отображение списка элементов). Если в квадратике напротив этой надписи стоит галочка (вариант выбран), то в окне кода при записи строчек кода, в некоторых местах будут появляться небольшие надписи с подсказками о тех операторах, над которыми вы работаете. Затем вы можете выбрать из этих подсказок то, что вам необходимо и ввести соответствующую команду или оператор целиком, а не по буквам с клавиатуры. Если у вас установлен VB5 или VB6, активизация варианта выбора Auto List Members в любом случае будет не лишним. Для получения дополнительной информации используйте интерактивную справку.
Запуск проекта на выполнение
Поехали! Запустите на выполнение ваш проект, - щелкните кнопку Start на панели инструментов Visual Basic. Если проект не запускается, то единственное, что можно предложить, это - проверить правильность введения строк кода, и повторить запуск снова. В следующем классе мы будем изучать технологию исправления ошибок в программах - отладку ('debugging').
После запуска проекта, попробуйте в работе все командные кнопки. Увеличьте размер формы, уменьшите размер формы, измените цвет формы, скройте кнопки и вызовите их появление снова. Проверьте каждую кнопку и убедитесь, что все работает, как задумано. Проверьте, что щелчок по форме также дает желаемый результат. Эти проверки могут показаться довольно простыми и очевидными, но в больших проектах некоторые события, для которых вы написали код, могут не быть совершены довольно длительное время и вы не будете знать, работает ли данная событийная процедура должным образом. И в этом состоит другой этап непосредственно создания проекта - тщательное его тестирование. Необходимо быть совершенно уверенным, что каждое событие работает, как запланировано. Если вы что-либо изменили в проекте, то после этого его необходимо сохранить.
Для тех, кто не останавливается на достигнутом
Для каждого проекта в этом курсе мы будем предлагать вам внести в него какие-либо дополнительные изменения самостоятельно. Например, измените, действие кнопок Shrink Form и Grow Form так, чтобы форма перемещалась в разные части экрана (используйте свойства Left и Top). Добавьте еще несколько цветов для фона формы, используя рассмотренные символьные константы. Введите изменения для кнопки Hide Buttons таким образом, чтобы функции командной кнопки выполнялись, когда для свойства Enabled установлено значение False, без использования свойства Visible. Такие же изменения попробуйте проделать с кнопкой Show Buttons.
Резюме
Поздравляем! Вы завершили работу над относительно сложным (в том смысле, что здесь имеются более чем один элемент управления) проектом Visual Basic. Вы получили некоторые знания о разработке проекта, сохранении проекта, узнали кое-что о форме и командной кнопке как элементах управления и, вообще, прошли полный цикл построения проекта от начала до конца. Теперь вы будете чувствовать себя уверенно на трех этапах построения проекта: размещение элементов управления, установка свойств, и запись процедур обработки событий. В следующих классах вы будете строить другие проекты, также используя эти три этапа, но применяя новые элементы управления, новые команды языка BASIC.
