<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. Access交流中心

      北京 | 上海 | 天津 | 重慶 | 廣州 | 深圳 | 珠海 | 汕頭 | 佛山 | 中山 | 東莞 | 南京 | 蘇州 | 無錫 | 常州 | 南通 | 揚州 | 徐州 | 杭州 | 溫州 | 寧波 | 臺州 | 福州 | 廈門 | 泉州 | 龍巖 | 合肥 | 蕪湖 | 成都 | 遂寧 | 長沙 | 株洲 | 湘潭 | 武漢 | 南昌 | 濟南 | 青島 | 煙臺 | 濰坊 | 淄博 | 濟寧 | 太原 | 鄭州 | 石家莊 | 保定 | 唐山 | 西安 | 大連 | 沈陽 | 長春 | 昆明 | 蘭州 | 哈爾濱 | 佳木斯 | 南寧 | 桂林 | ???/a> | 貴陽 | 西寧 | 烏魯木齊 | 包頭 |

      回復 加入收藏帖  復制
      我要提問 帖子上移

      [5分]這個函數按鍵如保調用光標

      菜鳥 等級: 普通會員▲ 積分:265 金幣:40 來自:廣州Access交流中心 發表于:2020-02-19 12:32:15   已結帖
      樓主

      Option Compare Database
      Option Explicit
      'API函數聲明
      Private Declare Function apiShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
      Private Declare Function apiSetCursor Lib "user32" Alias "SetCursor" (ByVal hCursor As Long) As Long
      Private Declare Function apiLoadCursorByNum Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
      Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


      '光標形狀常量枚舉
      Public Enum cuCursorType
          cuCursorHand = 32649            '手形
          cuCursorAppStarting = 32650     '系統忙
          cuCursorArrow = 32512           '常規箭頭形
          cuCursorCross = 32515           '十字形
          cuCursorIbeam = 32513           '文本插入
          cuCursorIcon = 32641            '使用指定光標
          cuCursorNo = 32648              '不可用
          cuCursorSize = 32640            '隱藏指針
          cuCursorSizeAll = 32646         '選中并移動
          cuCursorSizeNESW = 32643        '左下角右上角大小調整
          cuCursorSizeNS = 32645          '上下調整
          cuCursorSizeNWSE = 32642        '左上角右下角大小調整
          cuCursorSizeWE = 32644          '左右調整
          cuCursorUpArrow = 32516         '上箭頭
          cuCursorWait = 32514            '沙漏
      End Enum


      Public Function SetCursor(Optional CursorType As cuCursorType = cuCursorHand)
          Call apiSetCursor(apiLoadCursorByNum(0, CursorType))
      End Function

       

      access培訓  誠聘access開發人員

          菜鳥
            獲得社區協助:請教問題(即發帖)111篇,其中獲得解決的104篇;
            協助社區成員:協助他人(即回帖)45篇,其中被設為【最佳答案】的10篇;
            協助我們社區:發布技術文章1篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      Top

      掃描下方工作人員的微信二維碼加微信,邀您加入Access課堂微信群,進入一個技術交際圈:

      網站工作人員微信

      張志 等級:管理員★★★★★ 積分:112270 金幣:42480 來自:上海Access交流中心 發表于2020/2/24 20:52:59 最佳答案
      1樓 得分: 5

      參考示例:點擊下載此附件


      移動到相應標簽,就會發生變化。代碼是寫在屬性 -》事件-》鼠標移動  中的。



          希望我的回答能解決了您的問題,或者所附上的這些信息對您有所幫助!如有任何疑問或需要進一步幫助,請您直接在本站發貼,我們非常樂意幫助您解決問題!
          如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,以方便大家對那些正在等待解決的帖子給予關注!
          張志  [協助社區成員回帖2893篇,其中【最佳答案】1156篇;發布技術文章1062篇。]
          UMVSoft在線支持工程師
          http://www.umvsoft.com
          QQ:2851379730 點擊這里給張志發消息
          如果您沒有注冊這個論壇,請單擊下面的鏈接進行注冊,與我在論壇進行交流:
          http://www.beijingfeeling.com/reg/reg.asp?userid=8
          本貼子以“現狀”提供且沒有任何擔保,同時也沒有授予任何權利。
      總記錄:1篇  頁次:1/1 9 1 :
      您還沒有在Access軟件網登錄不能回復帖子
      • 你沒有登錄,請點擊后面鏈接登錄:登錄
      • 如果你沒有注冊,請點擊后面鏈接注冊:注冊,注冊完成后,請再次訪問本頁功能。
       
      湖北11选5