XProfan

Français

H.Brill

quoi pas chacun sais :
qui automatische Sortierung chez den List - Controls geschieht oui
pour ASCII, d. h. pour 1 venez 10, 11, 12 usw. et pas 2, 3, 4
si les numéros mais juste long gemacht volonté (z.B.001 statt 1)
so allez aussi qui Sortierung richtig. cela allez am besten avec Format$().

Kompilieren Marque Séparation

Déclarer Handle grid, liste
Fenêtre 500, 200
grid  = Créer("Gridbox", %HWnd, "spalte 1;0;60;spalte 2;0;80;spalte 3;0;60", 1, 10, 10, 220, 100)
liste = Créer("Listbox", %HWnd, 1, 250, 10, 220, 100)

WhileLoop 100, 1, -1

    AddStrings(grid, Format $("000", &LOOP) + "|" + "AAA" + "|" + "BBB")
    AddStrings(liste, Format $("000", &LOOP))

Endwhile

Tandis que 1

    Waitinput

Endwhile

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

03.12.2022 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Sven
Bader

ici encore un Beispiel, une unsortierte liste de main trop sortieren per Bubble Sort.

Kompilieren Marque Séparation

Déclarer Handle grid, liste
Déclarer thisRow$, nextRow$, done&,count&
Fenêtre 340, 500
liste = Créer("Listbox", %HWnd, 0, 0, 0, 320, 400)

WhileLoop 100, 1, -1

    AddStrings(liste,  str$(&LOOP)+". Zeile")

Endwhile

count& = GetCount(liste) - 1
SendMessage(liste,  $000B, 0, 0)'wm_SetRedraw

WhileNot done&

    done& = 1

    WhileLoop count&

        thisRow$ = GetString$(liste, &loop - 1)
        nextRow$ = GetString$(liste, &loop)

        Si val(thisRow$) > val(nextRow$)

            DeleteString(liste, &loop - 1)
            InsertString(liste, &loop, thisRow$)
            done& = 0

        EndIf

    Endwhile

Endwhile

SendMessage(liste, $000B, 1, 0)'wm_SetRedraw
WaitKey