Программирование на Visual Basic

Создание меню visual basic

Сразу скажу, что у меня не было цели, рассказать обо всех функциях WinAPI для работы с меню.Зачем мучаться с ними, если проще всё сделать в VB. Вот то, что для VB недоступно, - это мыи рассмотрим.
Visual Basic даёт программисту простой и удобный инструмент для создания меню. Но этот инструмент уступает по возможностям, прямой работе с меню через WinAPI.
VB удобен и прост в использовании из-за того, что программисту не нужно заботиться о взаимодействии приложения с Windows. Это одновременно и его недостаток, т.к. программисту очень тяжело работать с системой напрямую, игнорируя VB.
Всё выше сказанное напрямую связано с работой с меню через WinAPI. Дело в том, что меню в Visual Basic - специальный объект, не являющийся по сути настоящим меню Windows, хотя он и формирует меню в процессе исполнения.
В VB меню задаётся набором пунктов, различающихся именем(или индексом) и степенью вложенности. В Windows меню - это объект, содержащий набор команд с определёнными идентификаторами. Если VB на выбор пункта меню отзывается событием типа Menu_CLick, то Windows отправляет окну - хозяину меню сообщение WM_COMMAND с соответствующими параметрами. VB не может правильно обработать сообщение от пункта меню созднного через API, так как "не понимает" его. Чтобы перехватывать такие сообщения требуется субклассирование.
В Windows существует два типа меню: меню окна, и всплывающее меню.(В VB, меню окна составляют не вложенные пункты, а всплывающее меню формируется из вложенных). Подменю в Windows - это отдельные меню, связанные с вызывающим пунктом меню.
Все функции предназначенные для работы с меню, находятся в модуле user32 и возвращают Long.Все параметры передаются ByVal.
Работать с меню можно только через его манипулятор, поэтому рассмотрим функции предназначенные для получения этого манипулятора.

GetMenu(hWnd As Long)
Эта функция получает манипулятор меню окна, заданного hWnd

GetSubMenu( hMenu As Long,nPos As Long)
Эта функция получает манипулятор всплывающего меню, с которым ассоциирован пункт меню hMenu, под номером nPos, нумерация начинается с нуля.

GetSystemMenu(hWnd As Long, bRevert As Long)
Получает манипулятор системного меню окна, заданного hWnd.Если bRevert присвоить ненулевое значение, системное меню будет восстановлено.
При ошибке или восстановлении меню, функция возвращает 0.

IsMenu(hMenu As Long) - проверяет действителен ли манипулятор меню hMenu. Если да, возвращает ненулевое значение, иначе ноль.

GetMenuDefaultItem(hMenu As Long, fByPos As Long, gmdiFlags As Long) - функция определяет команду меню по умолчанию.
hMenu-манипулятор проверяемого меню.
fByPos - Флаг, если неравен нулю, возвращает позицию, иначе идентификатор.
gmdiFlags - GMDI_GOINGTOPOPUPS, для поиска внутри связанных всплывающих меню. GMDI_USEDISABLED, для запрета пропуска заблокированных меню.
Если функция не находит команды возвращает -1, иначе идентификатор или позицию команды.

GetMenuItemID(hMenu As Long, nPos As Long)-функция получает идентификатор команды меню.
hMenu-манипулятор меню.
nPos-позиция команды меню. Отсчёт начинается с нуля.
Функция возвращает идентификатор, 0 если разделитель, -1 если с пунктом ассоциировано подменю.

GetMenuCheckMarkDimensions()-возвращает необходимые размеры маркера, для пометки команды меню.
Возвращает Long-старшее слово которого(16 бит) содержит высоту, а младшее - ширину в пикселах.
В отличие от всех остальных, прведённых здесь не поддерживается в Win16.
Через эту функцию, я определил, что размеры маркера 13x13.

SetMenuDefaultItem(hMenu As Long, uItem As Long, fByPos As Long)-устанавливает команду меню по умолчанию.
hMenu-манипулятор меню.
uItem-команда для установки, -1 для сброса текущей команды по умолчанию.
fByPos-ненулевое значение обозначает, что в uItem передана позиция, 0 - идентификатор.
Функция возвращает ноль, в случае ошибки.

Теперь рассмотрим три функции, ради которых собственно и стоит использовать WinAPI.

