Dim ct As New Windows.Forms.ListView
ct.Dock = Windows.Forms.DockStyle.Fill
ct.Name = "ListView1"
'ct.LargeImageList = ImageList
ct.View = System.Windows.Forms.View.SmallIcon '切换图标模式
'ct.View = System.Windows.Forms.View.List '切换图标模式
ct.SmallImageList = ImageList
e.Form.Controls("Panel1").BaseControl.Controls.Add(ct)
AddHandler ct.Click, AddressOf QJ_doubleclick
AddHandler ct.MouseEnter, AddressOf QJ_MouseEnter
AddHandler ct.MouseHover, AddressOf QJ_Hover
全局代码那边写的是
Public Sub QJ_MouseEnter(ByVal sender As Object, ByVal e As EventArgs)
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Hand
End Sub
Public Sub QJ_MouseLeave(ByVal sender As Object, ByVal e As EventArgs)
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Hand
End Sub
我测试了这样写没用，鼠标没变化， 能帮我修改下么？
[此贴子已经被作者于2017/10/20 8:44:36编辑过]
加好友 
发短信
Post By：2017/10/19 14:53:00 [显示全部帖子]
此主题相关图片如下：111.png