<track id="pdikh"><span id="pdikh"><em id="pdikh"></em></span></track>
<track id="pdikh"></track>

<bdo id="pdikh"></bdo><tbody id="pdikh"><nobr id="pdikh"><address id="pdikh"></address></nobr></tbody>
  • <bdo id="pdikh"></bdo>

    <menuitem id="pdikh"><dfn id="pdikh"></dfn></menuitem>

    <tbody id="pdikh"></tbody>
    1. 首頁 > 數據庫 > 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教程

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

      發表評論 共有條評論
      用戶名: 密碼:
      驗證碼: 匿名發表
      www con.co.三级免费视频不卡丨秋霞中文不卡无码午夜av影院丨丨吉沢明步高清无码电影免费一区二区丨japanese色国产在线观看
      <track id="pdikh"><span id="pdikh"><em id="pdikh"></em></span></track>
      <track id="pdikh"></track>

      <bdo id="pdikh"></bdo><tbody id="pdikh"><nobr id="pdikh"><address id="pdikh"></address></nobr></tbody>
    2. <bdo id="pdikh"></bdo>

      <menuitem id="pdikh"><dfn id="pdikh"></dfn></menuitem>

      <tbody id="pdikh"></tbody>