Создание всплывающих меню в VB

Создание всплывающего меню выполняется точно так же, как и построение главного меню, содержащего единственный раздел. Этот раздел может быть снабжен подменю второго уровня и подменю более высоких уровней. Единственное отличие всплывающего меню от главного заключается в том, что при формировании строки начала раздела нужно отключить признак видимости, т.е. удалить галочку из пометки Visible (рис. 5.23). Все остальные команды раздела должны набираться как видимые.

Рис. 5.23. Набор команд всплывающего меню

Завершив построение меню, мы не обнаружим его на форме, т.к. заголовок раздела был объявлен невидимым. Но в списке объектов, входящих в состав нашего приложения, мы обнаружим имена всех команд только что созданного меню. Имя Pop1, которое было указано в качестве свойства Name для невидимого заголовка раздела, система рассматривает как идентификатор всплывающего меню.

К сожалению, в среде Visual Basic недостаточно нажать правую клавишу мыши, чтобы всплывающее меню появились на экране. Делать это приходится принудительно, подключив к приложению обработчик события MouseDown, в котором производится вызов метода PopupMenu. Текст этого обработчика для всплывающего меню, связанного с формой и содержащего всего три строки, приведен на рис. 5.24. Если всплывающее меню должно быть привязано к другому объекту, то аналогичное обращение к методу PopupMenu следует поместить в процедуру обработки события MouseDown для ассоциированного объекта.

Рис. 5.24. Всплывающее меню на фоне обработчика события.