Icones dans menu vb6 [Résolu]

Messages postés
47
Date d'inscription
samedi 19 novembre 2005
Dernière intervention
26 janvier 2010
- - Dernière réponse : jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Dernière intervention
11 mars 2006
- 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

Meilleure réponse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Dernière intervention
11 mars 2006
25
3
Merci
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.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 119 internautes nous ont dit merci ce mois-ci

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.