主题：listview鼠标移动当前行变色问题

请教老师，想实现鼠标进入LISTVIEW控件时，鼠标移动到相关行（不是点击当前行），该行的背景颜色改变

我们模仿网上的一段代码改写后报错，请老师帮忙看看

Public Sub Listview_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Dim Lv As System.Windows.Forms.Listview = CType(sender, System.Windows.Forms.Listview)
    Dim OldItem As System.Windows.Forms.ListViewItem = Nothing
    If lv.Tag IsNot Nothing Then OldItem = CType(lv.Tag, System.Windows.Forms.ListViewItem)
    Dim Item As System.Windows.Forms.ListViewItem = Lv.GetItemAt(e.X, e.Y)

    If Item IsNot Nothing Then
        If OldItem IsNot Nothing AndAlso Not OldItem.Equals(Item) Then OldItem.BackColor = lv.BackColor
        Item.BackColor = Color.Red
        lv.Tag = Item
    Else
        If OldItem IsNot Nothing AndAlso Not OldItem.BackColor.Equals(Lv.BackColor) Then OldItem.BackColor = lv.BackColor
    End If
End Sub

'----------------------------------
Dim l As System.windows.forms.Listview = e.form.controls("listview1").basecontrol
addhandler l.mousemove, addressof Listview_MouseMove
l.refresh

谢谢老师指导，还有一个问题，如果鼠标离开listview控件，原来的行背景颜色不会消失，这个怎样处理  麻烦老师再指导指导

我在mouseLeave设置相关代码也不起作用

Public Sub Listview1_MouseLeave(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Dim Lv As System.Windows.Forms.Listview = CType(sender, System.Windows.Forms.Listview)
Dim OldItem As System.Windows.Forms.ListViewItem = Nothing

    vars("b") = Item
    If OldItem IsNot Nothing AndAlso Not OldItem.Equals(Item) Then OldItem.foreColor = lv.foreColor 
    vars("b") = Item
Else
    If OldItem IsNot Nothing AndAlso Not OldItem.BackColor.Equals(Lv.BackColor) Then OldItem.BackColor = lv.BackColor
End If
End Sub

老师，是否受底层影响，您指导代码在鼠标离开控件后，报错

（无法将类型system.eventargs的对象强制转换为类型system.windows.forms.mouseeventargs

老师，还是不行，做了个例子，请老师看看，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb