Удаление дубликатов в ComboBox

Private Sub Command1_Click()
For i = 0 To Combo1.ListCount - 1
For x = 0 To Combo1.ListCount - 1
If i = x Then GoTo Nextx
If LCase(Combo1.List(x)) = LCase(Combo1.List(i)) Then
Combo1.RemoveItem x
End If
Next x
Next i
End Sub

Private Sub Form_Load()
With Combo1
.AddItem "1"
.AddItem "2"
.AddItem "name"
.AddItem "1"
.AddItem "Name"
End With
End Sub

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Удаление дубликатов в ComboBox", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!