Bitmaps im Menü Mit Hilfe der Windows-API können auch Sie Icons in Ihrer Menüleiste anzeigen.
Autor:   LonelySuicide666	Bewertung:     [ Jetzt bewerten ]	Views:  25.867
www.vbapihelpline.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 17 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit Hilfe der Windows-API können auch Sie Icons in den Menüleisten Ihrer Anwendung anzeigen lassen. Ein kleines Manko ist jedoch, daß die Bildsymbole nicht in der Größe 16x16 dargestellt, sondern im etwas eigenartigen Format 13x13. Somit werden die kleinen "Standard-Icons" sowohl in der Breite als auch in der Höhe gestaucht, was mit unter nicht mehr so schön aussieht.

' Alle benötigten API-Deklarationen
Public Declare Function LoadImage Lib "user32" _
  Alias "LoadImageA" ( _
  ByVal hInst As Long, _
  ByVal lpsz As String, _
  ByVal un1 As Long, _
  ByVal n1 As Long, _
  ByVal n2 As Long, _
  ByVal un2 As Long) As Long
 
Public Declare Function GetMenu Lib "user32" ( _
  ByVal hwnd As Long) As Long
 
Public Declare Function GetSubMenu Lib "user32" ( _
  ByVal hMenu As Long, _
  ByVal nPos As Long) As Long
 
Public Declare Function GetMenuItemID Lib "user32" ( _
  ByVal hMenu As Long, _
  ByVal nPos As Long) As Long
 
Public 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
 
Public Declare Function GetSystemMenu Lib "user32" ( _
  ByVal hwnd As Long, _
  ByVal bRevert As Long) As Long
 
Public Declare Function DeleteObject Lib "gdi32.dll" ( _
  ByVal hObject As Long) As Long
 
Public Const MF_BYPOSITION = &H400
Public Const MF_BITMAP = &H4&
Public Const LR_LOADFROMFILE = &H10
Public Const IMAGE_BITMAP = 0

Die einzelnen Bildsymbole werden zunächst mittels der LoadImage-Funktion aus den entsprechenden Dateien in verschiedene Variablen-Arrays gespeichert.

Option Explicit
' Bitmap-Handles der Bildsymbole "im Speicher halten"
Dim imgHandle() As Long
 
Private Sub Form_Load()
  Dim imgCount As Long
 
  ' Insgesamt 3 verwendete Bildsymbole (0-2)
  imgCount = 2
  ReDim imgHandle(imgCount)
 
  ' Bildsymbole laden
  imgHandle(0) = LoadImage(App.hInstance, _
    App.Path & "\Open.bmp", IMAGE_BITMAP, 16, 16, _
    LR_LOADFROMFILE)
 
  imgHandle(1) = LoadImage(App.hInstance, _
    App.Path & "\Save.bmp", IMAGE_BITMAP, 16, 16, _
    LR_LOADFROMFILE)
 
  imgHandle(2) = LoadImage(App.hInstance, _
    App.Path & "\Close.bmp", IMAGE_BITMAP, 16, 16, _
    LR_LOADFROMFILE)
 
  ...

Um die geladenen Symbole nun den einzelnen Menüeinträgen zuzuordnen, bedient man sich der API-Funktion SetMenuItemBitmaps. Die Funktion erwartet als ersten Parameter die ID des Menüs der Menüleiste. Die einzelnen Menüs von links nach rechts durchlaufend numeriert, wobei das erste Menü die ID 0 hat. Als zweiten Parameter muss man die Position des Menüeintrags innerhalb des Menüs angeben. Auch hier beginnt die Zählung wieder bei 0. Für den dritten Parameter geben Sie MF_BITMAP an. Der vierte Parameter ist dann das Handle des Bitmaps. Als letzten Parameter geben Sie 0& an.

  ...
  Dim MenuBar As Long
  Dim Menu As Long
  Dim SubMenu As Long
 
  ' Handle der Menüleiste
  MenuBar = GetMenu(Me.hwnd)
 
  ' Handle des ersten Menüs (von links): ID 0
  Menu = GetSubMenu(MenuBar, 0)
 
  ' Handle des ersten Eintrags im ersten Menü
  SubMenu = GetSubMenu(Menu, 0)
  SetMenuItemBitmaps Menu, SubMenu, MF_BITMAP, _
    imgHandle(0), 0&
 
  ' Handle des zweiten Eintrags im ersten Menü
  SubMenu = GetSubMenu(Menu, 1)
  SetMenuItemBitmaps Menu, SubMenu, MF_BITMAP, _
    imgHandle(1), 0&
 
  ' Handle des dritten Eintrags im ersten Menü
  SubMenu = GetSubMenu(Menu, 2)
  SetMenuItemBitmaps Menu, SubMenu, MF_BITMAP, _
    imgHandle(2), 0&
End Sub

Das war es schon. Zu beachten ist noch, daß Sie die Resourcen beim Beenden (Entladen) der Form wieder freigegeben. Dies erfolgt am besten im Form_Unload-Ereignis.

Private Sub Form_Unload()
  ' Bitmap-Resourcen wieder freigeben
  Dim i As Integer
 
  For i = 0 To Ubound(imgHandle)
    DeleteObject imgHandle(i)
  Next i
End Sub