Discussion :

[dragonmouff123]

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

[The_Big_Lebowski]

Salut,
différentes possibilités pour ça

Code :

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

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à.

[dragonmouff123]

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

[rv26t]

Bonjour,

...
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 :

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

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é.

[dragonmouff123]

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 :

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

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 :

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

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

[rv26t]

...
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 :

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

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 :

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

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