listview问问题

Question

在listview的MOUSEDOWN事件发生时，将时间保存到当前被选的列表中的TAG中，然后在双击事件中将时间与存到当前被选的列表中的TAG进行比较，如果
值小于规定的时间间隔则触发你所要发生的事件。
msgbox "这个数据" & h & "已经存在。"

Answer 1

这样可以吗??
Private Sub List1_DblClick()
   Dim i As Integer
   Dim ls As String
   Dim mm As Boolean
   mm = False
   ls = List1.Text   For i = 0 To List2.ListCount - 1
        If ls = List2.List(i) Then
            mm = True
            Exit For
        End If
   Next i   If mm Then
        MsgBox "这个数据已经存在"
   Else
        MsgBox "这个数据已经不存在"
   End IfEnd Sub

Answer 2

'将鼠标双击该为单击
Dim listX As ListItemPrivate Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
For i = 1 To ListView2.ListItems.Count
    If Item = ListView2.ListItems(i) Then
       Exit For
    End If
Next i
If i <= ListView2.ListItems.Count Then
   MsgBox Item & "这个数据已经存在。"
Else
   MsgBox Item & "这个数据已经不存在。"
End If
End Sub

Answer 3

List2.List(i)
List2.List(i) 
List2.List(i) 
？？？
ListView2.ListItems(i) 
ListView2.ListItems(i) 
？？？