1. 首頁 > 生活經驗 > >

鼠標指針代碼 鼠標和鼠標指針

知識經驗


鼠標指針代碼 鼠標和鼠標指針

文章插圖
大家好,小豆豆來為大家解答以上的問題 。鼠標和鼠標指針，鼠標指針代碼這個很多人還不知道,現在讓我們一起來看看吧！
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 。
【鼠標指針代碼 鼠標和鼠標指針】本文到此分享完畢，希望對大家有所幫助 。