给大家送点甜心

gnoy

好久没上来了,坛子好热闹呀.送个小东东给大家

Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long



SetCursor LoadCursor(GetWindowLong(Application.hWndAccessApp, -6), 317)

tmtony

好久不见啦，gnoy, 很不错的代码，放在detail_mousemove效果更明显．

qxqjdy

能给新手们略作一下说明么？

zhengjialon

gnoy版主代码的作用是把鼠标形装改成手形的，确实是很不错的代码！不过我没有试过是否支持所有的WINDOWS操作系统。