Was nicht jeder weiß :
Die automatische Sortierung bei den List - Controls geschieht ja
nach ASCII, d. h. nach 1 kommt 10, 11, 12 usw. und nicht 2, 3, 4 usw.
Wenn die Zahlen aber gleich lang gemacht werden (z.B.001 statt 1)
so geht auch die Sortierung richtig. Das geht am besten mit Format$().
Code
Declare Handle grid, liste
Window 500, 200
grid = Create("Gridbox", %HWnd, "spalte 1;0;60;spalte 2;0;80;spalte 3;0;60", 1, 10, 10, 220, 100)
liste = Create("Listbox", %HWnd, 1, 250, 10, 220, 100)
WhileLoop 100, 1, -1
AddString(grid, Format$("000", &LOOP) + "|" + "AAA" + "|" + "BBB")
AddString(liste, Format$("000", &LOOP))
EndWhile
While 1
Waitinput
EndWhile
Alles anzeigen