SetTopIndexListBox

Синтаксис

sub SetTopIndexListBox(ByVal gadget As long, ByVal item As long)

Описание

Устанавливает самый верхний видимый пункт из указанного в параметре item

Параметры

gadget - номер гаджета

item - индекс пункта

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,400,150)
ListBoxGadget(1,10,10,100,80)
#Ifdef __FB_WIN32__
ButtonGadget(2,120,10,100,60,"Установим 6 пункт первым видимым",BS_MULTILINE)
#Else
ButtonGadget(2,120,10,100,60,!"Установим 6\nпункт первым\nвидимым")
#EndIf
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=2 Then
           SetTopIndexListBox(1,6)
        endif
  End Select
Loop

Результат

Created with the Personal Edition of HelpNDoc: Create HTML Help, DOC, PDF and print manuals from 1 single source