mark listview鼠标
全局代码
Public Sub panel1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs)
Dim lvw As windows.forms.Listview = sender
Dim isContains As Boolean = False
For i As Integer = 0 To lvw.Items.Count - 1
Dim rec As Rectangle = lvw.Items(i).GetBounds(System.Windows.Forms.ItemBoundsPortion.Entire)
If rec.Contains(e.Location) Then
isContains = True
Exit For
End If
Next
If isContains Then
lvw.Cursor = System.Windows.Forms.Cursors.Hand
Else
lvw.Cursor = System.Windows.Forms.Cursors.[Default]
End If
End Sub
绑定事件
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim o As windows.Forms.Listview = lvw.basecontrol
addhandler o.mousemove, addressof panel1_mousemove