CountItemComboBox

Синтаксис

Function CountItemComboBox(ByVal gadget As long) As Integer

Описание

Позволяет получать кол-во пунктов в ComboBoxGadget

Параметры

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
#Ifdef __FB_WIN32__
Dim h As Long = 80
#Else
Dim h As Long = 30
#EndIf
OpenWindow("",10,10,400,150)
ComboBoxGadget(1,10,10,100,h)
AddComboBoxItem(1,"Привет0",-1)
AddComboBoxItem(1,"Привет1",-1)
AddComboBoxItem(1,"Привет2----",-1)
TextGadget(2,150,10,220,20,"Щелкнуть здесь")
Do
  var event=WaitEvent()
  If event=eventclose Then End
  If event=eventgadget Then
     If eventnumber()=2 Then
        SetGadgetText(2,Str(CountItemComboBox(1)) & " пункта в гаджете")
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free Web Help generator