So da ja angeblich jeder hier den Code benötigt um zu helfen:
Public Class Klasse
Private _Schuelerliste As List(Of Schueler)
Private _Lehrer As Lehrer
Private _Name As String
Public Event Schueler_Changed()
Public Sub AddSchueler(ByVal vorname As String, ByVal alter As Integer)
If Not vorname = "" Then
Dim gefunden As Boolean = False
If Schueler Is Nothing Then
Schueler = New List(Of Schueler)
End If
For Each wert As Schueler In _Schuelerliste
If wert.Vorname = vorname Then
wert.Alter = alter
gefunden = True
End If
Next
If Not gefunden Then
Dim Schueler1 As New Schueler(vorname, alter)
Schueler.Add(Schueler1)
End If
RaiseEvent Schueler_Changed()
End If
End Sub
Public Sub RemoveSchueler()
!------> Hier soll <---------!
!------> ein Schuler aus List(of T)<---------!
!------> gelöscht werden <---------!
End Sub
Public Property Schueler() As List(Of Schueler)
Get
Return _Schuelerliste
End Get
Set(ByVal value As List(Of Schueler))
_Schuelerliste = value
End Set
End Property
Public Property Lehrer() As Lehrer
Get
Return _Lehrer
End Get
Set(ByVal value As Lehrer)
_Lehrer = value
End Set
End Property
Public Property Name() As String
Get
Return _Name
End Get
Set(ByVal value As String)
_Name = value
End Set
End Property
Public Sub New(ByVal name As String)
Me.Name = name
Schueler = New List(Of Schueler)
Lehrer = New Lehrer()
End Sub
End Class
Public Class Klasse
Private _Schuelerliste As List(Of Schueler)
Private _Lehrer As Lehrer
Private _Name As String
Public Event Schueler_Changed()
Public Sub AddSchueler(ByVal vorname As String, ByVal alter As Integer)
If Not vorname = "" Then
Dim gefunden As Boolean = False
If Schueler Is Nothing Then
Schueler = New List(Of Schueler)
End If
For Each wert As Schueler In _Schuelerliste
If wert.Vorname = vorname Then
wert.Alter = alter
gefunden = True
End If
Next
If Not gefunden Then
Dim Schueler1 As New Schueler(vorname, alter)
Schueler.Add(Schueler1)
End If
RaiseEvent Schueler_Changed()
End If
End Sub
Public Sub RemoveSchueler()
!------> Hier soll <---------!
!------> ein Schuler aus List(of T)<---------!
!------> gelöscht werden <---------!
End Sub
Public Property Schueler() As List(Of Schueler)
Get
Return _Schuelerliste
End Get
Set(ByVal value As List(Of Schueler))
_Schuelerliste = value
End Set
End Property
Public Property Lehrer() As Lehrer
Get
Return _Lehrer
End Get
Set(ByVal value As Lehrer)
_Lehrer = value
End Set
End Property
Public Property Name() As String
Get
Return _Name
End Get
Set(ByVal value As String)
_Name = value
End Set
End Property
Public Sub New(ByVal name As String)
Me.Name = name
Schueler = New List(Of Schueler)
Lehrer = New Lehrer()
End Sub
End Class