Image dans Menu
leptidev
Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007
-
15 avril 2002 à 16:52
cs_lolovivi Messages postés 1 Date d'inscription vendredi 13 juin 2003 Statut Membre Dernière intervention 9 juillet 2003 - 9 juil. 2003 à 16:29
cs_lolovivi Messages postés 1 Date d'inscription vendredi 13 juin 2003 Statut Membre Dernière intervention 9 juillet 2003 - 9 juil. 2003 à 16:29
2 réponses
sygale
Messages postés
24
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
19 mai 2003
16 avril 2002 à 16:59
16 avril 2002 à 16:59
Sygale
Option Explicit
'Apis
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
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const MF_BITMAP = &H4&
Public Sub Init_Menu()
'ILMenu est un objet ImageList standard de VB
'Pour que les image s'affiche il faut des .BMP avec comme format 13x13 et pour faire joli commence tes caption de menu par deux espaces avant la première lettre
Dim hMenu As Long
Dim hID As Long
Dim hSubMenu As Long
'Handle du Menu de la form frmMenu
hMenu = GetMenu(frmMenu.hwnd)
'Handle du premier sous Menu
hSubMenu = GetSubMenu(hMenu, 0)
'Handle de premier item du premier sous menu
hID = GetMenuItemID(hSubMenu, 0)
SetMenuItemBitmaps hMenu, hID, MF_BITMAP, frmMenu.ILMenu.ListImages("CONVER").Picture, frmMenu.ILMenu.ListImages("CONVER").Picture
End Sub
Option Explicit
'Apis
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
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const MF_BITMAP = &H4&
Public Sub Init_Menu()
'ILMenu est un objet ImageList standard de VB
'Pour que les image s'affiche il faut des .BMP avec comme format 13x13 et pour faire joli commence tes caption de menu par deux espaces avant la première lettre
Dim hMenu As Long
Dim hID As Long
Dim hSubMenu As Long
'Handle du Menu de la form frmMenu
hMenu = GetMenu(frmMenu.hwnd)
'Handle du premier sous Menu
hSubMenu = GetSubMenu(hMenu, 0)
'Handle de premier item du premier sous menu
hID = GetMenuItemID(hSubMenu, 0)
SetMenuItemBitmaps hMenu, hID, MF_BITMAP, frmMenu.ILMenu.ListImages("CONVER").Picture, frmMenu.ILMenu.ListImages("CONVER").Picture
End Sub
cs_lolovivi
Messages postés
1
Date d'inscription
vendredi 13 juin 2003
Statut
Membre
Dernière intervention
9 juillet 2003
9 juil. 2003 à 16:29
9 juil. 2003 à 16:29
-------------------------------
Réponse au message :
-------------------------------
> Bonjour, je voudrais savoir comment on peut insérer des images dans le menu déroulant
Réponse au message :
-------------------------------
> Bonjour, je voudrais savoir comment on peut insérer des images dans le menu déroulant