В этой статье описывается создание меню вверху формы. Примеры такого меню можно встретить где угодно если вы работаете в Windows. Например сейчас поднимите глаза к верху экрана, что вы видите ? Правильно, заголовок окна. А что вы видите под ним ? Это и есть меню. Если вы хотите чтобы ваша программа достойно выглядела среди других такая менюшка обязательно должна присутствовать в ней. Тем более что в Visual Basic они делаются легко и непринужденно. Эта статья как раз об этом.
Шаг №1 - Постановка задачи
Итак, что же будет делать наша программа. Я задался этим вопросом когда начал писать эту статью. Ведь для демонстрации работы меню, гужно только оно само. Так сказать меню ради меню. Но так как надо еще и показать какие-нибудь действия с меню я решил что оно будет при нажатии на соответствующий пункт меню, выдавать какое-нибудь сообщение. Например хорошее, и плохое.И еще пусть будет кнопка выход, так как она там очень нужна и вообще она везде есть.
Шаг №2 - Визуальное проектирование
Следующий пункт - визуальное проектирование. Объектов на форме не будет, на ней будет тоько меню. Как его сделать : зайдите в верхнее меню Visual Basic, в пункт Tools (Инструменты), найдите там пункт Menu Editor и войдите в него. Перед вами должно быть вот такое окно :
Введите в поле Caption - Сообщения, а в меню Name - mnuMes.Нажмите Ок.Попробуйте щелкнуть на появившемся меню Сообщения. Вас должног выкинуть в программный код. Дело в том, что сейчас пункт меню Сообщения является кнопкой. Опять зайдите в редактор меню. Нажмите Next и стрелочку вправо. Теперь напишите в поле Caption - Хорошее, а в поле Name - mnuGood. Нажмите Ок. Опять попробуйте нажать на Сообщения. Теперь вас уже не должно выкинуть в код, а должно появиться выплывающее меню с надписью Хорошее. Теперь сами попробуйте сделать пункт Плохое с параметром Name - mnuBad прямом под пунктом Хорошее. Получилось ? Если да, то продолжайте если же нет то попробуйте еще раз, вы должны разобраться в этом редакторе меню. После этого сделайте пункт с Caption'ом - тире, то есть не слово тире, а просто тире, сепаратор, и именем sep. И наконец сделайте пункт с Caption'ом Выход, и именем - mnuExit.После всего этого у вас должна получиться такое окно :
Шаг №3 - Программирование в коде
Теперь перейдите к коду пункта Хорошее, просто нажав на него. Введите туда:
Msgbox "Это хорошее сообщение",vbExclamation,"Хорошее" - выдаем сообщение с заголовком - Хорошее , тектом : "Это хорошее сообщение" и значком восклицательного знака.
Войдите в код пункта Плохое и введите туда
Msgbox "Это плохое сообщение",vbCritical ,"Плохое" - выдаем сообщение с заголовком - Плохое, тектом :"Это плохое сообщение" и значком ошибки Windows.
Войдите в код пункта Выход и введите туда :
End - Выход
Теперь программа должна выглядеть так :
Private Sub mnuBad_Click()
MsgBox "Это плохое
сообщение", vbCritical, "Плохое"
End Sub
Private Sub
mnuExit_Click()
End
End Sub
Private Sub mnuGood_Click()
MsgBox
"Это хорошее сообщение", vbExclamation, "Хорошее"
End Sub
Шаг №4 - Подведение итогов
Все! Программа готова.Проверьте ее. Попробуйте добавить свои пункты и все такое. Если все работает то поздравляю - вы нучились работать с меню, если же нет то вы можете взять исходники и разобраться в них.