Discussion :

[chuspyto]

tout le code est placé dans le formulaire principal,faut il placer quelque chose dans le form 2?

[ilank]

non

[chuspyto]

pourquoi cette partie de code ne fait pas l'ouverture du form au bout des 10 secondes ?

Code :

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

1
2
3
4
5
6
7
Private Sub Détail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
startTimer
End Sub
' .. dans zone formulaire
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
startTimer
End Sub

est ce que dans le form timer la ligne

Code :

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

Me.TimerInterval = 0

bloquerai l'ouverture du form?

[ilank]

bonjour,

pourquoi cette partie de code ne fait pas l'ouverture du form au bout des 10 secondes ?

?? Cette partie de code relance le timer à chaque fois que la souris bouge, en clair, tant que la souris bouge attendre 10 secondes. Le second formulaire sera ouvert toutes les 10 secondes après le dernier mouvement de souris.
Encore une fois, formule correctement ce que tu souhaites obtenir. Pour le moment, le code fait ce que tu as énoncé.

est ce que dans le form timer la ligne

Code :

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

Me.TimerInterval = 0

bloquerai l'ouverture du form?

?? Non. Si tu es dans l'événement Form_Timer c'est que 10 secondes sans mouvement de souris se sont écoulées. Le timerinterval est mis à 0 tant que le second formulaire est ouvert et relancer à sa fermeture.

[chuspyto]

en fait apres multiples essais, le code fonctionne bien,le seul hic(pour cela que je pensais que cela ne fonctionnais pas) apres mouvement de la souris le form 2 s'ouvre 6 minutes apres au lieu des 10 secondes.
a l'action de la souris le timer de 10 secondes pour ouvrrir le form2 n'est pas respecté(temps aléatoire en minutes jusqu' a 10 minutes)

[ilank]

Oui, mais cela ne vient pas du code donné. Tu dois avoir une procédure qui bloque ailleurs, ou tu ajoutes 10 secondes d'attente à chaque mouvement de la souris ou tu as du code parasite.....

[chuspyto]

Comment faire pour ne pas ajouter les 10 secondes a chaque fois que la souris bouge?(je pense que le problème vient de la car si je la bouge peu le temps fait 20 secondes avant ouverture du form2

[ilank]

Bonsoir,
il n'y a rien à priori dans le code qui ajoute du temps d'attente.
Le mieux que je puisse faire est

Code :

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

1
2
3
4
private sub  startTimer()
 me.TimerInterval=0
 me.TimerInterval=CTIMER
End sub