Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

回复 加入收藏帖  复制
我要提问 帖子上移

[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开发人员

    菜鸟
      获得社区协助:请教问题(即发帖)113篇,其中获得解决的105篇;
      协助社区成员:协助他人(即回帖)45篇,其中被设为【最佳答案】的10篇;
      协助我们社区:发布技术文章1篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
Top

扫描下方工作人员的微信二维码加微信,邀您加入Access课堂微信群,进入一个技术交际圈:

网站工作人员微信

张志 等级:管理员★★★★★ 积分:113009 金币:42760 来自:上海Access交流中心 发表于2020/2/24 20:52:59 最佳答案
1楼 得分: 5

参考示例:点击下载此附件


移动到相应标签,就会发生变化。代码是写在属性 -》事件-》鼠标移动  中的。



    希望我的回答能解决了您的问题,或者所附上的这些信息对您有所帮助!如有任何疑问或需要进一步帮助,请您直接在本站发贴,我们非常乐意帮助您解决问题!
    如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,以方便大家对那些正在等待解决的帖子给予关注!
    张志  [协助社区成员回帖2909篇,其中【最佳答案】1160篇;发布技术文章1069篇。]
    UMVSoft在线支持工程师
    http://www.umvsoft.com
    QQ:2851379730 点击这里给张志发消息
    如果您没有注册这个论坛,请单击下面的链接进行注册,与我在论坛进行交流:
    http://www.accessoft.com/reg/reg.asp?userid=8
    本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。
总记录:1篇  页次:1/1 9 1 :
您还没有在Access软件网登录不能回复帖子
  • 你没有登录,请点击后面链接登录:登录
  • 如果你没有注册,请点击后面链接注册:注册,注册完成后,请再次访问本页功能。