Trouver une ressource (Nouvelle version du moteur, plus rapide & pertinent, essayez le !)
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
Sujet : je arrive pas a mettre mes icons dans mon menu [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (laulaut)
|
je arrive pas a mettre mes icons dans mon menu
le 12/11/2002 12:04:39
laulaut
|
voila le code que j'ai mais il a pas de icon devant je comprend pas
Option Explicit
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 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 Const MF_BITMAP = &H4&
Private Sub Form_Load()
'----------------------
'| Fichier | Edition |
'----------------------
'-Quitter
'Menu 0 Niveau 0
SetMenuBitmap Me, Array(0, 0), 2, Picture1.Picture
'----------------------
'| Fichier | Edition |
'----------------------
'---------- Copier
'Menu 1 Niveau 0
SetMenuBitmap Me, Array(1, 0), 4, Picture2.Picture
'----------------------
'| Fichier | Edition |
'----------------------
'---------- Copier
'---------- Mnu
'---------- |-> Test
'Menu 1 Niveau 1 Sous Menu 0
SetMenuBitmap Me, Array(1, 1, 0), 6, Picture3.Picture
End Sub
Public Sub SetMenuBitmap(ByVal Frm As Form, ByVal item_numbers As Variant, ByVal NumMenu As Integer, ByVal pic As Picture)
Dim hMenu As Long
Dim Boucle As Integer
'Cherche le handle du menu choisi
hMenu = GetMenu(Frm.hwnd)
For Boucle = LBound(item_numbers) To UBound(item_numbers) - 1
hMenu = GetSubMenu(hMenu, item_numbers(Boucle))
Next
SetMenuItemBitmaps hMenu, NumMenu, MF_BITMAP, pic.Handle, pic.Handle
End Sub
|
merci de votre aide
|
|
|
|
Re : je arrive pas a mettre mes icons dans mon menu
le 12/11/2002 12:19:51
BasicInstinct
 Membre Club
|
Je sais pas si ca va t'aider, mais j'ai un prog qui utilise le meme type de code que toi, il tourne tres bien sous 98, mais pas sous Xp (pas de plantage, mais pas d'icones) ------------------------------- Réponse au message : ------------------------------- voila le code que j'ai mais il a pas de icon devant je comprend pas
Option Explicit
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 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 Const MF_BITMAP = &H4&
Private Sub Form_Load()
'----------------------
'| Fichier | Edition |
'----------------------
'-Quitter
'Menu 0 Niveau 0
SetMenuBitmap Me, Array(0, 0), 2, Picture1.Picture
'----------------------
'| Fichier | Edition |
'----------------------
'---------- Copier
'Menu 1 Niveau 0
SetMenuBitmap Me, Array(1, 0), 4, Picture2.Picture
'----------------------
'| Fichier | Edition |
'----------------------
'---------- Copier
'---------- Mnu
'---------- |-> Test
'Menu 1 Niveau 1 Sous Menu 0
SetMenuBitmap Me, Array(1, 1, 0), 6, Picture3.Picture
End Sub
Public Sub SetMenuBitmap(ByVal Frm As Form, ByVal item_numbers As Variant, ByVal NumMenu As Integer, ByVal pic As Picture)
Dim hMenu As Long
Dim Boucle As Integer
'Cherche le handle du menu choisi
hMenu = GetMenu(Frm.hwnd)
For Boucle = LBound(item_numbers) To UBound(item_numbers) - 1
hMenu = GetSubMenu(hMenu, item_numbers(Boucle))
Next
SetMenuItemBitmaps hMenu, NumMenu, MF_BITMAP, pic.Handle, pic.Handle
End Sub
|
merci de votre aide
|
|
|
|
Re : je arrive pas a mettre mes icons dans mon menu
le 12/11/2002 12:21:53
laulaut
|
moi je suis sur 2000 peut tu me envoye tes code ou ta source pour que vois pourquoi ca marche pas ------------------------------- Réponse au message : ------------------------------- Je sais pas si ca va t'aider, mais j'ai un prog qui utilise le meme type de code que toi, il tourne tres bien sous 98, mais pas sous Xp (pas de plantage, mais pas d'icones) ------------------------------- Réponse au message : ------------------------------- voila le code que j'ai mais il a pas de icon devant je comprend pas
Option Explicit
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 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 Const MF_BITMAP = &H4&
Private Sub Form_Load()
'----------------------
'| Fichier | Edition |
'----------------------
'-Quitter
'Menu 0 Niveau 0
SetMenuBitmap Me, Array(0, 0), 2, Picture1.Picture
'----------------------
'| Fichier | Edition |
'----------------------
'---------- Copier
'Menu 1 Niveau 0
SetMenuBitmap Me, Array(1, 0), 4, Picture2.Picture
'----------------------
'| Fichier | Edition |
'----------------------
'---------- Copier
'---------- Mnu
'---------- |-> Test
'Menu 1 Niveau 1 Sous Menu 0
SetMenuBitmap Me, Array(1, 1, 0), 6, Picture3.Picture
End Sub
Public Sub SetMenuBitmap(ByVal Frm As Form, ByVal item_numbers As Variant, ByVal NumMenu As Integer, ByVal pic As Picture)
Dim hMenu As Long
Dim Boucle As Integer
'Cherche le handle du menu choisi
hMenu = GetMenu(Frm.hwnd)
For Boucle = LBound(item_numbers) To UBound(item_numbers) - 1
hMenu = GetSubMenu(hMenu, item_numbers(Boucle))
Next
SetMenuItemBitmaps hMenu, NumMenu, MF_BITMAP, pic.Handle, pic.Handle
End Sub
|
merci de votre aide
|
|
|
|
Re : je arrive pas a mettre mes icons dans mon menu
le 12/11/2002 13:48:11
BasicInstinct
Membre Club
|
je suis parti de cette source la au depart http://www.vbfrance.com/article.aspx?Val=429 ------------------------------- Réponse au message : ------------------------------- moi je suis sur 2000 peut tu me envoye tes code ou ta source pour que vois pourquoi ca marche pas ------------------------------- Réponse au message : ------------------------------- Je sais pas si ca va t'aider, mais j'ai un prog qui utilise le meme type de code que toi, il tourne tres bien sous 98, mais pas sous Xp (pas de plantage, mais pas d'icones) ------------------------------- Réponse au message : ------------------------------- voila le code que j'ai mais il a pas de icon devant je comprend pas
Option Explicit
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 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 Const MF_BITMAP = &H4&
Private Sub Form_Load()
'----------------------
'| Fichier | Edition |
'----------------------
'-Quitter
'Menu 0 Niveau 0
SetMenuBitmap Me, Array(0, 0), 2, Picture1.Picture
'----------------------
'| Fichier | Edition |
'----------------------
'---------- Copier
'Menu 1 Niveau 0
SetMenuBitmap Me, Array(1, 0), 4, Picture2.Picture
'----------------------
'| Fichier | Edition |
'----------------------
'---------- Copier
'---------- Mnu
'---------- |-> Test
'Menu 1 Niveau 1 Sous Menu 0
SetMenuBitmap Me, Array(1, 1, 0), 6, Picture3.Picture
End Sub
Public Sub SetMenuBitmap(ByVal Frm As Form, ByVal item_numbers As Variant, ByVal NumMenu As Integer, ByVal pic As Picture)
Dim hMenu As Long
Dim Boucle As Integer
'Cherche le handle du menu choisi
hMenu = GetMenu(Frm.hwnd)
For Boucle = LBound(item_numbers) To UBound(item_numbers) - 1
hMenu = GetSubMenu(hMenu, item_numbers(Boucle))
Next
SetMenuItemBitmaps hMenu, NumMenu, MF_BITMAP, pic.Handle, pic.Handle
End Sub
|
merci de votre aide
|
|
|
|
Re : je arrive pas a mettre mes icons dans mon menu
le 02/09/2004 17:53:25
aminelgaout
|
voici mon email "Votre texte ICI" j'ai besoin de cherger un eicon sous un menu
Votre texte ici
|
|
|
Classé sous : menu, long, private, hmenu, setmenubitmap
|
CalendriCode
| | | L | M | M | J | V | S | D |
| | 1 | 2 | 3 | 4 | 5 | 6 |
| 7 | 8 | 9 | 10 | 11 | 12 | 13 |
| 14 | 15 | 16 | 17 | 18 | 19 | 20 |
| 21 | 22 | 23 | 24 | 25 | 26 | 27 |
| 28 | 29 | 30 | 31 | | | |
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|