VB.NET将任意图像文件设置为鼠标形状计算机等级考试

文章作者 100test 发表时间 2010:01:01 10:53:24
来源 100Test.Com百考试题网

　　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 Ifwww.Ｅxamda.CoM考试就到百考试题
　　End Sub

　　编辑特别推荐:

　　全国计算机等级考试二级VB模拟试题及答案解析