3. Приступаем к программированию

Меню отображается не только в работающей программе, но и в окне формы. Щелкните на пункте Выход в строке меню. Откроется окно кода, в котором создается процедура – обработчик с именем munExit3_Click. Имя этой процедуры сформировано по знакомому нам правилу, а в качестве имени объекта, связанного с событием, состоит выбранное имя пункта меню.

Private Sub munExit3_Click()

……………………………….

End Sub

Впишите в эту процедуру End

Создадим обработчик для вложенного меню. Это делается точно так же. Если щелкнуть на пункте Файл, откроется вложенное меню, в котором можно выбрать пункт Выход. Будет создана процедура – обработчик munExit3_Click. В нее тоже можно вписать оператор End, и это будет правильно, но, если можно так сказать, не совсем по – программистки.

В программе пункт Выход повторяется 3 раза и программист должен позаботится о том, чтобы все они работали совершенно одинаково.

Самый грамотный подход здесь такой. Раз уж создали одну процедуру, выполняющую какую-то работу, то во втором и третьем не будем ее создавать, а вызовем исполнение ранее созданной процедуры. Поэтому в процедуру munExit2_Click впишем оператор вызова готового обработчика – процедуры munExit3_Click

Процедура выглядит так:

Private Sub munExit2_Click()

munExit3_Click

End Sub

Точно также выберете пункт Файл→ Дверь→ Выход. Создайте точно такой же обработчик и для последнего пункта меню.

Private Sub munExit1_Click()

munExit3_Click

End Sub

4. Контекстное меню

Можно открыть контекстное меню при щелчке правой кнопки мыши на окне программы.

Для открытия контекстного меню служит специальный метод формы – PopupMenu. Объект меню передается ему в качестве параметра.

Контекстное меню открывается по щелчку правой мыши, но его можно открывать при нажатии любой кнопки. Для этого достаточно описать обработчик события Click для формы. Выберете в окне кода в списке слева пункт Form, а в списке справа – событие Click. Добавте в нее оператор: Form1. PopupMenu mnuDoor. Этот оператор открывает меню Дверь в качестве контекстного. В итоге получится такая процедура:

Private Sub Form_Click()

Form1. PopupMenu mnuDoor

End Sub

Лабораторная работа № 6

«ПРОГРАММА УЧИТСЯ СОЧИНЯТЬ»

«ПРОЕКТ ПИСАТЕЛЬ»

Цель работы: Познакомиться с элементами управления Visual Basic 6.0 ComboBox, научиться пользоваться элементами управления и их свойствами

Задачи: Создать три открывающиеся списка по пунктам лабораторной работы три открывающиеся списка, которые по щелчку на кнопке меняют содержание.

Ход работы:

Программа будет работать так. Введем в нее три списка слов и научим ее брать одно слово из первого списка, одно – из второго и одно – из третьего. Из этих трех слов она и будет составлять предложения.

Грамматические эти предложения всегда будут правильны. А что до нелогически, так это дело наживное – просто пока программа не умеет думать.

1. Форма и компоненты

Запустите систему VB и создайте новый проект. Создайте его под именем Писатель.

Форма будет содержать четыре элемента управления: три раскрывающихся списка и одну командную кнопку. Раскрывающийся список задается компонентом ComboBox (Поле со списком). С помощью этого компонента можно создать два вида раскрывающихся списков или поле со списком.