Discussion :

[shayw]

Bonjour

J'essaye de trouver tant que la souris est appuyé un nombre est choisi au hazard

Code :

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

1
2
3
4
 Private Sub boxball_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles boxball.MouseDown
       Dim rd As New Random
      indexlistball = rd.Next(0, listballnumber.Count)
   End Sub

dans ce cas indexlistball reçoit la même valeur
avec une boucle

Code :

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

1
2
3
4
5
6
7
Private Sub boxball_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles boxball.MouseDown
     Dim rd As New Random
    Do
            indexlistball = rd.Next(0, listballnumber.Count)
            l.Add(indexlistball)
        Loop Until  ?
   End Sub

Merci d'avance

[Pol63]

pas compris

sinon il y a soit le repeatbutton, soit sur mousedown démarrer un timer, sur mouseup arreter le timer, et faire ton traitement dans le timer.tick au lieu de mousedown

[shayw]

avec un timer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub boxball_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles boxball.MouseDown
     timerball.start
   End Sub
 
Private Sub boxball_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles boxball.MouseUp
        timerball.Stop()
    End Sub
 
    Private Sub timerball_Tick(sender As Object, e As System.EventArgs) Handles timerball.Tick
        Dim rd As New Random
        indexlistball = rd.Next(0, listballnumber.Count)
    End Sub