乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 57|回复: 4

请教:如何在程序里判断我“按下鼠标右键”?

[复制链接]

11

主题

41

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2005-8-17 14:31:00 | 显示全部楼层 |阅读模式
请问,如何在程序里判断我“按下鼠标右键”?通过这样的判断我可以从某个过程中退出来
回复

使用道具 举报

11

主题

41

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2005-8-18 16:10:00 | 显示全部楼层
难道这是个很难的问题吗?
怎么没有人回答呀
回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2005-8-18 19:48:00 | 显示全部楼层
按下右键会产生一个错误,通过捕获错误号知道。具体这方面的源代码网站上有,你搜索一下。
回复

使用道具 举报

1

主题

9

帖子

2

银币

初来乍到

Rank: 1

铜币
13
发表于 2005-8-19 08:48:00 | 显示全部楼层
参考一下:

Public Function ClickConfirm() As Boolean
  Dim objUtil As AcadUtility
  Dim varPnt As Variant
  Dim strPrmt As String
  On Error GoTo Err_Control
  ‘strPrmt = "Left click to confirm, right click to cancel"
  strPrmt = "鼠标左键确认,右键取消"
  Set objUtil = ThisDrawing.Utility
  varPnt = objUtil.GetPoint(Prompt:=strPrmt)
  'No error? Then they "left clicked" (or typed a point on
  'The command line. Meh. Users are crazy.
  ClickConfirm = True
Exit_Here:
  Exit Function
Err_Control:
  'Debug.Print Err.Description; Err.Number
  Select Case Err.Number
    Case -2145320928
    'Right click with command prompt or "Enter" key
    'User input is a keyword
      Err.Clear
      Resume Exit_Here
    Case -2147352567
    'User pressed escape or clicked a toolbar
    'Method 'GetPoint' of object 'IAcadUtility' failed
      Err.Clear
      Resume Exit_Here
    Case Else
      Err.Clear
      Resume Exit_Here
  End Select
End Function  
功能  
实现鼠标左键确认,右键取消功能  
语法  
ClickConfirm()  
返回值  
True为按了左键
回复

使用道具 举报

11

主题

41

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2005-8-19 10:15:00 | 显示全部楼层
谢谢你们,我马上去搞一下。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-4 06:38 , Processed in 0.771320 second(s), 63 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表