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   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Visual-Basic Einsteiger
ListBox EInträge Sortieren ??? 
Autor: S3Ri0US
Datum: 24.12.03 17:00
Hi alle zusammen !
Als erstes mal Frohe Weihnachten an alle !!

Also wie kann ich meine listboxeinträge sortieren ? und zwar

so :

1234455
12345
1234
12
1


ALso das die Höchste Zahl immer nummer 1 ist !

Vielen dank !

Bye

[ PS ] Habe da sscho unter Hilfe was gefunden ! ABer da geht leider nur mit Buchstaben und nicht mit Zahlen ! DANKE !

Private Sub Command1_Click()
Dim X%
Call QuickSort(LBound(Feld), UBound(Feld))
List2.Clear
For X = 0 To UBound(Feld)
List2.AddItem Feld(X)
Next X
End Sub


Private Sub QuickSort(ByVal LB&, ByVal UB&)
Dim P1&, P2&, Ref$, TEMP$
P1 = LB
P2 = UB
Ref = Feld((P1 + P2) / 2)
Do
Do While (Feld(P1) < Ref)
P1 = P1 + 1
Loop
Do While (Feld(P2) > Ref)
P2 = P2 - 1
Loop
If P1 <= P2 Then
TEMP = Feld(P1)
Feld(P1) = Feld(P2)
Feld(P2) = TEMP

P1 = P1 + 1
P2 = P2 - 1
End If
Loop Until (P1 > P2)
If LB < P2 Then Call QuickSort(LB, P2)
If P1 < UB Then Call QuickSort(P1, UB)
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
ListBox EInträge Sortieren ???714S3Ri0US24.12.03 17:00
Re: ListBox EInträge Sortieren ???435S3Ri0US25.12.03 02:23
Re: ListBox EInträge Sortieren ???460Ne kölsche Jung25.12.03 09:25
Re: ListBox EInträge Sortieren ???438Ne kölsche Jung25.12.03 09:27
Re: ListBox EInträge Sortieren ???432S3Ri0US25.12.03 11:48
Re: ListBox EInträge Sortieren ???440Ne kölsche Jung25.12.03 19:50

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-2025 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