Icones dans menu vb6 [Résolu]

cs_AVI17 47 Messages postés samedi 19 novembre 2005Date d'inscription 26 janvier 2010 Dernière intervention - 12 déc. 2005 à 09:44 - Dernière réponse : jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention
- 12 déc. 2005 à 20:03
Comment mettre des icones sur les lignes de mes menus sous vb6
merci de la réponse.
Afficher la suite 

1 réponse

jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention - 12 déc. 2005 à 20:03
+3
Utile
Bonsoir,

Pour réaliser cet exemple, crée trois sous-menu, place trois PictureBox
avec une image BITMAP dans leur propriété picture, mets AutoSize à True
et leur propriété visible à False. (dans l'exemple les PictureBox sont
nommés,( PicEnregistrer, PicOuvrir et PicStop)



'Dans un Module.



Public Declare Function GetMenu Lib "user32" (ByVal hwnd 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 Const M_BITMAP = 4&



'Dans la Form



Private Sub Form_Load()

Dim hMenu As Long

Dim hSousMenu As Long

Dim ID As Long



' le premier sousmenu a pour index 2, le suivant 3 etc...



hMenu = GetMenu(Me.hwnd)

' Premier sous-menu <ouvrir>



ID = 2

SetMenuItemBitmaps hMenu, ID, M_BITMAP, PicOuvrir.Picture, PicOuvrir.Picture

'Deuxième Sous-Menu <Enregistrer>



ID = 3

SetMenuItemBitmaps hMenu, ID, M_BITMAP, PicEnregistrer.Picture, PicEnregistrer.Picture



ID = 5

SetMenuItemBitmaps hMenu, ID, M_BITMAP, PicStop.Picture, PicStop.Picture

End Sub



Private Sub mnuQuitter_Click()

End

End Sub



jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.
Cette réponse vous a-t-elle aidé ?  

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.