AddListBoxItem

Синтаксис

sub AddListBoxItem(ByVal gadget As Long, ByRef string As String, ByVal item As Long=-1)

Описание

Позволяет добавлять пункты в ListBoxGadget. Если третий параметр опускается, то добавление идет в конец списка.

Параметры

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

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

item - Номер пункта(по умолчанию -1)

Платформы

Windows , Linux

Пример

#Include "window9.bi"
#Ifdef __FB_WIN32__
Var iExStyle = WS_EX_CLIENTEDGE
#Else
Var iExStyle = 0
#EndIf
Var hwnd=OpenWindow("",10,10,200,200)
ListBoxGadget(1,10,10,100,100,,iExStyle)
AddListBoxItem(1,"1 String")
AddListBoxItem(1,"2 String")
AddListBoxItem(1,"0 String",0)
Do
  Var event=WaitEvent
  Select Case event
     Case EventClose
        End
  End Select
Loop

Результат

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