Dim listx As ListItem
Set listx = lvListView.SelectedItem
if Not listx Is Nothing then
....
end if
Set listx = lvListView.SelectedItem
if Not listx Is Nothing then
....
end if
解决方案 »
- vsflexgrid 排序问题
- VB 过程调用问题
- 求助,winsock编程平台不管是 C++ Builder还是VB ,他的函数属性的代码表示都一样是吗?
- ResOnline 是一款订阅式资源软件哦,刚做好。开始测试!每天你都会发现他为你提供了不同的编程资源。不防试试!
- 请问如何把从下拉菜单打开的窗口居中显示出来?
- 高分有请!
- 有没有谁知道今天是农历的几月几日???
- 如何将硬盘数据调入内存?
- 如何将一个程序运行后,只在任务栏的右下角以小图标的形式显示出来,谢谢。
- 发呆呆兄,赶快告诉我Http协议和FTP协议的中文资料在哪里吧
- 各位高手:如何用程序导出(导入)指定的注册表项及子项?
- shell函数的返回值
.......
end if
和treeview的解决方法一样
Set ItemX = ListView1.SelectedItem
If ListView1.ListItems(ItemX.Index).Selected = False Then
MsgBox "Please Select the item !", 0, "Warning:"
Exit Sub
Else
'选中
end if
exit sub
else
...
endif