SYSTRAY FACILE : MODULE DE CLASSE

Commentaire de Nox le 18/12/2002 23:20:03

pratik, tres pratique... surtout que c tres facile!
9/10

Commentaire de cosmic le 19/12/2002 07:17:01

pas mal du tout...
et très léger...

@+ c'est good

Commentaire de thepopolinux le 13/01/2003 18:15:03

Je suis le seul con à pas savoir le faire tourner !
ça dois être ma version de merde de VB !

Commentaire de emelaz le 14/03/2003 16:50:41

y aurai moyens d'avoir cette source modifé avec le bouton droit et/ou gauche en plus.......... ca serai sympas car elle est pas mal du tout cette source

Commentaire de gabchampagne le 16/05/2003 18:49:33

comment on fait pour utiliser des évènements comme un click par exemple

Commentaire de Programmeur1987 le 29/06/2003 16:14:18

Moi sa ne fonctionne pas et suis sous Vb6

Programmeur 1987

Commentaire de neoprog le 04/03/2004 21:07:14

Oui ce code est tres bien ...

A condition de conaitre les events :

left button pressed     7695
left button released    7710
right button pressed   7740
right button released  7755
double left click          7725
double right click        7770
movement                 7680

Commentaire de neoprog le 04/03/2004 21:07:28

Oui ce code est tres bien ...

A condition de conaitre les events :

left button pressed     7695
left button released    7710
right button pressed   7740
right button released  7755
double left click          7725
double right click        7770
movement                 7680

Commentaire de feliciend le 17/03/2004 11:48:44

hello,
je voudrais intégrer cette classe dans un projet .NET, et j'ai qq erreurs : la conversion de hicon était plutot douteuse mais je pense avoir passé, le pb ; là mon problème c'est que l'icone ne s'affiche pas ... il y a un emplacement dans le systray pour mon icone mais c'est comme si elle était invisible :-/

Commentaire de Mrx3 le 18/03/2004 21:05:54

Moi g pas compris comment faire quelque chose quand l'utilisateur clique sur l'icone. Quelqu'un pourrai m'expliquer ?

Commentaire de jbbeauf le 19/08/2004 00:09:45

ouai, c'est vrai que la classe est super pratique mais il manquait la gestion des clicks de notre bonne souris

J'ai rajouté quelques lignes dans la classe :

Public Sub click(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static rec As Boolean, msg As Long

msg = X / Screen.TwipsPerPixelX
If rec = False Then
    rec = True
    Select Case msg
        Case WM_LBUTTONDBLCLK:
        Case WM_LBUTTONDOWN:
        Case WM_LBUTTONUP:
        Case WM_RBUTTONDBLCLK:
        Case WM_RBUTTONDOWN:
        Case WM_RBUTTONUP:
    End Select
    rec = False
End If

End Sub

Il faut alors mettre dans le code de la form où on a défini l'icone ceci :

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    myicon.click Button, Shift, X, Y
End Sub

Et voilà, vous mettez dans le case ce que vous voullez !!!


J'au aussi une question/problème : quand j'appelle myicon.hide l'icone ne disparait pas dans le systray : il faut que je passe ma souris dessus pour qu'elle disparaisse. Est ce normal, y a t il des solutions ?

merci
JB

Commentaire de jbbeauf le 01/02/2005 21:55:39

merci pour l'info !!

ça pourra me servir maintenant ! Pour contourner le problème je faisais en sorte avant que pour que l'icône disparaisse, il fallait double cliquer dessus : comme ça la souris se trouvait déjà dessus :-)

JB

Commentaire de pekch le 01/07/2006 00:59:18

Et à tout hasard, quelqu'un aurait une solution de remplacement pour gérer les évents? Parce que par exemple, on dit que 7680, c'est quand on passe avec la souris sur l'icone dans le tray. Ok, mais le probleme, c'est que si la feuille est visible et que la souris passe sur celle ci a 7680 sur X, ca déclenche aussi l'évenement. C'est pas terrible, si?
Alors y'a bien moyen de finter, mais au final ca reste du bricolage, c'est pas trop top...

Commentaire de tototh le 16/02/2007 09:57:52

Cela est tellement simple que cela en est indécent. ;-)
8eme merveille du monde ? ;-)

Non vraiment, c’est simple et très facile.
Je te remercie cela me sert, je débute en terme de systray.
cela vaut bien une bonne note.

Commentaire de philippe laschweng 1 le 05/04/2007 20:54:04

Bah j'ai trouvé finallement (je précise si cela peut servir à d'autres) :

Pour minimizer la Form dans le SYSTRAY
Private Sub Form_Resize()
    'Nécessaire pour assurer que la fenêtre réduite soit masquée
    If Me.WindowState = vbMinimized Then Me.Hide
End Sub

Pour la réaaficher par Click GAUCHE par exemple

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case X
        Case 7755:   'Right Click
        Case 7725:    'Dbl Left Click
            Me.WindowState = vbNormal
            Result = SetForegroundWindow(Me.hwnd)
            Me.Show
    End Select
End Sub

Voili voulou. Si il y'a plus simple, merci de partager l'info.
A+