MenuItem
Function MenuItem OverLoad(ByVal number As Integer,ByVal menu As HMENU,Byref sName As String, ByVal flag As Integer=0 ) As Integer
Function MenuItem OverLoad(ByVal number As Integer,ByVal menu As HMENU,ByVal iName As integer, ByVal flag As Integer=MF_BITMAP ) As Integer
Позволяет создавать пункты меню. Это перегруженная функция, в системе Windows позволяет использовать как текстовые строки с небольшими иконками, так и изображения без текстовых строк; в системе Linux только текстовые строки с небольшими иконками .
number - номер пункта. Рекомендуется использование номеров от 2 до 65535. Использование 0 запрещено. Использование 1 может вызвать наложение некоторых событий.
menu - хендл меню, созданный функцией MenuTitle
sName или iName - В Windows текст или хендл битмапа. В linux только текст.
flag - (только для windows) флаг, может быть:
MF_BITMAP - Использует точечный рисунок как пункт меню. Параметр lpNewItem содержит дескриптор точечного рисунка.
MF_CHECKED - Помещает галочку рядом с пунктом меню. Если прикладная программа предоставляет значки "галочки" (см. SetMenuItemBitmaps), этот флажок показывает на экране точечный рисунок галочки рядом с пунктом меню.
MF_DISABLED - Отключает пункт меню, так что он не может быть выбран, но флажок не окрашивает его в серый цвет.
MF_ENABLED - Включает пункт меню, так что он может быть выбран и восстанавливает его из недоступного состояния.
MF_GRAYED - Отключает пункт меню и окрашивает его в серый цвет (делает недоступным), так что он не может быть выбран.
MF_MENUBARBREAK - Исполняет такую же функцию, как и флажок MF_MENUBREAK для строки меню. Для "выскакивающего" меню, подменю или контекстного меню, новый столбец отделяется от старого столбца вертикальной линией.
MF_MENUBREAK - Помещает пункт в новую строку (для строки меню) или в новом столбце (для "выскакивающего" меню, подменю, или контекстного меню) без разделения столбцов.
MF_OWNERDRAW - Определяет, что пункт является "собственным" пунктом (нарисованным пользователем). Перед тем как меню отображается впервые, окно, которое владеет им, получает сообщение WM_MEASUREITEM, чтобы извлечь данные о ширине и высоте пункта меню. Сообщение WM_DRAWITEM затем отправляется в оконную процедуру окна владельца всякий раз, когда внешний вид пункта меню должен модифицироваться.
MF_POPUP - Определяет, что пункт меню открывает "выскакивающее" меню или подменю. Параметр uIDNewItem определяет дескриптор "выскакивающего" меню или подменю. Этот флажок используется, чтобы добавить имя меню в строке меню, или пункт меню, который открывает подменю "выскакивающего" меню, подменю или контекстное меню.
MF_SEPARATOR - Рисует горизонтальную разделительную линию. Этот флажок используется только в "выскакивающем" меню, подменю или контекстном меню. Строка не может быть недоступна, заблокирована, или выделена. Параметры lpNewItem и uIDNewItem игнорируются.
MF_STRING - Определяет, что пункт меню - текстовая строка; параметр lpNewItem указывает на строке.
MF_UNCHECKED - Удаляет галочку рядом с пунктом (значение по умолчанию). Если прикладная программа предоставляет точечные рисунки (значки) "галочки" (см. SetMenuItemBitmaps), этот флажок показывает на экране снятую метку "галочки" рядом с пунктом меню.
Windows , Linux
#Include "window9.bi"
Dim As HMENU menu,MenName,MenName1
OpenWindow("",10,10,400,400)
menu=Create_Menu()
MenName=MenuTitle(menu,"Файл")
MenName1=MenuTitle(menu,"Помощь")
MenuItem(1001,MenName,"1 меню")
MenuBar(MenName)
MenuItem(1002,MenName,"2 меню")
Do
Var event=WaitEvent
If event=EventMenu then
Select case EventNumber
Case 1001
MessBox("","1 меню")
Case 1002
MessBox("","2 меню")
End Select
EndIf
If event=EventClose Then End
Loop
Created with the Personal Edition of HelpNDoc: Easy to use tool to create HTML Help files and Help web sites