搬家第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就能实现单选功能了。
上一篇:搬家第31天-citect2018中checkbox控件使用1


下一篇:ListItem布局中的checkbox阻碍整行选择的处理办法