Set itmX = ListView1.ListItems.Add(, , "aaa") Set itmX = ListView1.ListItems.Add(, , "bbb") End Sub Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) MsgBox Item End Sub
哦 但是我需要的用鼠标双击才产生这个事件 Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) 下面这个可以 Private Sub ListView1_DblClick() 但是没有办法传过这个item.key这个关键字 我需要那个item.key带的关键字
简单呀。单击时读出ItemClick里的数据,然后在DblClick里处理数据。
Private Sub ListView1_DblClick() dim sItemkey as string sItemkey=listview1.selectionitem.item.key '所选中记录的第0列的key值 sItemkey=listview1.selectionitem.subitems(i).item.key '所选中记录的除第0列的某列key值end sub
帮忙写一个行吗
我试着写了一个listview1.listitem.item.key
是不是这样写的呢
Set itmX = ListView1.ListItems.Add(, , "aaa")
Set itmX = ListView1.ListItems.Add(, , "bbb")
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
MsgBox Item
End Sub
哦
但是我需要的用鼠标双击才产生这个事件
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
下面这个可以
Private Sub ListView1_DblClick()
但是没有办法传过这个item.key这个关键字
我需要那个item.key带的关键字
dim sItemkey as string
sItemkey=listview1.selectionitem.item.key
'所选中记录的第0列的key值
sItemkey=listview1.selectionitem.subitems(i).item.key
'所选中记录的除第0列的某列key值end sub