Private Sub ListView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then Dim ht As ListViewHitTestInfo = ListView1.HitTest(New Point(e.X, e.Y)) MessageBox.Show(ht.Item.Index.ToString & " - " & ht.SubItem.Text) End If End Sub
No comments:
Post a Comment