Discussion :

[Gaetch]

J'ai utilisé le code de Microsoft pour faire apparaître mon programme dans le systray mais le menu contextuel associé à l'icone systray apparait quelquefois n'importe quand pendant l'exécution du programme c'est un peu bizarre. Quelqu'un a-t-il déjà eu ce problème ?

[Gaetch]

Le lien vers le code Microsoft : http://support.microsoft.com/default...=KB;fr;q176085

[SfJ5Rpw8]

ben c'est le code qu'on conseille ici :

Comment mettre mon programme à droite dans la barre des tâches (le systray) ?

et j'ai jamais eu de probléme de ce genre avec..

[Gaetch]

Oui c'est bien ça, ben je sais pas des fois le menu apparait sans prévenir c'est vraiment étrange :/

[Gaetch]

Quelqu'un peut m'expliquer cette fonction ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    'cette procédure reçoit les rappels de l'icône de barre d'état système.
    Dim Result As Long
    Dim msg As Long
    'the value of X will vary depending upon the scalemode setting
    If Me.ScaleMode = vbPixels Then
        msg = x
    Else
        msg = x / Screen.TwipsPerPixelX
    End If
    Select Case msg
        Case WM_LBUTTONUP '514 restore form window
            Me.WindowState = vbNormal
            Result = SetForegroundWindow(Me.hwnd)
            Me.Show
        Case WM_LBUTTONDBLCLK '515 restore form window
            Me.WindowState = vbNormal
            Result = SetForegroundWindow(Me.hwnd)
            Me.Show
        Case WM_RBUTTONUP '517 display popup menu
            Result = SetForegroundWindow(Me.hwnd)
            Me.PopupMenu Me.mPopupSys
    End Select
End Sub

Il sert à quoi le X dans l'histoire ? C'est pas sensé être pour retrouver la position de la souris avec le Y ??

[nono212]

C'est bizarre O.o .
Ca veut dire que si la position de la souris sur l'axe est abscisses est égal = 514. 515 ou 517, ça affiche soit la Form, soit un menu PopUp...
Edit : à mon avis c'est fait pour, car la Form est cachée, ça doit être un petit bidouillage pour que Windows reconnaisse qu'on a cliqué sur l'icône...).