Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Menüeinträge mit Bildern, Icons
Autor: Thomas A.
Datum: 17.06.03 18:34
Das ist doch gar nicht mal so schwer!!! Und hier gleich mal ein Code zum testen. Tschüss Thomas A. 'Icons zu Menüeinträgen hinzufügen '================================= 'Wenn Sie vor den Menüeinträgen Icons anzeigen wollen, 'wie dies ja bei vielen Programmen der Fall ist, benötigen 'Sie folgende Funktionen: Private Const MF_BITMAP = &H4& Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu 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 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 'Um nun ein vor einem Menüeintrag ein Icon anzuzeigen, 'müssen Sie folgende Befehle verwenden: Private Sub Form_Load() Dim hMenu&, hSubMenu&, hMenuItem& hMenu = GetMenu(Form1.hwnd) 'Menüleiste hSubMenu = GetSubMenu(hMenu, 0) '1. Menü hMenuItem = GetMenuItemID(hSubMenu, 0) '1.Eintrag SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Picture1.Picture, Picture1.Picture hMenuItem = GetMenuItemID(hSubMenu, 1) '2.Eintrag SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Picture2.Picture, Picture2.Picture hMenuItem = GetMenuItemID(hSubMenu, 2) '3.Eintrag SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Picture3.Picture, Picture3.Picture hSubMenu = GetSubMenu(hMenu, 1) '2. Menü hMenuItem = GetMenuItemID(hSubMenu, 0) '1.Eintrag SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Picture4.Picture, Picture4.Picture End Sub '******* 'Information zu dem benötigten Bild: 'Es besteht auch die Möglichkeit, statt der PictureBox ein 'Image zu verwenden 'Hiermit wird dem ersten Menüeintrag das Bild, das in 'Picture1 enthalten ist, zugeordnet. 'Dieses Bild sollte 13x10 (Getestet 13x13 - besser!!!) Pixel 'groß sein, und darf kein 'Icon (*.ico) sein. 'Sie können auch ein anderes Bild verwenden, wenn das Menü 'markiert ist. Dann müssen Sie dieses als letzten Parameter 'an die Funktion "SetMenuItemBitmaps" übergeben.

Menüeinträge mit Bildern, Icons	802	ramboch	17.06.03 15:57
Re: Menüeinträge mit Bildern, Icons	555	Dieter	17.06.03 17:18
Re: Menüeinträge mit Bildern, Icons	588	ramboch	17.06.03 18:33
Re: Menüeinträge mit Bildern, Icons	151	Thomas A.	17.06.03 18:34
Re: Menüeinträge mit Bildern, Icons	525	--Florian--	25.06.03 14:50
Re: Menüeinträge mit Bildern, Icons	491	ramboch	25.06.03 15:08

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