Dim DblClick As Boolean
Dim curItem As ListItem
Private Sub ListView_ItemDbClick
''放入你的程式
End Sub
Private Sub ListView_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DblClick = False
End Sub
Private Sub ListView_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If DblClick Then
    Set curItem = ListView.HitTest(X, Y)
    If Not curItem Is Nothing Then
      ListView_ItemDbClick
    End If
  End If
  DblClick = (Button = vbLeftButton)
End Sub

全站熱搜

vbqa 發表在 痞客邦 留言(0) 人氣()