ModifyMenu Alias "ModifyMenuA"(hMenu As Long, nPosition As Long, wFlags As Long, wIDNewItem As Long, lpNewItem As Any)-Мощная функция для изменения команды меню. Позволяет задавать растры для команд меню.ModifyMenu предпочтительнее AppendMenu, и InsertMenu, так, как не меняет расположение команд.
hMenu-манипулятор меню.
nPosition-изменяемая кманда меню.
wIDNewItem-новый идентификтор команды. Вы должны передать идентификатор полученный GetMenuItemID для этой команды меню, иначе VB не узнает её.
lpNewItem-новое значение для команды меню.
wFlags-флаги управляющие изменением меню.
MF_BITMAP-для замены текста команды растром. В lpNewItem нужно передать манипулятор растра.Его можно получить через свойство Handle объекта Picture. Пример: imgPicture.Picture.Handle. В этом случае Вы должны следить, чтобы содержимое контейнера PictureBox илм Image не менялось.
MF_STRING-в lpNewItem задаётся текстовая команда.
MF_SEPARATOR-команда превращается в разделитель.
MF_BYCOMMAND-в nPosition передаётся идентификатор.
MF_BYPOSITION-в nPosition передаётся номер команды, наxиная с нуля.
Функция возвращает нулевое значение, в случае ошибки. иначе ненулевое. Устанавливает информациюGetLastError.

SetMenuItemBitmaps(hMenu As Long, nPosition As Long, hBitmapUnchecked As Long, hBitmapChecked As Long)-функция устанавливает маркеры для помеченного и непомеченного состояния.
hMenu-манипулятор меню
nPosition,wFlags - смотри ModifyMenu
hBitmapUnChecked, hBitmapChecked-манипуляторы соответствующих растров. Если один из параметров,установлен в ноль, соответствующий маркер не используется. Если оба равны нулю, используются маркеры по умолчанию.На изображения используемые в качестве маркеров накладываются те-же ограничения, что и на растры, дляModifyMenu.
Функция возвращает 0 при ошибке. Остальные значения свидетельствуют, об удаче.

TrackPopupMenu(hMenu As Long, wFlags As Long, x As Long, y as Long,nReserved As Long, lpRc As Rect)-Функция выводит всплывающее меню, в любой точке экрана.
hMenu-маниулятор меню.
x, y-координаты "всплывания".
nReserved-должен быть равен нулю.lpRc-прямоугольник, щелчок внутри которого. не закрывает меню. Рекомендую объявить его ByVal lpRc As Long, и передавать ноль.
wFlags-флаги управляющие "всплыванием".
TPM_CENTERALIGN-x, y задают координаты центра меню.
TPM_LEFTALIGN-по x выровнен левый край.
TPM_RIGHTALIGN-по x выровнен правый край.
TPM_LEFTBUTTON- меню вызывается левой кнопкой.
TPM_RIGHTBUTTON- меню вызывается правой кнопкой.
Возвращает 0 в случае ошибки, остльные значения обозначают успех. Устанавливает информацию GetLastError.

В завершении, я приведу код двух функций, для получения манипулятора меню заданного названием(caption) пункта, ипозиции этого пункта в этом меню.

 "получение позиции команды менюPublic Function GetMenuPos(ByVal hMenu As Long, ByVal Caption As String) As LongDim i As LongDim max As LongDim lres As LongDim Result As LongDim sData As StringDim sdLen As LongResult = -1max = GetMenuItemCount(hMenu)If max = 0 Then GetMenuPos = -1: Exit FunctionFor i = 0 To max - 1sData = String$(256, 32)sdLen = Len(sData) + 1lres = GetMenuString(hMenu, i, sData, sdLen, MF_BYPOSITION)If LCase$(Left$(sData, lres)) = LCase$(Caption) Then Result = i: Exit ForNext iGetMenuPos = ResultEnd Function"Получение манипулятора менюPublic Function SearchMenu(ByVal hMenu As Long, ByVal Caption As String) As LongDim i As LongDim lres As LongDim max As LongDim Result As Longlres = GetMenuPos(hMenu, Caption)If lres <> -1 Then SearchMenu = hMenu: Exit FunctionDebug.Print maxmax = GetMenuItemCount(hMenu)For i = 0 To max - 1lres = GetMenuItemID(hMenu, i)If lres = -1 Then Result = SearchMenu(GetSubMenu(hMenu, i), Caption)Next iSearchMenu = ResultEnd Function

Как всегда весь код был скопирован прямо из VB-редактора.

Hosted by uCoz