自定义鼠标图标

最新推荐文章于 2024-04-17 21:05:23 发布

自在修行

最新推荐文章于 2024-04-17 21:05:23 发布

阅读量829

点赞数

分类专栏：他山之石文章标签： function windows object string user

他山之石专栏收录该内容

18 篇文章

订阅专栏

转载自http://http://blog.youkuaiyun.com/chendazhi/archive/2005/08/14/454479.aspx

Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" _
(ByVal lpFileName As String) As IntPtr

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim myCursor As New Cursor(Cursor.Current.Handle)
        'dinosau2.ani为windows自带的光标：
        Dim colorCursorHandle As IntPtr = LoadCursorFromFile("../dinosau2.ani")

        myCursor.GetType().InvokeMember("handle", BindingFlags.Public Or _
        BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.SetField, _
        Nothing, myCursor, New Object() {colorCursorHandle}) '

Me.Cursor = myCursor
End Sub