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

zhu1

请问，如何在程序里判断我“按下鼠标右键”？通过这样的判断我可以从某个过程中退出来

zhu1

难道这是个很难的问题吗？

怎么没有人回答呀

mikewolf2k

按下右键会产生一个错误，通过捕获错误号知道。具体这方面的源代码网站上有，你搜索一下。

PS122

参考一下:

 

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为按了左键

zhu1

谢谢你们，我马上去搞一下。