搬家第25天-citectVBA设置listview控件，使checkbox只能单选

前面的博客记录了如何设置listview控件，使其带有checkbox，可以多选。有时候我们希望不要多选，只能单选，那么对listview控件的ItemCheck事件写脚本，就能实现这个功能。假设页面名字是page1，listview控件的访问名是page1_AN4，那么该控件的ItemCheck事件引用应该这样写

Sub page1_AN4_ItemCheck(Byval item As ListItem)

 

end sub

基本上遵循“访问名_事件名(参数表)”这样的规则，具体参数表可以参考微软的MSDN帮助。今天在www.52plc.net上有一个网友询问treeview控件的node点击事件怎么引用，也是遵循这个写法。接下来的脚本就是前述实现checkbox单选的脚本

Sub page1_AN4_ItemCheck(Byval item As ListItem)

Dim rowcount,itemchecked,i

rowcount=page1_AN4.ListItems.Count

ItemChecked=item.Checked

For i= 1 To rowcount

    page1_AN4.ListItems(i).checked = False 

Next

item.Checked=ItemChecked

End Sub

 

保存编译运行，单击checkbox就能实现单选功能了。