ListViewGadget automatisch scrolln
Verfasst: 22.05.2006 12:14
Wie kann ich die Liste automatisch nach unten bis zum Anschlag scrollen, wenn ein neuer Eintrag dazukommt?
Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Code: Alles auswählen
;WinApi
SendMessage_(GadgetID(#listview),#EM_SCROLL,#SB_BOTTOM,0)
Code: Alles auswählen
;PB4
If OpenWindow(0, 0, 0, 270, 140, "ListViewGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
ListViewGadget(0, 10, 10, 250, 120)
For a = 1 To 255
AddGadgetItem (0, -1, "Item " + Str(a) + " of the Listview") ; definieren des Listview-Inhalts
Next
SetGadgetState(0, 9) ; wir setzen (beginnend bei 0) den zehnten Eintrag als aktiven
While WindowEvent():Wend
Delay(1000)
SetGadgetState(0, 254) ; wir setzen (beginnend bei 0) den zehnten Eintrag als aktiven
While WindowEvent():Wend
Delay(1000)
SetGadgetState(0, 2) ; wir setzen (beginnend bei 0) den zehnten Eintrag als aktiven
While WindowEvent():Wend
Delay(1000)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf