copyright 1999 - 2014 by heinz prelle - hannover  - lenbachstraße 42 - www.visual-basic5.de | impressum
Beispiel: VB .Net - Linq query - ListBox - Einen bestimmten Eintrag finden
'
Option Explicit On
Option Strict On

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
            .Text = "Linq query - ListBox - Einen bestimmten Eintrag finden"
            .CenterToScreen()
            With Me.ListBox1.Items
                .Add("Hallo")
                .Add("Welt")
                .Add("Hannover")
                With Me.TextBox1
                    .Text = Me.ListBox1.Items(2).ToString()
                    With Me.Button1
                        .Text = "Test"
                    End With
                End With
            End With
        End With
    End Sub

    Private Function FindItem(ByVal Search As String, ByVal List As ListBox) As Integer
        If Search.Equals("") Then
            Return -1
        Else
            Try
                Dim Found As String = ( _
                    From Element In List.Items Where Element.ToString().Contains(Search) _
                    Select Element).FirstOrDefault.ToString()
                If Not Found Is Nothing Then
                    Dim Index As Integer = List.FindString(Found)
                    Return Index
                Else
                    Return -1
                End If
            Catch
                Return -1
            End Try
        End If
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Index As Integer = Me.FindItem(Me.TextBox1.Text, Me.ListBox1)
        If Index > -1 Then
            Me.ListBox1.SelectedIndex = Index
        Else
            Me.ListBox1.SelectedIndex = Index
            MessageBox.Show("Eintrag wurde nicht gefunden...", "Info")
        End If
    End Sub

End Class