|
 Trouver une ressource
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)
 Informations & options pour cette discussion
mardi 12 novembre 2002 à 12:04:39 |
je arrive pas a mettre mes icons dans mon menu
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
|
|
|
mardi 12 novembre 2002 à 12:19:51 |
Re : je arrive pas a mettre mes icons dans mon menu
BasicInstinct
|
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
|
|
|
mardi 12 novembre 2002 à 12:21:53 |
Re : je arrive pas a mettre mes icons dans mon menu
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
|
|
|
mardi 12 novembre 2002 à 13:48:11 |
Re : je arrive pas a mettre mes icons dans mon menu
BasicInstinct
|
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
|
|
|
jeudi 2 septembre 2004 à 17:53:25 |
Re : je arrive pas a mettre mes icons dans mon menu
aminelgaout
|
voici mon email "Votre texte ICI" j'ai besoin de cherger un eicon sous un menu
Votre texte ici
|
|
|
Cette discussion est classé dans : menu, long, private, hmenu, setmenubitmap
 Répondre à ce message
 Sujets en rapport avec ce message
!! Avis aux boss des Api !!!!!!! [ par schouly ]
Comment capter le click de la souris sur un bouton dans un popupmenu créé par : CreatePopupMenu, TrackPopupMenu, AppendMenuMerci Schoulyex : (allapi.n
voivi un script pour désactiver le bouton fermer d'access [ par antipateik ]
j'ai récupéré ce script sur le super site de http://access.seneque.free.fr/Mon pb c'est que j'y pige pas grand chose set que j'aimerai savoir comment
Pas d'icônes pour les menus invisibles [ par alex_kirchen ]
Salut!J'affiche un menu par un click droit sur ma form (popupmenu monmenu).Ce menu, je lui ai attribué la valuer visible=false.Voilà mon problème:J'ai
Configuration réseau d'un windows XP [ par Gwen38 ]
Bonjour Je cherche actuellement à créé un script pour configurer un machine XP grace à une appli en Visual Basic. Mais j'ai un problème avec la config
Positionnement de la souris à l'écran [ par anthoda ]
Bonjour,Je souhaite positionner le cursor de ma souris à des coordonnées que j'ai choisit lors de l'ouverture de mon application.J'utilise le code sui
Modifications d'un ComboBox [ par perathoner ]
<IMG title=Message height=9 alt=Message src="http://www.developpez.be/forums/templat
Api - BackColor (experts) [ par davidauche ]
Bah après une galère pour détecter le message WM_CTLCOLORSTATIC (avec une méthode conne mais ça marche :) ). Maintenant je me trouve devant une autre
Comprend pas ce qui se passe ! [ par Fripouil ]
Voila, j' ai 50 picturebox représentant des boules ( Boule(0)....Boule(49) ) et 50 picturebox vide ( TBoule(0).....TBoule(49) )Lorsque je clique sur l
Lenteur lors de la lecture/écriture dans unfichier INI [ par nanou1605 ]
Bonjour à tous, J'ai un problème de lenteur lors de la lecture et l'écriture dans un fichier INI. J'ai installé un logiciel sur 10 postes qui va lire
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
|