Bonjour,

Après de longues recherches sans un indice pouvant me guider vers la solution, je vous expose mon problème.

Je suis entrain de créer un programme simulant un tirage de loto, il faut donc que je fasse en sorte que chaque numéro tiré soit différent, voici mon code:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
Dim Des(4) As Button
 
Private Sub btnJeu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpel.Click
        Dim i, j As Integer
 
        For i = 0 To UBound(Des)
            Des(i).Text = CStr(Int(Rnd() * 10))
        Next i
 
    End Sub
 
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
        Dim i, j, x, y, longueur, largeur As Integer
        x = 360
        y = 95
        longueur = 50
        largeur = 50
 
        For i = 0 To 4
            Des(i) = New Button()
            Des(i).Size = New Size(longueur, largeur)
            Des(i).Location = New Point(x, y)
 
            Me.Controls.Add(Des(i))
            x = x + 50
 
        Next i
 
    End Sub
 
End Class
Les boutons sont créés dans une matrice dynamique.

J'ai essayé de résoudre ce problème avec diverses variantes de If-End If, mais sans succès. Merci d'avance pour vos précieux conseils!