Access中如何设定鼠标指针？

方法一:
私有声明函数alx Set cursor lib " user 32 " alias " Set cursor "(byval h cursor as long)
'将指定的鼠标指针设置为当前指针
私有声明函数alx Get cursor lib " user 32 " alias " Get cursor "()as long
'获取当前选中鼠标指针的句柄。

Privatemousetype ()
'获取左右光标的值
screen.mousepoint = 9 '将屏幕鼠标设置为9(左右鼠标)。
lngMouseOne = alxGetCursor()'返回WINDOWS(2000\XP)中鼠标左键和右键的值。
screen.mouseporter = 7 '将屏幕鼠标设置为11(沙漏形)。
lngMouseTwo = alxGetCursor()'返回WINDOWS(2000\XP)中鼠标左键和右键的值。
screen.mouseporter = 0 '将屏幕鼠标重置为0(ACCESS自行决定)。
bl textout = False
bl text look = False
End Sub

方法2:

找到任何。cur文件并将其复制到与mdb文件相同的目录中
私有声明函数复制游标lib "user32 "别名" copy icon "(ByVal hcur As Long)
私有声明函数LoadCursorFromFile Lib "user32 "别名" LoadCursorFromFileA "(ByVal lpstrCurFile As String)Long
私有声明函数get cursor Lib " user 32 "()Long
私有声明函数SetSystemCursor Lib " user 32 "(ByVal hcur As Long

Private subcmd my cursor _ click()'将指针样式
dimstrcurfile改为string
strcurfile = current project . path+" \ cursor . cur "
'可以调用其他。cur鼠标样式文件随意显示各种指针
LNG my cursor = loadcursorfromfile(strcurfile)
lngSystemCursor = get cursor()
lngSystemCursor = copy cursor(lngSystemCursor)
setsystem cursor lngMyCursor，Ocr _ normal
text 1 . set focus
text = "鼠标指针已设置为您想要的状态"
cmdmursor ocr _ normal
text 1 . setfocus
text 1 . text = "鼠标指针已恢复到系统状态"
cmdmycursor . enabled = true
cmdsystemcursor . enabled = false
lngsystemcursor = 0[/br]

private Sub Form _ Close()
If lngSystemCursor 0 Then setsystem cursor lngSystemCursor，OCR_NORMAL
End Sub

private Sub Form _ Unload(Cancel As Integer)
If lngSystemCursor 0 Then setsystem cursor lngSystemCursor，OCR_NORMAL
End Sub