Discussion :

[vodiem]

bonjour,

je souhaiterais déclencher un traitement à intervalle régulier pendant la pression du clic gauche.

le timer semble ne plus se déclencher durant la pression, l'événement "sur souris appuyée" ne se déclenche qu'une fois.

comment pourrais je contourner le pb?
peut être le timer d'Arkham46 sur le hWnd de windows? comment l'obtient-on dans ce cas?

merci.

[Arkham46]

Bonjour,

Effectivement l'événement Timer est un spécial, il ne se déclenche que s'il n'y a plus aucun autre message dans la file d'attente du process.
Pour ne pas lier le timer à une fenêtre de l'application il faut passer un paramètre 0& à la place du Hwnd
On récupère alors l'id du Timer en résultat de la fonction APISetTimer.
Il faut stopper le timer avec cet id.

Code :

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

1
2
3
4
5
' Démarrage
gId = APISetTimer(0&, gId, interval, AddressOf Callback_Timer)
 
' Arrêt
APIKillTimer 0&, gId

Dans CallBackTimer on reçoit en wParam la valeur de gId.

Comme on ne peut plus choisir son Id il faut un peu tout changer.

[vodiem]

merci beaucoup Arkham46,

je ne parviens pas à rendre le timer indépendant de la souris.

d'après aussi l'aide ms ici
la nullité serait la solution pour ne pas associer à un hWnd, il utilise aussi pour cela la valeur 0 (je pensais que null=&hffffffff )

enfin dans tous les cas: ca marche pas si le clic est appuyée l'év timer ne se déclenche plus.
une erreur de ma part? une autre proposition?

merci.

[Arkham46]

je ne parviens pas à rendre le timer indépendant de la souris.

Moi non plus
Dans access, rien à faire, si on laisse la souris appuyée tous les timers que j'ai testés sont bloqués...
D'ailleurs même le curseur s'arrête de clignoter...

d'après aussi l'aide ms ici
la nullité serait la solution pour ne pas associer à un hWnd, il utilise aussi pour cela la valeur 0 (je pensais que null=&hffffffff )

Pour la plupart des API il suffit de passer 0 en paramètre byval.
Mieux il est préférable de mettre 0&
Le & permet de spécifier qu'on passe un long.

une autre proposition?

Ben non désolé.

[vodiem]

je te remercie quand même dans tous les cas, c'est très aimable.

[vodiem]

ok, j'ai finalement trouvé la parade.

dans le module d'un formulaire vide par exemple:

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
Option Compare Database
 
Private Sub Détail_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Do Until GetKeyState(VK_LBUTTON) >= 0 'jusqu'a ce que le bouton soit relaché
    DoEvents
Loop
End Sub
 
Private Sub Form_Close()
Call Stop_Test_Timer
End Sub
 
Private Sub Form_Load()
Call Start_Test_Timer
End Sub

avec la déclaration de l'API dans un module à part:

Code :

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

1
2
3
Public Const VK_LBUTTON = &H1
 
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer