Den nachstehenden Code habe ich aus der XProfan-Hilfe
Habe aber die Declarationen ergänzt.
Warum bekomme ich aber bei dem Befel "Move" eine Fehlermeldung ?
In der XProfan-Hilfe steht die Syntax genauso wie hier geschrieben !
Code
Declare Grid&, btn1&, btn2&, btn3&, btn4&, btn5&
WindowTitle "Sortiertes Grid"
Window 50,50-600, 400
Grid& = Create("Gridbox", %HWnd, "Nummer;0;60;Name;0;100;Ort;0;120;Gehalt;0;60", 0, 10, 50, 340, 200)
btn1& = Create("Button", %HWnd, "Sort", 10, 10, 60, 25)
btn2& = Create("Button", %HWnd, "Sort", 75, 10, 60, 25)
btn3& = Create("Button", %HWnd, "Sort", 170, 10, 60, 25)
btn4& = Create("Button", %HWnd, "Sort", 290, 10, 60, 25)
btn5& = Create("Button", %HWnd, "Ende", 500, 10,60, 25)
AddString(Grid&, "500|Maier|Köln|4000")
AddString(Grid&, "400|Schmidt|Hamburg|3000")
AddString(Grid&, "300|Bauer|Mannheim|3500")
AddString(Grid&, "200|Klein|Düsseldorf|3000")
AddString(Grid&, "100|Fuchs|Stuttgart|7500")
WhileNot Clicked(btn5&)
WaitInput
ClearList 0
Move("HandleToList", Grid&)
If Clicked(btn1&)
SortList 5
ElseIf Clicked(btn2&)
SortList "|", 2, 1
ElseIf Clicked(btn3&)
SortList "|", 3, 1
ElseIf Clicked(btn4&)
SortList "|", 4, 5
EndIf
ClearList Grid&
Move("ListToHandle", Grid&)
Case %Key = 2 : Break
EndWhile
End
Alles anzeigen