如何将鼠标显示成动画鼠标?

页面导航:首页 > 软件编程 > vb.net > 如何将鼠标显示成动画鼠标?

如何将鼠标显示成动画鼠标?

来源: 作者: 时间:2016-02-05 12:32 【

动画在 Windows 底下是.ani 格式的文件,要显示此类鼠标,首先要利用 LoadCursorFromFile API 载入 .ani 文件,然后利用 SetSystemCursor API 加以显示,细节如下:声明:

 

 

 动画在 Windows 底下是.ani 格式的文件,要显示此类鼠标,首先要利用 LoadCursorFromFile API 载入 .ani 文件,然后利用 SetSystemCursor API 加以显示,细节如下:

 

声明:

Option Explicit

 

Const OCR_NORMAL = 32512

Const _ARROW = 32512&

 

Private Declare Function LoadCursorFromFile Lib "user32" Alias _

  "LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" _

  (ByVal hInstance As Long, lpCursorName As Any) As Long modified

Private Declare Function SetSystemCursor Lib "user32" _

  (ByVal hcur As Long, ByVal id As Long) As Long

 

代码:

 

Dim hCursor As Long

 

hCursor = LoadCursorFromFile( 欲显示的 .ani 或 .cur 文件名称 )

Call SetSystemCursor(hCursor, OCR_NORMAL)

 

  若要将鼠标还原原状,则执行以下过程:

 

hCursor = LoadCursor(0&, ByVal IDC_ARROW)

Call SetSystemCursor(hCursor, OCR_NORMAL)

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <