搬家第五天-107.Wincc V7.3 ListView 控件初步使用9- checkbox列的单选性

前面的博客记录了如何在ListView控件插入一列checkbox，默认的效果是可以勾选多个，有时候我们希望选择是排他的，只能勾选其中一个。本文就记录如何实现这个功能。

     假设画面上已经有了一个ListView控件，名字修改为LV，已经装入了一张数据表并且有了一列checkbox。在ListView控件的ItemCheck事件中写入以下vbs脚本。

Sub ItemCheck(ByVal Item,  ByRef ObjectItem)                          
Dim LV,ItemChecked,i
Set LV=ScreenItems("LV")
ItemChecked=objectitem.Checked
For i= 1 To LV.ListItems.Count
    LV.ListItems.item(i).checked = False 
Next
objectitem.Checked=ItemChecked
End Sub

保存运行，就可以看到想要的效果了。