Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Collections vb 2008
Autor: mawu5007
Datum: 22.03.21 16:55
Ich bedanke mich nochmals bei dj.tommy für seine Arbeit. Ich entwickelte jetzt ein funktionsfähiges Pgm nach Vorbild von https://www.youtube.com/watch?v=1p4iHGWt-XM also Collections mit ArrayList + Sort und stelle es hier aus: -------------------------------------------------------------------------------- Public Class Personen Implements IComparable Public Name As String Public Vorname As String Public GebDat As Date Public ZSchalter As String Public Sub New(ByVal _name As String, ByVal _vorname As String, ByVal _gebdat As Date, ByVal _schalter As String) Me.Name = _name Me.Vorname = _vorname Me.GebDat = _gebdat Me.ZSchalter = _schalter End Sub Public Function CompareTo(ByVal obj As Object) As Integer Implements System.IComparable.CompareTo ' Sortieren (nach "Name/ etc") vorbereiten If ZSchalter = "N" Then Return Me.Name.CompareTo(DirectCast(obj, Personen).Name) End If If ZSchalter = "V" Then Return Me.Vorname.CompareTo(DirectCast(obj, Personen).Vorname) End If End Function End Class -------------------------------------------------------------------- Public Class Form1 Public ZSchalter As String Private Sub ArrayList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Person As New Collections.ArrayList() 'Sortieren nach "name/ vorname etc" ZSchalter = "V" Person.Add(New Personen("Müller", "Hans", Date.Now, ZSchalter)) Person.Add(New Personen("Schulze", "Gert", Date.Now, ZSchalter)) Person.Add(New Personen("Adam", "", Date.Now, ZSchalter)) Person.Add(New Personen("Hallo", "", Date.Now, ZSchalter)) If ZSchalter = "N" Then Dim name_sort As IComparer = New SortPersonName End If If ZSchalter = "V" Then Dim vorname_sort As IComparer = New SortPersonVorName End If Person.Sort() End End Sub Class SortPersonName Implements IComparer Public Function compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare Dim person1 As Personen = DirectCast(x, Personen) Dim person2 As Personen = DirectCast(y, Personen) Return person1.Name.CompareTo(person2.Name) End Function End Class Class SortPersonVorName Implements IComparer Public Function compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare Dim person1 As Personen = DirectCast(x, Personen) Dim person2 As Personen = DirectCast(y, Personen) Return person1.Vorname.CompareTo(person2.Vorname) End Function End Class End Class ---------------------------------------------------------------------- mfg

Collections vb 2008	719	mawu5007	20.03.21 15:29
Re: Collections vb 2008	402	dj.tommy	20.03.21 16:59
Re: Collections vb 2008	379	mawu5007	20.03.21 17:12
Re: Collections vb 2008	421	mawu5007	20.03.21 17:23
Re: Collections vb 2008	370	dj.tommy	21.03.21 16:11
Re: Collections vb 2008	385	mawu5007	21.03.21 18:03
Re: Collections vb 2008	372	mawu5007	21.03.21 21:19
Re: Collections vb 2008	354	mawu5007	22.03.21 16:55
Vorschlag zur Verwendung der Framework-Angebote	353	Manfred X	02.04.21 11:54
Re: Vorschlag zur Verwendung der Framework-Angebote	349	mawu5007	02.04.21 15:33

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen