콤보 박스가 중복되지 않도록하십시오.

Question

다음 코드는 임의 번호를 생성합니다. 1에서 10 사이입니다. 정상적으로 작동합니다. 하지만, 나는 combobox (cmbRnd 내 콤보 상자입니다) 배로 싶지 않아요. 어떻게 피할 수 있습니까?

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

더 좋은 방법은 숫자 1 ~ 10의 배열을 생성 한 다음 셔플하는 것입니다. 셔플 번호

가장 쉬운 방법은 무작위로 정렬됩니다 :

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

다음,이 is a bad idea! and how to do it better 같은 이유 셔플 번호를 읽어 보시기 바랍니다.

관련이없는 발언 :

숫자 반복에 대한 While 루프를 사용하지 마십시오. 이 특별한 사용 사례는 For 루프에 더 잘 매핑되며 코드를 보는 사람들은 For 루프를 피한 이유가 무엇인지 궁금해 할 것입니다. 일관성은 때로는 어리 석으나, 잘 정립 된 경우에는 표준에서 벗어날 이유가 없습니다.

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