Sytchev3
Messages postés89Date d'inscriptionjeudi 17 mars 2005StatutMembreDernière intervention26 avril 2012
-
31 mai 2005 à 16:50
cs_MasterHack
Messages postés586Date d'inscriptionjeudi 18 septembre 2003StatutMembreDernière intervention13 février 2008
-
1 juin 2005 à 15:07
Je souhaiterais savoir si il est possible d'insérer des petites images ou icon juste à coté d'un menu, dans le créateur de menu je n'ai rien vu permettant de faire cela.
cs_MasterHack
Messages postés586Date d'inscriptionjeudi 18 septembre 2003StatutMembreDernière intervention13 février 20082 31 mai 2005 à 18:29
bon voila tu cree un menu Fichier-
-Enregister
-Ouvrir etc
Tu place un picturebox apple "P" et tu y place une petite Image
puis ce code:
Private Declare Function GetMenu Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32.dll" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetMenuItemID Lib "user32.dll" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32.dll" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
Private Const MF_BITMAP As Long = &H4&
Private Sub Form_Load()
Dim a&, b&, c&
a& = GetMenu(hwnd)
b& = GetSubMenu(a&, 0)
c& = GetMenuItemID(b&, 0)
SetMenuItemBitmaps b&, c&, MF_BITMAP, CLng(P), CLng(P)
End Sub
Hasta la vista
<HR>
Life is short...Learn more
Copy Rights <> Rights to Copy
cs_MasterHack
Messages postés586Date d'inscriptionjeudi 18 septembre 2003StatutMembreDernière intervention13 février 20082 31 mai 2005 à 16:56
Salut; bon cherches pas ds le createur de menu,la reponse ce resume ds l'etulisation des apis windows:
GetMenu
GetSubMenu
GetMenuItemID
Modifymenu
SetMenuItemBitmap
Ciao et bonne chance
<HR>
Life is short...Learn more
Copy Rights <> Rights to Copy