METTRE UNE ICÔNES DANS LA BARRE DE TACHES
bid
-
25 janv. 2001 à 23:35
cs_Mauricet Messages postés 89 Date d'inscription lundi 3 mars 2003 Statut Membre Dernière intervention 28 juillet 2008 - 25 févr. 2006 à 16:00
cs_Mauricet Messages postés 89 Date d'inscription lundi 3 mars 2003 Statut Membre Dernière intervention 28 juillet 2008 - 25 févr. 2006 à 16:00
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
https://codes-sources.commentcamarche.net/source/247-mettre-une-icones-dans-la-barre-de-taches
25 févr. 2006 à 16:00
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
13 mai 2005 à 17:44
5 avril 2003 à 14:47
31 janv. 2003 à 13:41
Merci
1 déc. 2002 à 14:53
19 oct. 2002 à 20:04
28 févr. 2002 à 03:29
... Mais achaque fois que je quitte on me dit : ce programme va etre ferme, car il a effectué une opération non conforme , bla, bla ...
POURQUOI ???
30 sept. 2001 à 18:16
'deja il fo cree une form (frmmenu) et cree un menu dans cette form appele menu (avec des sous menus)
'puis :
'vous metez sa dans le module :
Type POINT_TYPE
x As Long
y As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINT_TYPE) As Long
' et dans la sub MontrerMenu metz sa (toujour dans le module):
Dim p As POINT_TYPE
GetCursorPos p
'Puis effacer se qu'il y a entre les deux with screen et metez :
w& = p.x
h& = p.y
'et voila la vous optenez quand vous cliquez sur l'icone dans la barre de taches un super menu ki est pile sur le pointeur de la souris !!
C pas bo sa !!
30 sept. 2001 à 18:07
dans l'astuce du dessous il fo imperativement metre sa dans la sub :
Dim p As POINT_TYPE 'avec les autre et avant ca :
GetCursorPos p
'qui doit etre avant les :
w& = p.x
h& = p.y
'si vous faite pas sa se ne marcheras pas !!
Encore desoler de cet oubli !
30 sept. 2001 à 18:03
il fo un form appele frmmenu,
ensuite un menu appele menu avec des sous menus
et dans le module metez sa avec les declaration :
Type POINT_TYPE
x As Long
y As Long
End Type
' et puis :
Declare Function GetCursorPos Lib "user32" (lpPoint As POINT_TYPE) As Long
'et dans la Public Sub MontrerMenu()
'vous metez entre les deux with screen :
w& = p.x
h& = p.y
'en enlevant tout ce qui y a entre
et comme sa vous optenez en + un bo menu qui aparait juste a cote du pointer !!
27 sept. 2001 à 15:02
En tout cas ca marche.
8 août 2001 à 07:11
5 avril 2001 à 12:25
23 mars 2001 à 11:42
Merci
Bonne continuation
25 janv. 2001 à 23:35
Merci de bien vouloir m'aider.
@+++
25 janv. 2001 à 23:35
Merci de bien vouloir m'aider.
@+++