Seid gegrüßt zusammen,
letztens habe ich angefangen mit VB zu programmieren,
doch schon nach kurzer Zeit kam ich irgendwie nicht weiter,
da ich versuchte Icons in das Menü zu integrieren.
Wie zum Beispiel bei dem Menüpunkt ‚Speichern‘ das
allbekannte Speichern-Symbol.
Über eure Hilfe wäre ich wirklich dankbar.
Viele Grüße,
Cearbhall.
Icons im Menue …
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 Function SetMenuIcon(FrmHwnd As Long, \_
MainMenuNumber As Long, MenuItemNumber As Long, \_
Flags As Long, BitmapUncheckedHandle As Long, \_
BitmapCheckedHandle As Long)
On Error Resume Next
Dim lngMenu As Long
Dim lngSubMenu As Long
Dim lngMenuItemID As Long
lngMenu = GetMenu(FrmHwnd)
lngSubMenu = GetSubMenu(lngMenu, MainMenuNumber)
lngMenuItemID = GetMenuItemID(lngSubMenu, MenuItemNumber)
SetMenuIcon = SetMenuItemBitmaps(lngMenu, lngMenuItemID, Flags, BitmapUncheckedHandle, BitmapCheckedHandle)
End Function
Hallo SilentCinema,
vielen Dank für den Code,
werde ihn gleich einmal austesten.
Irgendwann muss dies eben mit dem Menü klappen 
Schönen Tag noch,
Cearbhall.