copyright 1999 - 2014 by heinz prelle - hannover  - lenbachstraße 42 - www.visual-basic5.de | impressum
Beispiel: VB .Net - ListBox - Eintrag hinzufügen wenn der Eintrag nicht vorhanden ist
'
Option Explicit On
Option Strict On

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FoundTrue As String = String.Empty
        With Me
            .ListBoxCompaireNewItem(.ListBox1, .TextBox1.Text, FoundTrue)
        End With
        If Not FoundTrue = String.Empty Then
            Me.Text = FoundTrue
        Else
            Me.Text = "Eintrag wurde vorgenommen..."
        End If
    End Sub

    Private Sub ListBoxCompaireNewItem(ByVal lb As ListBox, ByVal NewItem As String, ByRef FoundTrue As String)
        FoundTrue = String.Empty
        Try
            Dim Element As Integer = -1
            Element = lb.FindString(NewItem)
            If Element > -1 Then
                FoundTrue = NewItem & " gefunden an: " & Element.ToString()
            Else
                lb.Items.Insert(0, NewItem)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message(), "Info")
        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Items() As String = New String() {"Visual Basic", "VB .NET", "C#", "C++"}
        With Me
            .Text = "ListBox - Eintrag hinzufuegen wenn der Eintrag nicht vorhanden ist"
            .Button1.Text = "Test"
            .ListBox1.Items.AddRange(Items)
            .TextBox1.Text = "C++"
        End With
    End Sub

End Class
Sourcecode Visual Basic