Foxtable(狐表) → 用户栏目 → 专家坐堂 → AddHandler ,AddressOf 　设置鼠标离开变成手型的设置


  共有2273人关注过本帖树形打印复制链接

主题：AddHandler ,AddressOf 　设置鼠标离开变成手型的设置
帅哥哟，离线，有人找我吗？
李小胖
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：292 积分：2516 威望：0 精华：0 注册：2017/1/8 15:53:00 		AddHandler ,AddressOf 　设置鼠标离开变成手型的设置  发帖心情 Post By：2017/10/19 14:53:00 [只看该作者]

AddHandler ct.MouseEnter,AddressOf ＱＪ＿MouseEnter


在全局代码里面　ＱＪ＿MouseEnter　　　　　　
把鼠标设置成为　＝　System.Windows.Forms.Cursors.Hand　　　这个应该怎么写？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/19 16:10:00 [只看该作者]

绑定mouseMove事件

 

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.hand
 回到顶部
帅哥哟，离线，有人找我吗？
李小胖
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：292 积分：2516 威望：0 精华：0 注册：2017/1/8 15:53:00 		  发帖心情 Post By：2017/10/19 17:24:00 [只看该作者]

绑定mouseMove事件

应该怎么写呢?
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/19 17:33:00 [只看该作者]

 

Public Sub qj_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs)
    System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.hand
End Sub
 回到顶部
帅哥哟，离线，有人找我吗？
李小胖
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：292 积分：2516 威望：0 精华：0 注册：2017/1/8 15:53:00 		  发帖心情 Post By：2017/10/19 20:17:00 [只看该作者]

 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/19 20:21:00 [只看该作者]

绑定mousemove事件，看4楼代码。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/19 20:22:00 [只看该作者]

如果还有问题，实例发上来测试。

 回到顶部
帅哥哟，离线，有人找我吗？
李小胖
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：292 积分：2516 威望：0 精华：0 注册：2017/1/8 15:53:00 		  发帖心情 Post By：2017/10/20 8:54:00 [只看该作者]

窗口中的代码这样的 
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.MouseEnter, AddressOf QJ_MouseEnter  
            AddHandler ct.MouseHover, AddressOf QJ_Hover



 全局代码

Public Sub QJ_MouseEnter(sender As Object, e As System.Windows.Forms.MouseEventArgs)

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Hand

End Sub
Public Sub QJ_MouseLeave(sender As Object, e As System.Windows.Forms.MouseEventArgs)

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Hand

End Sub



设置这个代码的时候弹出错误
AddHandler ct.MouseEnter, AddressOf QJ_MouseEnter  
            AddHandler ct.MouseHover, AddressOf QJ_Hover

此主题相关图片如下：111.png
按此在新窗口浏览图片
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/20 9:03:00 [只看该作者]

叫你绑定mousemove事件啊，要说多少次？只有用mousemove事件才能做到你要的效果。

 

Public Sub qj_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs)
    System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.hand
End Sub
 回到顶部
帅哥哟，离线，有人找我吗？
李小胖
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：292 积分：2516 威望：0 精华：0 注册：2017/1/8 15:53:00 		  发帖心情 Post By：2017/10/20 9:25:00 [只看该作者]

以下是引用有点甜在2017/10/20 9:03:00的发言：

叫你绑定mousemove事件啊，要说多少次？只有用mousemove事件才能做到你要的效果。

 

Public Sub qj_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs)
    System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.hand
End Sub



          AddHandler ct.MouseEnter, AddressOf QJ_MouseEnter  '这个是鼠标进入, 都绑定 qj_MouseMove?  这样写的么? AddHandler ct.MouseEnter, AddressOf qj_MouseMove 
            AddHandler ct.MouseHover, AddressOf QJ_Hover    '这个是鼠标离开  都绑定 qj_MouseMove 这样写的么?       AddHandler ct.MouseHover, AddressOf qj_MouseMove 
 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询