DeleteItemListView

Синтаксис

Sub DeleteItemListView(ByVal gadget As Long, ByVal Item As Long)

Описание

Удаляет пункт по указанному индексу (начинаются с нуля). Нежелательно использовать данную функцию в событиях от самого ListViewGadget , может произойти закольцованность удаления пунктов гаджета

Параметры

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

Item - пункт для удаления

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("Привет",10,10,500,250)
#Ifdef __FB_WIN32__
Var ExStyle=LVS_EX_FULLROWSELECT  Or LVS_EX_GRIDLINES Or LVS_EX_SUBITEMIMAGES Or LVS_EX_HEADERDRAGDROP
Var iStyle = LVS_EDITLABELS Or LVS_ICON  Or LVS_REPORT
#Else
Var ExStyle=LVS_EX_GRIDLINES
Var iStyle = 0
#EndIf
Dim As HBITMAP bmp1 ,bmp2 , bmp3
bmp1 = Load_image("1.png")
bmp2 = Load_image("2.png")
bmp3 = Load_image("3.png")
ListViewGadget(1,10,10,310,200,ExStyle , iStyle ,, 32)
AddListViewColumn(1, "1 строка",0,0,100)
AddListViewColumn(1, "2 строка",1,1,100)
AddListViewColumn(1, "3 строка",2,2,100)
For aa As Integer=0 To 3
  AddListViewItem(1,"item №"+Str(aa),bmp1,aa,0)
  AddListViewItem(1,"item №"+Str(aa+18),bmp2,aa,1)
  AddListViewItem(1,"item №"+Str(aa+36),bmp3,aa,2)
Next
ButtonGadget(2 , 330,10,150,25,"удалить 0 пункт")
Do
  Var event=WaitEvent()
  If Event=EventClose Then End
  If event=EventGadget Then
     If EventNumber=2 Then
        DeleteItemListView(1,0) ' удаляем всегда 0 пункт  
     EndIf
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Write eBooks for the Kindle