Описание элементов меню

Элемент меню	Свойство	Значение
Файл	Caption Name	&Файл mnuFile
Открыть	Caption Name	&Открыть mnuOpen
Разделительная полоса	Caption Name	- mnuRaz1
Сохранить	Caption Name	&Сохранить mnuSave
Разделительная полоса	Caption Name	- mnuRaz2
Печать	Caption Name	&Печать mnuPrint
Выход	Caption Name	&Выход mnuExit
Расчет параметров	Caption Name	&Расчет параметров mnuCalc
Конус	Caption Name	&Расчет параметров mnuKonus
полный	Caption Name	&полный mnuFull
усеченный	Caption Name	&усеченный mnuBrif
Параллелепипед	Caption Name	&Параллелепипед mnuParall
Призма	Caption Name	П&ризма mnuPrizma
Шар	Caption Name	&Шар mnuShar
Цилиндр	Caption Name	&Цилиндр mnuZilindr

3. Создайте меню.

4. Напишите текст программ для обработки команд меню.

Войдите в требуемый пункт меню, например Файл, и щелкните по нужной команде, например, Выход

Напишите в теле процедуры текст программы, например:

‘ объявление типов переменных

Dim nTemp As Inteqer, sTemp As Inteqer

sTemp = ”Выйти из программы”

‘вывод запроса

nTemp = MsqBox (sTemp, VbYesNo, ’’Пример обработки команд меню”)

If nTemp = VbYes Then

End

End If

Для загрузки формы расчета параметров одной из фигур, например, полного конуса необходимо написать следующий текст программы:

Private Sub mnuFull_Click

frmKonusFull.Show

End Sub

Здесь frmKonusFull – имя формы для расчета параметров полного конуса.

Задача 2.3. Требуется разработать контекстное меню для изменения высоты шрифта.

Рассмотрим для примера меню настройки высоты шрифта для формы. Откроем новую форму и создадим меню следующей структуры (элементы меню отделены друг от друга точкой с запятой): Высота шрифта; ...8; ...12; ...14; ...18; ...24. Для элемента меню “Высота шрифта” введем имя mnuShriftHeight и снимем флажок Visible. Пунктам меню второго уровня присвоим имена mnu8, mnu12 и т. д.

Напишем текст программы.

В обработчик события Click формы запишем оператор печати текста:

Private Sub Form_Click()

Print "Привет"

End Sub

В обработчик события MouseUp формы запишем программу проверки условия нажатия правой клавиши мыши. Системная переменная Button возвращает код нажатой клавиши мыши и ее значение сравнивается с константой vbRightButton – код правой клавиши мыши.

Private Sub Form_MouseUp(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

If Button = vbRightButton Then

Form1.PopupMenu mnuShriftHeight

End If

End Sub

В обработчики событий Click пунктов меню второго уровня запишем следующие тексты программ:

Private Sub mnu8_Click() Form1.FontSize =8 End Sub

Private Sub mnu12_Click() Form1.FontSize = 12 End Sub

Private Sub mnu14_Click() Form1.FontSize = 14 End Sub	Private Sub mnu18_Click() Form1.FontSize = 18 End Sub
Private Sub mnu24_Click() Form1.FontSize = 24 End Sub

Запустим программу. При щелчке левой клавишей мыши по форме появляется текст “Привет” с текущим значением высоты шрифта. Щелкнем правой клавишей мыши по форме – появится контекстное меню формы со списком высоты шрифта. Выберем нужную высоту шрифта щелчком мыши – появится текст с выбранной высотой шрифта.