<em id="kkln5"><ruby id="kkln5"><u id="kkln5"></u></ruby></em>
<rp id="kkln5"></rp>

    <s id="kkln5"><object id="kkln5"></object></s>
  1. <dd id="kkln5"><pre id="kkln5"></pre></dd>
  2. 首頁 > 數據庫 > 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教程

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

    發表評論 共有條評論
    用戶名: 密碼:
    驗證碼: 匿名發表
    <em id="kkln5"><ruby id="kkln5"><u id="kkln5"></u></ruby></em>
    <rp id="kkln5"></rp>

      <s id="kkln5"><object id="kkln5"></object></s>
    1. <dd id="kkln5"><pre id="kkln5"></pre></dd>