默认不选中~Private Sub Form_Load() Set ListView1.selectedItem = Nothing End Sub
嗯~前面还写掉了一句~ 再加上右键选中Private Sub Form_Load() Dim i As Integer
For i = 1 To 30 ListView1.ListItems.Add , , i Next
ListView1.selectedItem.Selected = False Set ListView1.selectedItem = Nothing End SubPrivate Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbRightButton And Not ListView1.HitTest(x, y) Is Nothing Then ListView1.HitTest(x, y).Selected = True End If
Set ListView1.selectedItem = Nothing
End Sub
再加上右键选中Private Sub Form_Load()
Dim i As Integer
For i = 1 To 30
ListView1.ListItems.Add , , i
Next
ListView1.selectedItem.Selected = False
Set ListView1.selectedItem = Nothing
End SubPrivate Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton And Not ListView1.HitTest(x, y) Is Nothing Then
ListView1.HitTest(x, y).Selected = True
End If
'PopupMenu ...
End Sub