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

VBNET 代码

Private Sub Button_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ButtonClick

Dim fd As OpenFileDialog = New OpenFileDialog()

fdFilter = 图像文件（*jpg;*gif;*png）|*jpg;*gif;*png

If fdShowDialog() = WindowsFormsDialogResultOK Then

Dim fn As Image = ImageFromFile(fdFileName)

Dim bitmap As New Bitmap(fn)

Dim handle As IntPtr = bitmapGetHicon()

Dim myCursor As New Cursor(handle)

MeCursor = myCursor

End If

End Sub

代码以作备份