PureBoard

Verfasst: **16.11.2004 16:04**

Hallo Community,

kurze Frage - hoffentlich kurze Antwort:
Kann ich beim ListIconGadget den Scrollbar per Befehl verschieben ?

Verfasst: **07.12.2004 20:46**

Ja z.B so

Code: Alles auswählen

#MyWindow = 0 
 #MyGadget = 1 
 If OpenWindow(#MyWindow,100,100,300,500,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"ListIcon Beispiel") 
   If CreateGadgetList(WindowID()) 
     ListIconGadget(#MyGadget,5,5,290,490,"Name",150,#PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection) 
     AddGadgetColumn(#MyGadget,1,"Adresse",250) 
     For i=1 To 500
     AddGadgetItem(#MyGadget,-1,Str(i)+" Harry Rannit"+Chr(10)+"12 Parliament Way, Battle Street, By the Bay") 
     Next i
     
     For a=1 To 401 
        SetScrollPos_(GadgetID(#MyGadget),#SB_VERT,a,#True)
        SendMessage_(GadgetID(#MyGadget),#WM_VSCROLL,#SB_LINEDOWN,0)
        Delay(10)
       Next a
     For a=401 To 1 Step -1
        SetScrollPos_(GadgetID(#MyGadget),#SB_VERT,a,#True)
        SendMessage_(GadgetID(#MyGadget),#WM_VSCROLL,#SB_LINEUP,0)
        Delay(10)
       Next a

     
     
     Repeat 
       EventID = WindowEvent() 
       
     Until EventID = #PB_Event_CloseWindow And EventWindowID() = #MyWindow 
   EndIf 
 EndIf