Visual Basic FAQ

Как добавить иконку в меню?

Option Explicit
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
Private Const MF_BYPOSITION = &H400 

Private Sub Form_Load()
    Dim hMenu&, hSubMenu&
    hMenu& = GetMenu(Me.hwnd)
    hSubMenu& = GetSubMenu(hMenu&, 0)
    ' Изображение, находящееся в PictureBox, должно представлять собой обычный точечный рисунок (BMP)
    Call SetMenuItemBitmaps(hSubMenu&, 0, MF_BYPOSITION, Picture1.Picture, Picture1.Picture)
End Sub

Результат на рисунке:

Запись опубликована on 23.11.2008 at 13:40 и размещена в рубрике: Меню. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.