DeleteListViewItemsAll

Синтаксис

Sub DeleteListViewItemsAll(ByVal gadget As Long)

Описание

Удаляет все пункты из гаджета

Параметры

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("Привет",10,10,500,500)
ListViewGadget(1,10,10,310,300)
AddListViewColumn(1, "1 строка",0,0,100)
AddListViewColumn(1, "2 строка",1,1,100)
AddListViewColumn(1, "3 строка",2,2,100)
For aa As Integer=0 To 15
  AddListViewItem(1,"item №"+Str(aa),0,aa,0)
  AddListViewItem(1,"item №"+Str(aa+18),0,aa,1)
  AddListViewItem(1,"item №"+Str(aa+36),0,aa,2)
Next
Do
  Var event=WaitEvent()
  If Event=EventClose Then End
  If event=EventLBDown Then ' click left mouse button
     If EventNumberListView=1 Then
        DeleteListViewItemsAll(1) ' delete all
     EndIf
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Generate EPub eBooks with ease