SetSelectManyItem

Синтаксис

Sub SetSelectManyItem(ByVal gadget As long, ByVal Start As long, ByVal Finish As long, ByVal flag As long=1)

Описание

Устанавливает выделение указанных пунктов в ListBoxGadget. Для использования этой функции, должен быть установлен флаг lbs_extendedsel у ListBoxGadget

Параметры

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

Start - начальный индекс для выделения

Finish - конечный индекс для выделения

flag - флаг, может быть:
    1 - выделение происходит
    0 - выделение удаляется

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("",10,10,300,300)
#Ifdef __FB_WIN32__
Var style = LBS_EXTENDEDSEL Or LBS_SORT Or WS_VSCROLL Or WS_HSCROLL
#Else
Var style = LBS_EXTENDEDSEL Or LBS_SORT
#EndIf
ListBoxGadget(1,10,10,200,200,style)
For a As Integer=1000 To 1100
  AddListBoxItem(1,Str(a))
Next
SetSelectManyItem(1,1,7)
Do
  var event=WaitEvent()
  If event=eventclose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free CHM Help documentation generator