Using ESC to close a form

I have a program that uses a form for its interface and most of the
autocad forms will allow the user to hit escape to close it (ie the
layer manager box.) I think it would be simple but don't know how to do
it.

Thanks

David Urban

 

Put a CLOSE button on your form, and set its Cancel property to TRUE. Then
put "Unload Me" in the button's click event. Hitting ESC while the form is
up runs the click event of whichever button has Cancel=True (only one Cancel
button allowed per form).

HTH,
James

 

Or you could simply put "Unload Me" in the UserForm_KeyPress event.

--
I support two teams: the Red Sox and whoever beats the Yankees.


| Put a CLOSE button on your form, and set its Cancel property to TRUE.
Then
| put "Unload Me" in the button's click event. Hitting ESC while the form
is
| up runs the click event of whichever button has Cancel=True (only one
Cancel
| button allowed per form).
|
| HTH,
| James
|
|
| | > I have a program that uses a form for its interface and most of the
| > autocad forms will allow the user to hit escape to close it (ie the
| > layer manager box.) I think it would be simple but don't know how to do
| > it.
| >
| > Thanks
| >
| > David Urban
|
|

 

Thanks for the help

I was not able to get the form to work with the userform_Keypress
because I had text boxes. It worked with putting the keypress in the
text box form. It ended up putting a cancel button with the cancel
property = True and send the button behind everything where it can't be
seen. that works the best.

Thanks for all of the help

David

 

You can leave the button in a visible portion of your form for editing purposes and then move the button behind something during form intialization. Moving it behind a listbox seems to work fine. I think you might want to take tab stop off the button.

 

Or set its visible property to false.

 

I don't think you can "activate" it when it's invisible.

Regards

Wayne Ivory
IT Analyst Programmer
Wespine Industries Pty Ltd

 

David, Somebody posted this for me
a while back...Works great...if you'd
like to try...gl Paul

'@~~~~~~~General Declarations~~~~~~~@'
'Lets user escape with ESC key...calls user32.dll..
'part of all windows systems since 95
Public Const VK_ESCAPE = &H1B
Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
Public Function UserEscaped() As Boolean
If GetAsyncKeyState(VK_ESCAPE) Then UserEscaped = True
End Function

'Possible call....

If UserEscaped Then
Err.Clear
GoTo myExit' Cleans up and closes the program
ElseIf Err.Number <> 0 Then
Err.Clear
GoTo Retry'Loop back to my getEntity call...
Exit Sub