鼠标指针代码鼠标和鼠标指针

文章插图
大家好,小豆豆来为大家解答以上的问题。鼠标和鼠标指针，鼠标指针代码这个很多人还不知道,现在让我们一起来看看吧！
1、PrivateDeclareFunctionalxSetCursorLib"user32"Alias"SetCursor"(ByValhCursorAsLong)AsLong@#将指定的鼠标指针设为当前指针PrivateDeclareFunctionalxGetCursorLib"user32"Alias"GetCursor"()AsLong@#获取目前选择的鼠标指针的句柄PrivateSubMouseType()@#取得左右形光标的值Pointer=9@#设屏幕鼠标为9（左右型鼠标）。
2、lngMouseOne=alxGetCursor()@#返回左右型鼠标在WINDOWS(2000\98\XP)的值。
3、Pointer=7@#设屏幕鼠标为11（沙漏）。
4、lngMouseTwo=alxGetCursor()@#返回左右型鼠标在WINDOWS(2000\98\XP)的值。
5、Pointer=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=+"\"@#可随意调用其他的.cur鼠标样式文件，以达到显示各种指针的目的lngMyCursor=LoadCursorFromFile(strCurFile)lngSystemCursor=GetCursor()lngSystemCursor=CopyCursor(lngSystemCursor)SetSystemCursorlngMyCursor,OCR_="鼠标指针已经设定为您要的状态"ed=ed=TrueEndSub PrivateSubcmdSystemCursor_Click()@#恢复系统指针样式SetSystemCursorlngSystemCursor,OCR_="鼠标指针已经恢复为系统状态"ed=ed=FalselngSystemCursor=0EndSubPrivateSubForm_Close()IflngSystemCursor<>0ThenSetSystemCursorlngSystemCursor,OCR_NORMALEndSubPrivateSubForm_Unload(CancelAsInteger)IflngSystemCursor<>0ThenSetSystemCursorlngSystemCursor,OCR_NORMALEndSub 。
【鼠标指针代码鼠标和鼠标指针】本文到此分享完毕，希望对大家有所帮助。

鼠标指针代码 鼠标和鼠标指针

鼠标指针代码鼠标和鼠标指针