copyright 1999 - 2014 by heinz prelle - hannover  - lenbachstraße 42 - www.visual-basic5.de | impressum
Beispiel: VB .Net - Suchen in einer Liste - 5
'
Option Strict On
Option Explicit On
Option Infer On

Public Class Form1

    Private List As List(Of Employee) = New List(Of Employee)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
            .Text = "Suchen in einer List..."
            .CenterToScreen()
            .InitList()
            .TextBox1.Text = "Sauer"
            .Button1.Text = "Suche..."
            .Label1.Text = "Suchen nach:"
            .GroupBox1.Text = "Neue Eintraege hinzufuegen:"
            .Label2.Text = "Nummer:"
            .Label3.Text = "Vorname:"
            .Label4.Text = "Nachname:"
            .Label5.Text = "Wohnort:"
            .Button2.Text = "Hinzufuegen"
        End With
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Me.GetEmployeeInfo() <> "" Then
            MessageBox.Show(GetEmployeeInfo(), "Info")
        End If
    End Sub

    Private Function GetEmployeeInfo() As String
        Me.Text = If(Me.TextBox1.Text = "", "Erforderliche Eingabe fehlt.", "Suche wird durchgefuehrt...")

        Dim EmployeeData As String = ""
        Dim FindWhat As String = Me.TextBox1.Text
        Try
            Dim Result = List.Find(Function(Info As Employee) Info.LastName = FindWhat)
            EmployeeData = If(Result.PersonalNumber() > 0, _
                              Result.PersonalNumber.ToString() & " - " & Result.FirstName & " - " & Result.LastName, _
                              "Keine Eintraege gefunden...")
        Catch ex As Exception
            MessageBox.Show("Fehler oder es wurde kein Eintrag gefunden.", "Info - Exception")
        End Try
        Return EmployeeData
    End Function

    Private Sub InitList()
        List.Add(New Employee With {.PersonalNumber = 139, .FirstName = "Patrick", .LastName = "Meyer", .City = "Letter"})
        List.Add(New Employee With {.PersonalNumber = 140, .FirstName = "Heinz", .LastName = "Sauer", .City = "Großburgwedel"})
        List.Add(New Employee With {.PersonalNumber = 141, .FirstName = "Maurizio", .LastName = "Caporrimo", .City = "Hannover"})
        List.Add(New Employee With {.PersonalNumber = 142, .FirstName = "Pasquale", .LastName = "DaSilva", .City = "Ahlem"})
        List.Add(New Employee With {.PersonalNumber = 143, .FirstName = "Patrizia", .LastName = "Jakovides", .City = "Letter"})
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        With Me
            If .TextBox2.Text = "" Or .TextBox3.Text = "" Or .TextBox4.Text = "" Or .TextBox5.Text = "" Then
                MessageBox.Show("Erforderliche Eingabe/n fehlen...", "Info")
            Else
                List.Add(New Employee With _
                         { _
                         .PersonalNumber = CInt(Me.TextBox2.Text), _
                         .FirstName = Me.TextBox3.Text, _
                         .LastName = Me.TextBox4.Text, _
                         .City = Me.TextBox5.Text})
            End If
        End With
    End Sub

    Public Class Employee

        Private _PersonalNumber As Integer
        Private _FirstName As String
        Private _LastName As String
        Private _City As String

        Public Property PersonalNumber() As Integer
            Get
                Return _PersonalNumber
            End Get
            Set(ByVal value As Integer)
                _PersonalNumber = value
            End Set
        End Property

        Public Property FirstName() As String
            Get
                Return _FirstName
            End Get
            Set(ByVal value As String)
                _FirstName = value
            End Set
        End Property

        Public Property LastName() As String
            Get
                Return _LastName
            End Get
            Set(ByVal value As String)
                _LastName = value
            End Set
        End Property

        Public Property City() As String
            Get
                Return _City
            End Get
            Set(ByVal value As String)
                _City = value
            End Set
        End Property

    End Class

End Class
Sourcecode Visual Basic