请问在ListView控件中，怎样实现每个ListItem的双击事件！

Question

后面加Index参数。
ListView_DblClick(index as integer,...)
{
select index
...
}

Answer 1

你就用
Private Sub LvwYbDm_DblClick()End Sub
然后用循环找
lvwcxjg.ListItems.Item(XYZ).Selected

Answer 2

在Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)End Sub
里面记录点的是什么

Answer 3

Dim bIsListViewItem As Boolean
Private Sub Form_Load()
ListView1.ListItems.Add , , "aa"
ListView1.ListItems.Add , , "bb"
ListView1.ListItems.Add , , "cc"
ListView1.ListItems.Add , , "dd"
ListView1.ListItems.Add , , "ee"
End Sub
Private Sub ListView1_DblClick()
If bIsListViewItem Then
   VBA.MsgBox ListView1.SelectedItem.Text
End If
End Sub
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
bIsListViewItem = ListView1.HitTest(x, y) Is ListView1.SelectedItem
End Sub

Answer 4

ListView1_ItemClick
里不要有代码

Answer 5

Dim aa As Integer
Private Sub Form_Load()
ListView1.ListItems.Add , , "aa"
ListView1.ListItems.Add , , "bb"
ListView1.ListItems.Add , , "cc"
ListView1.ListItems.Add , , "dd"
ListView1.ListItems.Add , , "ee"
End SubPrivate Sub ListView1_DblClick()
MsgBox aa
End SubPrivate Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
aa = Item.index
End Sub

Answer 6

斑竹的办法也存在问题，就是每次都必须先选中一个ListItem，然后再双击这个ListItem才能响应，如果不选中它，双击就没用

Answer 7

Dim aa As Integer
Private Sub Form_Load()
ListView1.ListItems.Add , , "aa"
ListView1.ListItems.Add , , "bb"
ListView1.ListItems.Add , , "cc"
ListView1.ListItems.Add , , "dd"
ListView1.ListItems.Add , , "ee"
End SubPrivate Sub ListView1_DblClick()
Select Case aa
Case 0
MsgBox "aaaaaaaaaaaaaa"
Case 1
MsgBox "bbbbbbbbbbbbbb"
Case 2
MsgBox "cccccccccccccc"
Case 3
MsgBox "dddddddddddddd"
End Select
End SubPrivate Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
aa = Item.index
End Sub

Answer 8

Dim aa As Integer
Private Sub Form_Load()
ListView1.ListItems.Add , , "aa"
ListView1.ListItems.Add , , "bb"
ListView1.ListItems.Add , , "cc"
ListView1.ListItems.Add , , "dd"
ListView1.ListItems.Add , , "ee"
End SubPrivate Sub ListView1_DblClick()
Select Case aa
Case 1
MsgBox "aaaaaaaaaaaaaa"
Case 2
MsgBox "bbbbbbbbbbbbbb"
Case 3
MsgBox "cccccccccccccc"
Case 4
MsgBox "dddddddddddddd"
Case 5
MsgBox "eeeeeeeeeeeeee"
End Select
End SubPrivate Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
aa = Item.index
End Sub

Answer 9

ListView1_ItemClick
里偏要有代码!

Answer 10

泰山的办法可行
斑竹说ListView_ItemClick中不要有代码，可你的方法不能真正的实现双击呀
还有，为什么给分的时候出现 “贴子回复次数大于跟给分次数 ”？

Answer 11

双击空白处,dbcontrols(泰山__抛砖引玉) 处理不了!aa 还是上次的!

Answer 12

和直接写几乎没有区别:
提问的人好像自己都糊涂!
Private Sub ListView1_DblClick()
VBA.MsgBox "ItemDoubleClick: " & ListView1.SelectedItem.Text
End Sub

Answer 13

'这个效果应该最好:
Private Sub Form_Load()
ListView1.ListItems.Add , , "aa"
ListView1.ListItems.Add , , "bb"
ListView1.ListItems.Add , , "cc"
ListView1.ListItems.Add , , "dd"
ListView1.ListItems.Add , , "ee"
ListView1.HideSelection = False
End Sub
Private Sub ListView1_DblClick()
If Not ListView1.SelectedItem Is Nothing Then
   VBA.MsgBox "ItemDoubleClick: " & ListView1.SelectedItem.Text
End If
End Sub
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Not ListView1.HitTest(x, y) Is ListView1.SelectedItem Then
   Set ListView1.SelectedItem = Nothing
End If
End Sub