title image


Smiley Re: es geht um Menüs mit Icons WER HILFT ??
Lösungsvorschlag:*************Modulebene: **************Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As LongPublic Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As LongPublic Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As LongPublic 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***********Prozedur: ************Public Sub MenüSymbole()'Variable deklarierenDim hMenu&, hSubMenu&, hMenuItem& hMenu = GetMenu(Haupt.hwnd) hSubMenu = GetSubMenu(hMenu, 1)_hMenuItem = GetMenuItemID(hSubMenu, 0): SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, ImageList2.ListImages_("Ansicht").Picture, ImageList2.ListImages_("Ansicht").PictureImageList2.ListImages("Hilfe").Picture End SubViel Erfolg Ingo

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: