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 ModifyMenuBynum Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Long) As Long
Private Const MF_BYPOSITION = &H400
Private Const MF_BITMAP = &H4 

Private Sub Form_Load()
    Dim hMenu&, hSubMenu&
    hMenu& = GetMenu(Me.hwnd)
    hSubMenu& = GetSubMenu(hMenu&, 0)
    Call ModifyMenuBynum(hSubMenu&, 0, MF_BITMAP Or MF_BYPOSITION, 0, Picture1.Picture)
End Sub

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

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