ResetAllListBox

Синтаксис

sub ResetAllListBox(ByVal gadget As long)

Описание

Сбрасывает(очищает) весь список ListBoxGadget

Параметры

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,300,150)
ListBoxGadget(1,10,10,100,80)
ButtonGadget(2,120,10,130,25,"Очистить список")
For a As Integer=1000 To 1100
  AddListBoxItem(1,Str(a))
Next
Do
  Var event=WaitEvent
  Select Case event
     Case EventClose
        End
     Case EventGadget
        If EventNumber=2 Then
           ResetAllListBox(1)
        endif
  End Select
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easily create EPub books