CreateIconItemMenu

Синтаксис

sub CreateIconItemMenu(ByVal menu As HMENU, ByVal Number As long, ByVal ImageId As Hbitmap)

Описание

Функция позволяет вставлять иконку в нужные пункты меню

Параметры

menu - Хэндл меню

Number - номер меню. Рекомендуется использование номеров от 2 до 65535. Использование 0 запрещено. Использование 1 может вызвать наложение некоторых событий

ImageId - хэндл рисунка(иконки)

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As HMENU menu
dim as integer event
dim as HBITMAP hbitmap
hBitmap=Load_image("С:\WINDOWS\system32\oobe\images\merlin.gif",&hf0f0f0)
hBitmap=Resize_image(hbitmap,25,25)
OpenWindow("",10,10,400,400)
menu=CreatePopMenu()
MenuItem(1001,menu,"1 меню")
MenuItem(1002,menu,"2 меню")
CreateIconItemMenu(menu,1002,hBitmap)
Do
  event=WaitEvent
  If event=EventMenu then
     Select case EventNumber
        Case 1001
           MessBox("","1 меню")
        Case 1002
           MessBox("","2 меню")
     End Select
  ElseIf event=Eventrbup Then
     DisplayPopupMenu(menu, GlobalMouseX,GlobalMouseY)
  EndIf
  If event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free CHM Help documentation generator