求教listview控件！！！

[ssjordan19]

我在mousedown事件中启动drag事件，但用鼠标打击itemclick就响应不了，
反而我把鼠标放到其他item上方停一秒钟，item才会被选中。
我试过其他list控件，根本就不存在这种冲突！
不知哪位高手有解决办法！！！

[dingfuhao]

可以用HitTest方法来查找被选中的项
如下例

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim aa As ListItem

ListView1.Drag 1
Set aa = ListView1.HitTest(x, y)

If aa Is Nothing Then

Else
aa.Selected = True
End If

Set aa = Nothing

End Sub