ListViewGadget automatisch scrolln

[sen-me]

Wie kann ich die Liste automatisch nach unten bis zum Anschlag scrollen, wenn ein neuer Eintrag dazukommt?

[bobobo]

try

Code: Alles auswählen

;WinApi
SendMessage_(GadgetID(#listview),#EM_SCROLL,#SB_BOTTOM,0)

oder so wie hier mit PB vier

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

[sen-me]

Kann man auch es mit PB4 so machen, dass man kein Eintrag auswählt? (Aber trotzdem scrollt)