Меню под заголовком

В этой статье описывается создание меню вверху формы. Примеры такого меню можно встретить где угодно если вы работаете в 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