Office中国论坛/Access中国论坛

标题: 不使用超链接方式改变鼠标形状的代码 [打印本页]

作者: tmtony 时间: 2004-5-19 02:16
标题: 不使用超链接方式改变鼠标形状的代码
不使用超链接方式改变鼠标形状的代码'*********** Code Start  ************

' This code was originally written by Terry Kreft.

' It is not to be altered or distributed,

' except as part of an application.

' You are free to use it in any application,

' provided the copyright notice is left unchanged.

'

' Code Courtesy of

' Terry Kreft

'

Public Const IDC_APPSTARTING = 32650&

Public Const IDC_HAND = 32649&

Public Const IDC_ARROW = 32512&

Public Const IDC_CROSS = 32515&

Public Const IDC_IBEAM = 32513&

Public Const IDC_ICON = 32641&

Public Const IDC_NO = 32648&

Public Const IDC_SIZE = 32640&

Public Const IDC_SIZEALL = 32646&

Public Const IDC_SIZENESW = 32643&

Public Const IDC_SIZENS = 32645&

Public Const IDC_SIZENWSE = 32642&

Public Const IDC_SIZEWE = 32644&

Public Const IDC_UPARROW = 32516&

Public Const IDC_WAIT = 32514&

Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _

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

Declare Function LoadCursorFromFile Lib "user32" Alias _

  "LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Declare Function SetCursor Lib "user32" _

  (ByVal hCursor As Long) As Long

Function MouseCursor(CursorType As Long)

  Dim lngRet As Long

  lngRet = LoadCursorBynum(0&, CursorType)

  lngRet = SetCursor(lngRet)

End Function

Function PointM(strPathToCursor As String)

  Dim lngRet As Long

  lngRet = LoadCursorFromFile(strPathToCursor)

  lngRet = SetCursor(lngRet)

End Function

'*********** Code End ************

作者: zhuyiwen 时间: 2004-5-19 04:20
快抢呀！[em08]

作者: sweetduck 时间: 2004-5-19 05:44
好是好！不过，写这么多还不如用超级连接呢！呵呵！

作者: ielonger 时间: 2004-9-9 16:52
标题: 回复：（sweetduck）好是好！不过，写这么多还不如用超...
有道理

作者: Benjamin_luk 时间: 2004-9-9 17:57
我想很多人都看过吧. 有用过, 不错.下次这样贴, 由版主发就行了吧. 觉得有点降坛主的.....[em05]

作者: ngw123 时间: 2004-9-9 19:21
鼠标在目标上移动会抖动．．．．不如超连接自然

作者: hi-wzj 时间: 2004-9-9 20:45

以下是引用sweetduck在2004-5-18 21:44:25的发言：

好是好！

不过，写这么多还不如用超级连接呢！

呵呵！

若只简单的变小手是没必要，但其代码可自定义鼠标的样式是有用途的。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)