Wie kann ich per Befehl Scrollbar und Treeview wieder auf Pos auf 0 Stellen ?
Der Beispielcode stellt nur die Laufleiste auf Position 0.
Möchte das das Treeview auch auf Position 0 zurück gestellt wird, nachdem der User nach unten gescrollt hat.
Gibt es dafür eine Api ?
Code: Alles auswählen
Define a
If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
TreeGadget(1, 0, 0, WindowWidth(0), WindowHeight(0)-40, 0)
For a=1 To 100
AddGadgetItem(1, -1, "Item " + Str(a), 0, 0)
Next
ButtonGadget(2, WindowWidth(0)-160, WindowHeight(0)-30, 150, 20, "Scrollposition auf 0", 0)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case 2
SetScrollPos_(GadgetID(1), #SB_VERT,0,1)
EndSelect
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
EndIf
Lite