您的位置: 首页 > 软件教程 > VB.NET教程专题 > VB.NET将任意图像文件设置为鼠标形状

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

8.5分
出处:网络 时间:2011-06-28

您可能感兴趣的话题: VB.NET  

核心提示:VB.NET将任意图像文件设置为鼠标形状以下是相关代码:

VB.NET 代码
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

网友评论
多特网友 2012-06-05 23:09:45 回复
好好 谢谢
多特网友 2012-06-05 23:09:45 回复
好好 谢谢
精品软件课程
更多 >
C++是一种静态数据类型检查的,支持多重编程... [详细]
Java,是由Sun Microsystem... [详细]
C语言是一种面向过程的计算机程序设计语言。多... [详细]
Visual Basic是一种由微软公司开发... [详细]
Oracle Database,又名Orac... [详细]
Visual C++微软公司的C++开发工具... [详细]