"ESC" Key press (Exit gracefully)

[spencer.67965]

Hello all,

Just a quick question. Can anyone tell me how (or show me an example of how) I can exit gracefully out of a VBA program when the user presses the ESC key. When using the command line for user input.

Thanks,

Spencer
___________________
AutoCAD 2005 - Win 2k

[Ed Jobe]

Put the following in your Declarations section.


'GetAsyncKeyState constants
Private Enum enGetAsyncKeyState
VK_ESCAPE = &H1B
VK_LBUTTON = &H1
VK_RBUTTON = &H2
VK_RETURN = &HD
VK_SPACE = &H20
End Enum

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As enGetAsyncKeyState) As Integer


Then add the following error handler to your procedure:


Exit_Here:
ThisDrawing.EndUndoMark
Exit Sub

Err_Control:
Select Case Err.Number
Case -2147352567
If GetAsyncKeyState(VK_ESCAPE) And &H8000 > 0 Then
Err.Clear
Resume Exit_Here
ElseIf GetAsyncKeyState(VK_LBUTTON) > 0 Then
Err.Clear
Resume
End If
Case Else
MsgBox Err.Number & " - " & Err.Description, vbCritical, "YourProcedureName"
Resume Exit_Here
End Select
End Sub

[warren.medernach]

Hello Spencer.
Something like this should do the trick:


Sub test()

Dim dblDist As Double

On Error GoTo ErrorHandler

Do

dblDist = ThisDrawing.Utility.GetDistance(, "Enter Distance: ")

Loop While Not IsEmpty(dblDist)


ErrorHandler:
If Err.Number = -2147352567 Then
Exit Sub
End If

End Sub


Hope this helps

Warren M



Hello all,

Just a quick question. Can anyone tell me how (or show me an example of how) I can exit gracefully out of a VBA program when the user presses the ESC key. When using the command line for user input.

Thanks,

Spencer
___________________
AutoCAD 2005 - Win 2k

[spencer.67965]

Thanks for the input.


Spencer