Private Sub tvTest_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Not tvTest.HitTest(x, y) Is Nothing Then
Set tvTest.SelectedItem = tvTest.HitTest(x, y)
tvTest.SelectedItem.Selected = True
End If
End Sub
If Not tvTest.HitTest(x, y) Is Nothing Then
Set tvTest.SelectedItem = tvTest.HitTest(x, y)
tvTest.SelectedItem.Selected = True
End If
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货