METTRE UNE ICÔNES DANS LA BARRE DE TACHES

Signaler
-
cs_Mauricet
Messages postés
89
Date d'inscription
lundi 3 mars 2003
Statut
Membre
Dernière intervention
28 juillet 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/247-mettre-une-icones-dans-la-barre-de-taches

cs_Mauricet
Messages postés
89
Date d'inscription
lundi 3 mars 2003
Statut
Membre
Dernière intervention
28 juillet 2008

Bonjour
Beaucoup de fautes d'orthographe et de précipitations pour rien
Cela ne fonctionne pas
Le bon code avec Explicit
Public Sub MontrerMenu()
Dim hMenu As Long
Dim hSousmenu As Long
Dim RetVal As Long
Dim p As POINT_TYPE
Dim w As Long
Dim h As Long

GetCursorPos p

hMenu = GetMenu(frmmenu.hwnd)
hSousmenu = GetSubMenu(hMenu, 0)
'
SetMenuDefaultItem hSousmenu, 0, True
With Screen
w = p.x
h = p.y
End With

RetVal = TrackPopupMenu(hSousmenu, TPM_RIGHTALIGN, w&, h&, 0&, frmmenu.hwnd, ByVal 0&)
End Sub

Maurice
brahim431
Messages postés
1
Date d'inscription
vendredi 29 avril 2005
Statut
Membre
Dernière intervention
13 mai 2005

mais ou est le zip stp
cs_Urgo
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1
LE ZIPPPPPPP PLEASE !!!!!
moaleboss
Messages postés
19
Date d'inscription
lundi 20 janvier 2003
Statut
Membre
Dernière intervention
24 juillet 2007

Ton code est vraiment super, mais si tu y metteia un zip ou quelque chose dans le genre, ca serai super.
Merci