前面的博客记录了如何设置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就能实现单选功能了。