listview鼠标移动当前行变色问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → listview鼠标移动当前行变色问题

共有3794人关注过本帖树形打印复制链接主题：listview鼠标移动当前行变色问题

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/9 15:18:00 [显示全部帖子]

Listview.tag属性被Foxtable底层用作其它用途了，换个方式

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 vars("a") IsNot Nothing AndAlso Typeof vars("a") Is System.Windows.Forms.ListViewItem Then OldItem = CType(vars("a"), 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

vars("a") = Item

Else

If OldItem IsNot Nothing AndAlso Not OldItem.BackColor.Equals(Lv.BackColor) Then OldItem.BackColor = lv.BackColor

End If

End Sub

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/10 9:38:00 [显示全部帖子]

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

If vars("b") IsNot Nothing AndAlso Typeof vars("b") Is System.Windows.Forms.ListViewItem Then OldItem = CType(vars("b"),

If OldItem IsNot Nothing Then

OldItem.BackColor = lv.BackColor

OldItem.foreColor = lv.foreColor
vars("b") = nothing

end if
end if
End Sub