vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Collections vb 2008 
Autor: mawu5007
Datum: 21.03.21 18:03

Hallo dj.tommy

Zuerst einmal Danke für Ihre Antwort!

ich habe heute auf ArrayList umgestellt s.u..

Das funktioniert.
-------------------------------------------------------------------
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 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).Name)
End If

End Function
End Class
----------------------------------------------------------------------
Public Class ArrayList
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/ etc"
ZSchalter = "N"

Person.Add(New Personen("Müller", "Hans", Date.Now, ZSchalter))
Person.Add(New Personen("Schulze", "Gert", Date.Now, ZSchalter))
Person.Add(New Personen("Hallo", "", Date.Now, ZSchalter))

Person.Sort()

End

End Sub
End Class
-------------------------------------------------------------------
mfg
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Collections vb 2008212mawu500720.03.21 15:29
Re: Collections vb 200870dj.tommy20.03.21 16:59
Re: Collections vb 200860mawu500720.03.21 17:12
Re: Collections vb 200867mawu500720.03.21 17:23
Re: Collections vb 200854dj.tommy21.03.21 16:11
Re: Collections vb 200851mawu500721.03.21 18:03
Re: Collections vb 200848mawu500721.03.21 21:19
Re: Collections vb 200855mawu500722.03.21 16:55
Vorschlag zur Verwendung der Framework-Angebote31Manfred X02.04.21 11:54
Re: Vorschlag zur Verwendung der Framework-Angebote24mawu500702.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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel