GetSelCountListBox

Синтаксис

Function GetSelCountListBox(ByVal gadget As long, ByVal ARRAY As Integer Ptr=0) As Integer

Описание

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

Параметры

gadget - описание

ARRAY - адрес массива

Платформы

Windows , Linux

Пример

#Include "window9.bi"
' выделить нужные пункты и кликнуть правой кнопкой мыши по клиентской области окна
OpenWindow("",10,10,400,150)
#Ifdef __FB_WIN32__
Dim flag As Integer=LBS_EXTENDEDSEL Or WS_VSCROLL Or WS_HSCROLL
#Else
Dim flag As Integer=LBS_EXTENDEDSEL
#EndIf
ListBoxGadget(1,10,10,100,80,flag )
For a As Integer=1000 To 1100
  AddListBoxItem(1,Str(a))
Next
Do
  var event=WaitEvent()
  If event=eventclose Then End
  If event=EventRBDown Then
     Print "Value selected items=" & GetSelCountListBox(1)
  EndIf
Loop

Результат

Пример2

#Include "window9.bi"
' выделить нужные пункты и кликнуть правой кнопкой мыши по клиентской области окна
OpenWindow("",10,10,400,150)
#Ifdef __FB_WIN32__
Dim flag As Integer=LBS_EXTENDEDSEL Or WS_VSCROLL Or WS_HSCROLL
#Else
Dim flag As Integer=LBS_EXTENDEDSEL
#EndIf
ListBoxGadget(1,10,10,100,80,flag )
For a As Integer=1000 To 1100
AddListBoxItem(1,Str(a))
Next
Dim aa(100) As Integer
Do
var event=WaitEvent()
If event=eventclose Then End
If event=EventRBDown Then
 Var a= GetSelCountListBox(1,@aa(0))
 For b As Integer=0 To a-1
  Print aa(b)
 Next
EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easily create CHM Help documents