Icones dans menu vb6
Résolu
cs_AVI17
Messages postés
47
Date d'inscription
samedi 19 novembre 2005
Statut
Membre
Dernière intervention
26 janvier 2010
-
12 déc. 2005 à 09:44
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 12 déc. 2005 à 20:03
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 12 déc. 2005 à 20:03
A voir également:
- Setmenuitembitmaps
- Vb6 sleep ✓ - Forum Visual Basic 6
- Vb6 instr - Forum Visual Basic 6
- Vb6 wait ✓ - Forum Visual Basic 6
- Menu php - Forum PHP
- Vb6 windows 10 ✓ - Forum Visual Basic 6
1 réponse
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
12 déc. 2005 à 20:03
12 déc. 2005 à 20:03
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.
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.