Function GetTopIndexListBox(ByVal gadget As Long) As Integer
Возвращает самый верхний видимый пункт в ListBoxGadget
gadget - номер гаджета
Windows , Linux
#Include "window9.bi"
OpenWindow("",10,10,400,150)
ListBoxGadget(1,10,10,100,80)
For a As Integer=1000 To 1100
AddListBoxItem(1,Str(a))
Next
Do
Var event=WaitEvent
Select Case event
Case EventClose
End
Case EventGadget
If EventNumber=1 Then
? GetTopIndexListBox(1)
endif
End Select
Loop
Created with the Personal Edition of HelpNDoc: Full featured Help generator