Probleme avec le TIMER de VB6Résolu

Question

Slu



j utilise un timer pour mon App, et egalement un menu Popup que j affiche avec le clic droit sur l icone dans le Systray.

Que le timer soit actif ou pas si la fonction Private Sub Timer_Timer()
est presente dans le code le menu poptray ne s affiche pas lors du
premier clic mais lors de deuxieme !



est ce que qqn sait d ou cela vient et si il y a une soluce ?



thx

Herve

PCPT · Accepted Answer

salut,
oui, en effet, mais c'est bien la preuve qu'il n'y a aucun rapport avec le timer ;)

le probl&#232;me se situe au niveau du focus. la premi&#232;re fois que tu click, le systray prend le focus, donc la form le perd, et c'est tout. et seulement ensuite, le click est efficace.

il faut ajouter un SetForeGround lors de chaque click

module :
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long

form :

'(...)
        Case WM_RBUTTONDOWN 'Me.Caption = "Right Click"
            Call SetForegroundWindow(Me.hWnd)
            PopupMenu MNUazerty
'(...)

PCPT

PCPT · Answer

salut......
un peu trop peu d'explications pour pouvoir donner suite (non?)
PCPT

Seth77 · Answer

ben je ne crois pas ...

des que la fonction Timer_Timer()  est dans le code (sans pour
autant faire qqchose il faut que je clic 2X pour faire apparaitre le
menu

Herve

PCPT · Answer

le probl&#232;me vient donc forc&#233;ment de ce qu'elle contient, et non juste sa d&#233;claration vierge.....
PCPT

Seth77 · Answer

j ai essaye de mettre sans code et cela fait le meme bug, juste la declaration




Herve

PCPT · Answer

donc t'a juste un timer enabled=true, sans instruction (puisque pareil), et un &#233;v&#232;nement systray genre

private sub Systray_Click()
   popupmenu PopTray
end sub

c'est bien &#231;&#224;? aucun bool&#233;en qui vient g&#233;ner, ou quoi que ce soit?
pas un "me" ou "systray" show ou hide qui vient interf&#233;rer?

PCPT

Seth77 · Answer

voici le code : Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long 'Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) ' If (KeyCode = 27) Then ' If (STATION_LOCK = True) Then ' StationLock False ' Else ' StationLock True ' End If ' End If ' ' If (KeyCode >= vbKeyA And KeyCode <= vbKeyZ) Then ' LB_Password.Caption = LB_Password.Caption & Chr(KeyCode) ' End If ' ' If (KeyCode >= vbKey0 And KeyCode <= vbKey9) Then ' LB_Password.Caption = LB_Password.Caption & Chr(KeyCode) ' End If 'End Sub Private Sub Form_Load() MNU.Visible = False 'ToujoursVisible FRM_Main, True ' Tray Icone Tic.cbSize = Len(Tic) Tic.hwnd = PB_Ico.hwnd Tic.uID = H1& Tic.uFlags = NIF_DOALL Tic.uCallbackMessage = WM_MOUSEMOVE Tic.hIcon = PB_Ico.Picture erg = Shell_NotifyIcon(NIM_ADD, Tic) ' CheckKey ' ' LB_Password.Caption = "" ' StationLock False End Sub Private Sub CMD_LOCK_Click() LB_Password.Caption = "" End Sub Private Sub Form_Unload(Cancel As Integer) If (STATION_LOCK = True) Then Cancel = 1 Else erg = Shell_NotifyIcon(NIM_DELETE, Tic) End If End Sub Private Sub MNU_QUITTER_Click() Unload Me End Sub Private Sub PB_Ico_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) X = X / Screen.TwipsPerPixelX If (STATION_LOCK = True) Then Exit Sub Select Case X Case WM_LBUTTONDOWN 'Me.Caption = "Left Click" Case WM_RBUTTONDOWN 'Me.Caption = "Right Click" PopupMenu MNU Case WM_MOUSEMOVE 'Me.Caption = "Move" Case WM_LBUTTONDBLCLK 'Me.Caption = "Double Click" End Select End Sub Private Sub Timer_Timer() ' If (STATION_LOCK = True) Then ' SetCursorPos 10000, 10000 ' FRM_Main.SetFocus ' End If End Sub Private Sub StationLock(Val As Boolean) STATION_LOCK = Val FRM_Main.Caption = Val Timer.Enabled = Val End Sub Herve

PCPT · Answer

vouaip, mais comme il manque le code pour le systray.....
PCPT

Gobillot · Answer

&#233;vite d'appeler ta donn&#233;e Val c'est un mot r&#233;serv&#233;



j'ai aussi un Timer avec le systray et aucun probl&#232;me.

Daniel

Seth77 · Answer

J ai essaye dans un nouveau projet :



dans une FRM :



Private Sub Form_Load()

    Dim erg

    Tic.cbSize = Len(Tic)

    Tic.hwnd = PB_Ico.hwnd

    Tic.uID = H1&

    Tic.uFlags = NIF_DOALL

    Tic.uCallbackMessage = WM_MOUSEMOVE

    Tic.hIcon = PB_Ico.Picture

    erg = Shell_NotifyIcon(NIM_ADD, Tic)

End Sub

Private Sub PB_Ico_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    X = X / Screen.TwipsPerPixelX

    

    'If (STATION_LOCK = True) Then Exit Sub

    

    Select Case X

        Case WM_LBUTTONDOWN 'Me.Caption = "Left Click"

            PopupMenu MNUazerty

        Case WM_RBUTTONDOWN 'Me.Caption = "Right Click"

             PopupMenu MNUazerty

        Case WM_MOUSEMOVE   'Me.Caption = "Move"

                       


        Case WM_LBUTTONDBLCLK 'Me.Caption = "Double Click"

            

    End Select

End Sub





dans un module :



Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias
"Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA)
As Long



Public Const NIM_ADD = &H0

Public Const NIM_MODIFY = &H1

Public Const NIM_DELETE = &H2

Public Const NIF_MESSAGE = &H1

Public Const NIF_ICON = &H2

Public Const NIF_TIP = &H4

Public Const WM_CLOSE = &H10

Public Const NIF_DOALL = NIF_MESSAGE Or NIF_ICON Or NIF_TIP

Public Const WM_MOUSEMOVE = &H200

Public Const WM_LBUTTONDBLCLK = &H203

Public Const WM_LBUTTONDOWN = &H201

Public Const WM_RBUTTONDOWN = &H204



Public Type NOTIFYICONDATA

   cbSize As Long

   hwnd As Long

   uID As Long

   uFlags As Long

   uCallbackMessage As Long

   hIcon As Long

   szTip As String * 64

End Type



Public Tic As NOTIFYICONDATA







et exactement le meme prob .... 


Herve

Seth77 · Answer

Ahhh merci ca marche !!


Herve

Probleme avec le TIMER de VB6

11 réponses

Discussions similaires