на главную
новости сайта  
раздел для начинающих
хелп по-русски
советы по программированию на VB
примеры программ
ActiveX в VB
Win32API в VB
базы данных в VB
Раздел РАЗНОЕ (статьи, описания ...)
карта сайта


 
 

Работа с меню

Функциональность приложения можно расширять, добавляя к нему систему меню. Меню обеспечивают пользователей удобным способом доступа и выполнения команд.

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

Чтобы создать меню для формы:

  1. Нажать кнопку Menu Editor на панели инструментов (или выбрать команду Menu Editor в меню Tools или ввести с клавиатуры <Ctrl + Е>), чтобы вывести на экран окно диалога Menu Editor.
  2. В поле Caption ввести имя меню или команды, которое должно появиться в строке меню.
  3. Используя кнопки со стрелками вверх и вниз, можно изменять позицию элемента меню в списке.
  4. Используя кнопки со стрелками влево и вправо, можно создавать уровни команд меню. Команда без многоточия (без смещения) — название меню в строке меню.
  5. При установке флажка Checked команда меню получает пометку (то есть состояние по умолчанию — см. команду "С графикой" на рис.).
  6. Установив или сняв флажок Enabled, можно включить или отключить команду (см. команду "Отправить сообщение").
  7. Список Shortcut содержит выборы для назначения командам меню клавиш быстрого доступа.

В период выполнения можно изменять вид и расположение меню и добавлять новые элементы меню. Можно также использовать метод PopupMenu для вывода меню на экран в виде контекстного меню. Например, следующая процедура раскрывает контекстное меню mnulnternet в позиции курсора, когда пользователь щелкает на площади формы правой кнопкой мыши. Этот код нужно поместить в раздел Declarations модуля формы:

Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then
PopupMenu mnulnternet
End If

End Sub

 
 

Всегда в наличии шина заземления шкафа в нашей фирме.