搬家第五天-120.Wincc V7.3 ListView控件初步使用12-删除选定的行
作者:互联网
我们使用ListView装入数据之后,可能需要删除其中一些行,这个也很好实现。假设画面上有一个listview控件,名字叫做LV,已经装入了数据且有checkbox列,有一个按钮用于执行删除行的操作,在按钮的鼠标点击事件中加入以下vbs代码:
Sub OnClick(ByVal Item)
Dim LV,CheckedCount,i
Set LV=screenitems("LV")
CheckedCount=0
For i=1 To LV.listitems.count
If LV.listitems.item(i).checked=True Then
CheckedCount=CheckedCount+1
End If
Next
'每删除一个CheckedCount减去1,直到没有勾选项
i=0
If CheckedCount<>0 Then
Do While CheckedCount>0
i=i+1
If i=LV.listitems.count+1 Then
i=1
End If
If LV.ListItems.item(i).checked=True Then
LV.ListItems.remove(i)
CheckedCount=CheckedCount-1
End If
Loop
End If
End Sub
标签:控件,12,End,删除,CheckedCount,listitems,120,LV 来源: https://www.cnblogs.com/fishingsriver/p/14363885.html