1. <th id="osa2k"><track id="osa2k"></track></th>
        <rp id="osa2k"><strike id="osa2k"><u id="osa2k"></u></strike></rp>
        首頁 > 數據庫 > 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教程

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

        發表評論 共有條評論
        用戶名: 密碼:
        驗證碼: 匿名發表
        亚洲性爱高潮视频_夜夜爽一区二区三区精品_亚洲国产第一福利一区二区_久久精品亚洲国产av

            1. <th id="osa2k"><track id="osa2k"></track></th>
              <rp id="osa2k"><strike id="osa2k"><u id="osa2k"></u></strike></rp>