Private m_bolSelectItems As Boolean = False
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ListView1.FullRowSelect = True
        ListView1.View = View.Details
        ListView1.MultiSelect = True
    End Sub
 
    Private Sub ListView1_MouseDown(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDown
        m_bolSelectItems = True
    End Sub
 
    Private Sub ListView1_MouseUp(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseUp
        m_bolSelectItems = False
    End Sub
 
    Private Sub ListView1_MouseMove(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseMove
        If m_bolSelectItems = True Then
            Dim item As New ListViewItem
            item = ListView1.HitTest(e.Location).Item
            If Not item Is Nothing Then
                If item.Selected = False Then
                    item.Selected = True
                End If
            End If
        End If
    End Sub

fg viperbone

Beitrag wurde zuletzt am 08.12.09 um 19:59:28 editiert.