丰满人妻一区二区三区无码AV|国产乱色国产精品免费视频|国产精品一区二区不卡的视频|2020精品国产福利在线观看香蕉

    1. <rp id="2o2at"><nav id="2o2at"></nav></rp>
      
      

      <rt id="2o2at"></rt>
      <ruby id="2o2at"><nav id="2o2at"></nav></ruby>

    2. <rp id="2o2at"><meter id="2o2at"></meter></rp>

        <tt id="2o2at"><form id="2o2at"></form></tt>

      1. <source id="2o2at"></source>

          首頁 > 數據庫 > 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教程

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

          發表評論 共有條評論
          用戶名: 密碼:
          驗證碼: 匿名發表
          1. <rp id="2o2at"><nav id="2o2at"></nav></rp>
            
            

            <rt id="2o2at"></rt>
            <ruby id="2o2at"><nav id="2o2at"></nav></ruby>

          2. <rp id="2o2at"><meter id="2o2at"></meter></rp>

              <tt id="2o2at"><form id="2o2at"></form></tt>

            1. <source id="2o2at"></source>