首页> 软件教程> VB.NET将任意图像文件设置为鼠标形状

VB.NET将任意图像文件设置为鼠标形状

来源：网络时间：2011-06-28 15:03:16

代码
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fd As OpenFileDialog = New OpenFileDialog()
fd.Filter = "图像文件（*.jpg;*.gif;*.png）|*.jpg;*.gif;*.png"
If fd.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim fn As Image = Image.FromFile(fd.FileName)
Dim bitmap As New Bitmap(fn)
Dim handle As IntPtr = bitmap.GetHicon()
Dim myCursor As New Cursor(handle)
Me.Cursor = myCursor
End If
End Sub

<上一篇：VB.NET中的跨进程消息钩子下一篇：VB.NET控件编程定制拦截击键动作 >

文章内容来源于网络，不代表本站立场，若侵犯到您的权益，可联系我们删除。（本站为非盈利性质网站）联系邮箱：rjfawu@163.com

最新评论热门评论

共有1条评论>

多特网友 2012-06-05 23:09:45 0 回复

好好　谢谢

多特网友 2012-06-05 23:09:45 0 回复

好好　谢谢

相关攻略

1用CSS改变鼠标形状的代码 2word怎么设置任意页码为第一页？ 3Visio 2003将格式设置从一个形状复制到另一个形状 4Windows 7设置技巧:只显示图像文件的图标 5流放之路鼠标移动怎么设置流放之路鼠标移动设置方法 6WPS怎么将字体的背景设置为蜂巢 WPS将字体背景设置为蜂巢步骤介绍 7个性化鼠标指针怎么设置,如何更改系统鼠标指针及设置个性化动态鼠标指针 8《水果忍者》鼠标快捷设置 9为使鼠标指针指向按钮时显示提示内容，应设置命令按钮的（）属性。 10鼠标右键菜单设置方法

近期热点

1排名前十的虚拟币价格,比特币（BTC）：王者风范，独领风骚 2如何获取数字钱包的地址？ 3解析：数字货币钱包地址的差异与识别 4理解数字货币钱包地址的运作机制 5如何找到并管理您的数字货币钱包地址 6数字资产钱包地址榜单分析 7如何获取数字货币钱包地址？ 8如何注册数字货币钱包：步骤详解 9币圈鹦鹉平台怎么样,鹦鹉之喙：交易体验 10 虚拟货币钱包地址迁移过程中的问题与挑战

最新攻略

1PIX币是主流币吗？,探索新星：PIX币能否跻身主流币行列？ 2PASC币发行总量是多少？,揭秘PASC币：发行总量究竟几何? 3ORK币发行价是多少？,揭秘ORK币：那个备受瞩目的发行价格究竟几何? 4PETN币是主流币吗？,正在崛起的新星：PETN币——能否跻身主流货币之列? 5PEPPA币发行价是多少？,揭开神秘面纱：PEPPA币的发行价之旅 6PHL币是主流币吗？,揭秘PHL币：它是主流币吗？ 7PDSHARE币发行总量是多少？,PDShare币：独特之处在于其发行总量的秘密武器 8ORAI币发行总量是多少？,揭秘ORAI币：发行总量知多少? 9PINKIE币发行价是多少？,揭秘PINKIE币：发行价几何？市场表现如何？ 10PIB币发行价是多少？,探秘PIB币：发行价几何，价值走向何方? 11PET币发行价是多少？,揭秘PET币：从发行价到市场表现的奇幻之旅 12pBTC币是主流币吗？,探索pBTC：是主流币的潜力股还是市场新秀？