Activer un timer "x" fois depuis une textbox.

Bonjour/soir je voudrais créer une application sous vb.net 2012.

Mon projet étant de cliquer sur plusieurs abscisses, mais je voudrais le faire via un timer qui exécute plusieurs fois le mouvement de mon curseur.
Ce timer doit le faire par étape et par nombre:

Dans la textbox.text il y a le nombre 5, le timer s’exécute 1 fois, il fait que la souris vas sur les abscisses, à la fin le timer se réactive autant de fois; indiquer sur le .text de la textbox.

Voilà

Cordialement Dragonmouff

Salut,
différentes possibilités pour ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Static I As Integer If I >= mavar Then I = 0 Timer1.Enabled = Not Timer1.Enabled End If I += 1 MsgBox("mavar = " & mavar.ToString & " -- i = " & I.ToString) End Sub   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Timer1.Enabled = True mavar = 4 'variable locale End Sub

---

Mais le principe est là.

Coucou merci à toi de m'avoir répondu, mais je ne comprend pas trop les fonctions suivantes.

Mais bon je vais tous de même essayer de l'intégré au projet.

Cordialement & amicalement Dragonmouff

Bonjour,

Citation:

---

Envoyé par dragonmouff123

...
Mon projet étant de cliquer sur plusieurs abscisses, mais je voudrais le faire via un timer qui exécute plusieurs fois le mouvement de mon curseur.
Ce timer doit le faire par étape et par nombre:

Dans la textbox.text il y a le nombre 5, le timer s’exécute 1 fois, il fait que la souris vas sur les abscisses, à la fin le timer se réactive autant de fois; indiquer sur le .text de la textbox.
...

---

Le Timer sert à Génèrer des événements suivant un intervale de temps défini pour procéder à un traitement régulier. Pas spécialement pour faire des boucle, même si l'on peut bidouiller.

Dans ton cas il est préférable d'utiliser une procédure récursive qui se rappelera le nombre de fois voulues.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub btnRecursif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRecursif.Click If IsNumeric(txtNbRepetition.Text) Then CliquAbscisse(Integer.Parse(txtNbRepetition.Text)) End Sub   ''' <summary>procédure récursive qui exécute le code un certain nombre de fois.</summary> ''' <param name="NbRepetition">Nombre de fois ou le code doit être exécuté.</param> ''' <remarks>Appel récursif.</remarks> Sub CliquAbscisse(ByVal NbRepetition As Integer) ' Code qui clique sur les abscisses ' ... ' ... ' Fin du Code qui clique sur les abscisses If NbRepetition > 1 Then CliquAbscisse(NbRepetition - 1) End Sub

---

A+, Hervé.

OH ! merci quand même à vous deux et surtout à toi Hervé !

Et ( petite dernière demande ); quand un checkbox.checked = true, je voudrais que sa active l’abscisse supplémentaire exemple :

Code:

---

1 2 3 4 5

p.X = 345 p.Y = 265 Cursor.Position = p mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) 'Enfonce le bouton de la souris mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) ' le relève

---

et quand le checkbox et coché sa active une abscisse supplémentaire.

Code:

---

1 2 3 4 5

p.X = 500 p.Y = 450 Cursor.Position = p mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

---

Merci :)

Citation:

---

Envoyé par dragonmouff123

...
Et ( petite dernière demande ); quand un checkbox.checked = true, je voudrais que sa active l’abscisse supplémentaire exemple :
...
et quand le checkbox et coché sa active une abscisse supplémentaire.

Code:

---

1 2 3 4 5

p.X = 500 p.Y = 450 Cursor.Position = p mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

---

Merci :)

---

Code:

---

1 2 3 4 5 6 7

If Moncheckbox.checked then p.X = 500 p.Y = 450 Cursor.Position = p mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) End If

---