AddComboBoxItem

Синтаксис

sub AddComboBoxItem(ByVal gadget As long, ByRef sItem As String, ByVal iPos As Long)

Описание

Позволяет добавлять(вставлять) пункты в ComboBoxGadget

Параметры

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

sItem - любая строка

iPos - номер пункта ComboBoxGadget (если будет -1, то вставляется в конец листа)

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim iWidth As Long
#Ifdef __FB_WIN32__
iWidth = 80
#Else
iWidth =25
#EndIf
OpenWindow("",10,10,300,100)
ComboBoxGadget(1,10,10,100,iWidth)
AddComboBoxItem(1,"Привет0",-1)
AddComboBoxItem(1,"Привет1",-1)
AddComboBoxItem(1,"Привет2",-1)
ButtonGadget(2,150,10,120,25,"Показать список")
Do
  Var event=WaitEvent()
  If event=eventclose Then End
  If event=eventgadget Then
     If EventNumber()=2 Then
        ShowListComboBox(1,1)
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free EBook and documentation generator