Odstranění duplicitních položek v Combu

Postup:
Založte nový projekt a na formulář přidejte tlačítko a ComboBox. Na událost Form_Load zapište:

Private Sub Form_Load()

   With Combo1
      .AddItem "Bozena"
      .AddItem "bozena"
      .AddItem "Tábor"
      .AddItem "tábor"
      .AddItem "Ahoj"
      .AddItem "ahoj"
   End With

End Sub

Na událost Click tlačítka nyní zapište kód pro odstranění duplicitních položek:

Private Sub Command1_Click()

   For i = 0 To CBDupes.ListCount - 1
      For x = 0 To CBDupes.ListCount - 1
         If i = x Then GoTo Nextx
         If LCase(CBDupes.List(x)) = LCase(CBDupes.List(i)) Then
            CBDupes.RemoveItem x
         End If

Nextx:
      Next x
   Next i

End Sub

Spusťte projekt, prohlídněte si položky v Combu a pak klikněte na tlačítko. Znovu si prohlédněte položky v Combu. Duplicitní položky jsou nyní odstraněny.

Zpět