DeleteListViewColumn

Синтаксис

Sub DeleteListViewColumn(ByVal gadget As Long, ByVal columnIndex As Long)

Описание

Удаляет столбец по указанному индексу (начинаются с нуля)

Параметры

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

columnIndex - индекс удаляемого столбца

Платформы

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
        DeleteListViewColumn(1,0) ' delete  0 column.
     EndIf
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Free PDF documentation generator