Bitmap vor MenuItem

[MVXA]

Hallo !
Nix besonderes, wollt nur ein kleines Beispiel posten, wie man vor einem MenuItem eine Bitmap setzen kann. Hier das Beispiel:

Code: Alles auswählen

CreateImage(0, 16, 16)

OpenWindow(0, 10, 10, 200, 100, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "Menu Test")
If CreateMenu(0, WindowID())    ; hier beginnt das Erstellen des Menüs... 
    MenuTitle("Datei") 
    MenuItem(1, "Open"   +Chr(9)+"Ctrl+O") 
    MenuItem(2, "Save"   +Chr(9)+"Ctrl+S") 
    MenuItem(3, "Save as"+Chr(9)+"Ctrl+A") 
    MenuItem(4, "Close"  +Chr(9)+"Ctrl+C") 
EndIf 
SetMenuItemBitmaps_(MenuID(), 1, #MF_BYPOSITION, ImageID(), ImageID())

Repeat
    
Until WaitWindowEvent() = #PB_Event_CloseWindow

Hier ne kurze erklärung der API [c]SetMenuItemBitmaps_()[/c]:

Code: Alles auswählen

SetMenuItemBitmaps_(hMenu, uPosition, uFlags, hBitmapUnchecked, hBitmapChecked)

hMenu            - hWnd zum Menü, wo sich das Menüitem befindet
uPosition        - Position im Menü des Menüitems
uFlags           - Keine Ahnung o_O. Sollte #MF_BYPOSITION bleiben
hBitmapUnchecked - hWnd von einem Bild im Ram. Angezeigt, wenn sich vor dem Menüitem kein Häckchen befindet
hBitmapChecked   - hWnd von einem Bild im Ram. Angezeigt, wenn sich vor dem Menüitem ein Häckchen befindet

Setzt ein kleines Icon vor einem Menuitem im Menü. Kann dazu benutzt werden um ein Programm grafisch etwas aufzuwerten. 

Das Beispiel habe ich teilweise von www.ActiveVB.de und die Beschreibung hatten sie nicht, deswegen hab ich schnell eine gemacht

[netfreak]

Hallo,

fein,fein!
Ich denke das sollte man ins CodeArchiv auf nehmen!

mfg
netfreak

[Andre]

Ich denke das sollte man ins CodeArchiv auf nehmen!

Ist schon vorgemerkt (werde aber trotzdem noch mit ähnlichen evtl. bereits vorhandenen Codes abgleichen ).

[MVXA]

juhu, n Codeschnippsel von mir schafft es ins CodeArchiv ^^ *freu*