首頁 > 數據庫 > Access > 正文

            Access中如何設定鼠標指針?

            2020-03-24 19:24:34
            字體:
            來源:轉載
            供稿:網友
            PrivateDeclareFunctionalxSetCursorLib"user32"Alias"SetCursor"(ByValhCursorAsLong)AsLong
            '將指定的鼠標指針設為當前指針
            PrivateDeclareFunctionalxGetCursorLib"user32"Alias"GetCursor"()AsLong
            '獲取目前選擇的鼠標指針的句柄



            PrivateSubMouseType()
            '取得左右形光標的值
            Screen.MousePointer=9'設屏幕鼠標為9(左右型鼠標)。
            lngMouseOne=alxGetCursor()'返回左右型鼠標在WINDOWS(2000/98/XP)的值。
            Screen.MousePointer=7'設屏幕鼠標為11(沙漏)。
            lngMouseTwo=alxGetCursor()'返回左右型鼠標在WINDOWS(2000/98/XP)的值。
            Screen.MousePointer=0'重設屏幕鼠標為0(ACCESS自確定)。
            blTextout=False
            blTextlook=False
            EndSub

            方法二:
            隨便找一個.cur文件copy到mdb文件相同的目錄

            PrivateDeclareFunctionCopyCursorLib"user32"Alias"CopyIcon"(ByValhcurAsLong)AsLong
            PrivateDeclareFunctionLoadCursorFromFileLib"user32"Alias"LoadCursorFromFileA"(ByVallpstrCurFileAsString)AsLong
            PrivateDeclareFunctionGetCursorLib"user32"()AsLong
            PrivateDeclareFunctionSetSystemCursorLib"user32"(ByValhcurAsLong,ByValidAsLong)AsLong
            PrivateConstOCR_NORMAL=32512 dimlngMyCursorAsLong
            DimlngSystemCursorAsLong


            PrivateSubcmdMyCursor_Click()'更改指針樣式
            DimstrCurFileAsString
            strCurFile=CurrentProject.Path+"/Cursor.cur"
            '可隨意調用其他的.cur鼠標樣式文件,以達到顯示各種指針的目的
            lngMyCursor=LoadCursorFromFile(strCurFile)
            lngSystemCursor=GetCursor()
            lngSystemCursor=CopyCursor(lngSystemCursor)
            SetSystemCursorlngMyCursor,OCR_NORMAL
            Text1.SetFocus
            Text1.Text="鼠標指針已經設定為您要的狀態"
            cmdMyCursor.Enabled=False
            cmdSystemCursor.Enabled=True
            EndSub privateSubcmdSystemCursor_Click()'恢復系統指針樣式
            SetSystemCursorlngSystemCursor,OCR_NORMAL
            Text1.SetFocus
            Text1.Text="鼠標指針已經恢復為系統狀態"
            cmdMyCursor.Enabled=True
            cmdSystemCursor.Enabled=False
            lngSystemCursor=0
            EndSubprivateSubForm_Close()
            IflngSystemCursor 0ThenSetSystemCursorlngSystemCursor,OCR_NORMAL
            EndSubprivateSubForm_Unload(CancelAsInteger)
            IflngSystemCursor 0ThenSetSystemCursorlngSystemCursor,OCR_NORMAL
            EndSub 本文作者:html教程

            鄭重聲明:本文版權歸原作者所有,轉載文章僅為傳播更多信息之目的,如作者信息標記有誤,請第一時間聯系我們修改或刪除,多謝。

            發表評論 共有條評論
            用戶名: 密碼:
            驗證碼: 匿名發表
            日韩三区