怎么样给LISTVIEW的listitem加个双击事件呀！！（不是listview的双击事件哟！！）

Question

好象不行，你可以在ListView的双击事件里判断是双击了哪个ListItem如下：　　　Set xListItem=ListView1.HitTest(mX,mY)
如果没有点中ListItem,xListItem为Nothing

Answer 1

忘了一点：Dim mX,mY as single
在ListView的MouseDown事件中，加入
　　mX = X
    mY = Y

Answer 2

我估计你是要确定双击某一条listitem吧
就用楼上的办法，首先确定那一条listitem的index不就可以了吗

Answer 3

如果只用listview的双击事件的话，就会在空白区也有效了，我就是想做与控制面版想似的效果！！

Answer 4

判断一下listview.selecteditem is nothing 不就行啦!

Answer 5

Option Explicit
Dim bIsLvwItemDblClick As Boolean
Private Sub Form_Load()
Dim i As Integer
ListView1.ListItems.Add , , "aa"
ListView1.ListItems.Add , , "bb"
ListView1.ListItems.Add , , "cc"
ListView1.ListItems.Add , , "dd"
ListView1.OLEDragMode = ccOLEDragAutomatic
ListView1.LabelEdit = lvwManual
ListView1.HideSelection = False
End Sub
Private Sub ListView1_DblClick()
If bIsLvwItemDblClick Then
  MsgBox ListView1.SelectedItem.Text
End If
End Sub
Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
bIsLvwItemDblClick = ListView1.HitTest(x, y) Is ListView1.SelectedItem
End Sub 

Answer 6

Option Explicit
Dim bIsLvwItemDblClick As Boolean
Private Sub Form_Load()
Dim i As Integer
ListView1.ListItems.Add , , "aa"
ListView1.ListItems.Add , , "bb"
ListView1.ListItems.Add , , "cc"
ListView1.ListItems.Add , , "dd"
ListView1.OLEDragMode = ccOLEDragAutomatic
ListView1.LabelEdit = lvwManual
ListView1.HideSelection = False
End Sub
Private Sub ListView1_DblClick()
If bIsLvwItemDblClick Then
  MsgBox ListView1.SelectedItem.Text
End If
End Sub
Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
bIsLvwItemDblClick = ListView1.HitTest(x, y) Is ListView1.SelectedItem
End Sub 

Answer 7

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Me.Caption = Item.Text
End Sub
用ItemClick吧