大家好,小豆豆来为大家解答以上的问题。鼠标和鼠标指针，鼠标指针代码这个很多人还不知道,现在让我们一起来看看吧！

1、PrivateDeclareFunctionalxSetCursorLib"user32"Alias"SetCursor"(ByValhCursorAsLong)AsLong@#将指定的鼠标指针设为当前指针PrivateDeclareFunctionalxGetCursorLib"user32"Alias"GetCursor"()AsLong@#获取目前选择的鼠标指针的句柄PrivateSubMouseType()@#取得左右形光标的值Screen.MousePointer=9@#设屏幕鼠标为9（左右型鼠标）。

2、lngMouseOne=alxGetCursor()@#返回左右型鼠标在WINDOWS(2000\98\XP)的值。

3、Screen.MousePointer=7@#设屏幕鼠标为11（沙漏）。

4、lngMouseTwo=alxGetCursor()@#返回左右型鼠标在WINDOWS(2000\98\XP)的值。

5、Screen.MousePointer=0@#重设屏幕鼠标为0（ACCESS自确定）。

6、blTextout=FalseblTextlook=FalseEndSub方法二：随便找一个.cur文件copy到mdb文件相同的目录PrivateDeclareFunctionCopyCursorLib"user32"Alias"CopyIcon"(ByValhcurAsLong)AsLongPrivateDeclareFunctionLoadCursorFromFileLib"user32"Alias"LoadCursorFromFileA"(ByVallpstrCurFileAsString)AsLongPrivateDeclareFunctionGetCursorLib"user32"()AsLongPrivateDeclareFunctionSetSystemCursorLib"user32"(ByValhcurAsLong,ByValidAsLong)AsLongPrivateConstOCR_NORMAL=32512 DimlngMyCursorAsLongDimlngSystemCursorAsLongPrivateSubcmdMyCursor_Click()@#更改指针样式DimstrCurFileAsStringstrCurFile=CurrentProject.Path+"\Cursor.cur"@#可随意调用其他的.cur鼠标样式文件，以达到显示各种指针的目的lngMyCursor=LoadCursorFromFile(strCurFile)lngSystemCursor=GetCursor()lngSystemCursor=CopyCursor(lngSystemCursor)SetSystemCursorlngMyCursor,OCR_NORMALText1.SetFocusText1.Text="鼠标指针已经设定为您要的状态"cmdMyCursor.Enabled=FalsecmdSystemCursor.Enabled=TrueEndSub PrivateSubcmdSystemCursor_Click()@#恢复系统指针样式SetSystemCursorlngSystemCursor,OCR_NORMALText1.SetFocusText1.Text="鼠标指针已经恢复为系统状态"cmdMyCursor.Enabled=TruecmdSystemCursor.Enabled=FalselngSystemCursor=0EndSubPrivateSubForm_Close()IflngSystemCursor<>0ThenSetSystemCursorlngSystemCursor,OCR_NORMALEndSubPrivateSubForm_Unload(CancelAsInteger)IflngSystemCursor<>0ThenSetSystemCursorlngSystemCursor,OCR_NORMALEndSub。

本文到此分享完毕，希望对大家有所帮助。

版权说明： 本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。

标签：