Combo Box Duplikate entfernen

Ein Kombinationsfeld-Steuerelement ist ein Steuerelement, die Kombination aus einem Textfeld und einem Listenfeld ist. Es erlaubt den Benutzer, Werte aus der Dropdown-Liste auswählen oder einen neuen Wert eingeben. Oft können Programmierer stoßen die Notwendigkeit, die doppelte Werte aus einem Kombinationsfeld-Steuerelement zu entfernen und zu wissen, wie man sie schnell beseitigen Sie Zeit sparen. Microsoft Visual Basic (VB) ist eine Programmiersprache, die zum Erstellen von Windows-Anwendungen, Kombinationsfelder können verwendet werden.

Anweisungen

1 Starten Sie Microsoft Visual Basic Express, klicken Sie auf "New Project..." im linken Bereich des Bildschirms und wählen Sie dann "Windows Forms-Anwendung." Klicken Sie auf "OK".

2 Doppelklick auf "Button1" Öffnen Sie die "Form1.vb"module. Geben Sie Folgendes oben "End Class" beim Laden der Form Elemente in das Kombinationsfeld laden:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.ComboBox1.Items.Add("Line1")

Me.ComboBox1.Items.Add("Line1")

Me.ComboBox1.Items.Add("Line1")

Me.ComboBox1.Items.Add("Line2")

Me.ComboBox1.Items.Add("Line3")

Me.ComboBox1.Items.Add("Line3")

Me.ComboBox1.Items.Add("Line4")

Me.ComboBox1.Items.Add("Line4")

Me.ComboBox1.Items.Add("Line5")

EndSub

3 Geben Sie Folgendes unter "Button1_Click" um Duplikate zu entfernen, wenn Benutzer "Button1" klickt:

ICnt As Integer Dim

JCnt As Integer Dim

Für iCnt = 0 To Me.ComboBox1.Items.Count - 2

For jCnt = Me.ComboBox1.Items.Count - 1 To iCnt + 1 Step -1

Wenn Me.ComboBox1.Items(iCnt). ToString = Me.ComboBox1.Items(jCnt). ToString dahin

Me.ComboBox1.Items.RemoveAt(jCnt)

End If

Next

Nächste

4 Mit "F5" um das Programm auszuführen. Klicken Sie auf das Kombinationsfeld-Steuerelement, um doppelte Elemente anzuzeigen. Klicken Sie auf "Button1" um Duplikate zu entfernen.