XProfan

Español

H.Brill

Was no cada weiß :
El automatische Sortierung en el List - Controls geschieht sí
después de ASCII, d. h. después de 1 kommt 10, 11, 12 usw. y no 2, 3, 4
Wenn los números aber igual lang gemacht voluntad (z.B.001 en lugar de 1)
así va auch el Sortierung correcto. Es al besten con Formato$().

Kompilieren Marca Separación

Declarar Handle grid, liste
Ventana 500, 200
grid  = Crear("Gridbox", %HWnd, "spalte 1;0;60;spalte 2;0;80;spalte 3;0;60", 1, 10, 10, 220, 100)
liste = Crear("Listbox", %HWnd, 1, 250, 10, 220, 100)

WhileLoop 100, 1, -1

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

EndWhile

Mientras 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 Zitat

Absatzweise Cita Zeilenweise Cita

Sven
Bader

Hier todavía una Ejemplo, una unsortierte Liste a mano a sortieren por Bubble Sort.

Kompilieren Marca Separación

Declarar Handle grid, liste
Declarar thisRow$, nextRow$, done&,count&
Ventana 340, 500
liste = Crear("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

Sinestar encargado done&

    done& = 1

    WhileLoop count&

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

        If val(thisRow$) > val(nextRow$)

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

        EndIf

    EndWhile

EndWhile

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