Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Menü grafisch bearbeiten...
Autor: Plader
Datum: 20.12.02 15:14
Hallo, ich möchte eine Menüleiste im Programm (oben: Datei, bearbeiten etc.)grafisch bearbeiten. Also nicht das Standard grau, sondern in diesem Bereich möchte ich Bilder einsetzten. Ich hab eine Code gefunden, nur bin ich mir nicht mal sicher, ob dieser den Zweck erfüllt. Kann jemand von euch beurteilen, ob dieser Code dafür geeignet ist? Wenn ja, ich verstehe die Umsetzung nicht Der Code: ------------------------------------------------------------------------------------------------------------------- Const MF_BITMAP = 4 Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function GetSubMenu Lib "user32" (ByVal hWnd As Long, ByVal nPos As Long) As Long Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Long) As Long Private Sub Form_Load() Dim hMenu As Long, hSubMenu As Long, menuID As Long hMenu = GetMenu(hWnd) '<= Menüleiste hSubMenu = GetSubMenu(hMenu, 0) '<=Nr des Hauptmenüs menuID = GetMenuItemID(hSubMenu, 0) '<= Nr des Submenus ModifyMenu hMenu, menuID, MF_BITMAP, menuID, CLng(Picture1.Picture) End Sub ------------------------------------------------------------------------------------------------------------------ Ist dieser Code dafür nicht geeignet, kennt jemand einen anderen bzw. eine andere Möglichkeit mein Ziel zu erreichen? Bitte um Hilfe...

Menü grafisch bearbeiten...	518	Plader	20.12.02 15:14
Re: Menü grafisch bearbeiten...	298	Dieter	21.12.02 11:07

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen