Évitez de doubler dans la zone de liste déroulante

Question

J'ai le code suivant qui génère un nombre aléatoire. entre 1 et 10. Cela fonctionne bien. Mais, je ne veux pas doubler en combobox (cmbRnd est ma combo box). Comment puis-je l'éviter?

Private Sub cmdRnd_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cmdRnd.Click 
    Dim random As New Random(), i As Integer = 1 
    Do While i < 10 
     cmbRnd.Items.Add(random.Next(1, 10)) 
     i = i + 1 
    Loop 
End Sub 

Answer 1

Une meilleure façon est de générer un tableau de nombres 1-10, puis mélangez.

La façon la plus simple des numéros de brassage est de les trier au hasard:

Dim rng As New Random() 
Dim numbers As Integer() = Enumerable.Range(1, 10).OrderBy(_ 
    Function(x) rng.Next()).ToArray() 

Ensuite, s'il vous plaît lire pourquoi les numéros traînants comme celui-ci is a bad idea! and how to do it better.

Une remarque sans rapport avec:

Ne pas utiliser une boucle While pour itérer sur les chiffres. Ce cas d'utilisation spécial est mieux mappé par la boucle For et les personnes regardant votre code se demanderont pour quelle raison la boucle For a été évitée. La cohérence est parfois un peu stupide, mais dans des cas aussi bien établis, il n'y a pas de raison de s'écarter de la norme.

Answer 2

Dim random As New Random(), i As Integer = 1 
Dim cmbRnd As New Windows.Forms.ComboBox 
Do While i < 10 
    Dim newItem As Int32 = random.Next(1, 10) 
    If Not cmbRnd.Items.Contains(newItem) Then 
     cmbRnd.Items.Add(newItem) 
     i = i + 1 
    End If 
Loop