Как закрывать форму (UserForm) клавишей Esc?

[asemynoff]

Как закрывать форму (UserForm) клавишей Esc?

[Booozer]

Код: Выделить всё


Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 27 Then Me.Hide
End Sub


[Tuco]

А ты сам-то пробовал этот код запускать? По какой-то причине не работают на пользовательских формах (по крайней мере в экселе) ни KeyPress, ни KeyDown, ни KeyUp.

[alibek]

А если сделать KeyPreview=True?

[Tuco]

А это куда впихнуть?

[Sebas]

Command1.cancel=true

[asemynoff]

Код: Выделить всё

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 27 Then Me.Hide
End Sub


Я попробывал, но ничего не происходит. Я так думаю, что это из-за того, что Visual Basic каким-то образом отличается от Visual Basic for Application. Нет?

[alibek]

Мда. И правда, KeyPreview нет.
Можно попробовать через API, если вариант Sebasа не применим.

[Димитрий]

Разместите на форме кнопку (можно её и спрятать). Установите её свойство Сancel как True. Напишите код для нажатия кнопки:

Код: Выделить всё

Private Sub CommandButton1_Click()
  Unload Me
  Set UserForm1 = Nothing
End Sub

Ваша задача решена.

[Booozer]

Ситуация следующая. При нажатии клавиши на клавиатуре. Активный элемент формы перехватывает нажатие. Поэтому мой выше приведенный код не срабатывает при наличии каких-либо элементов управления на форме. Можно использовать например следующее:

Код: Выделить всё


Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 27 Then ActiveControl.Parent.Hide
End Sub


Т.к. пользовательская форма не имеет свойства KeyPreview (т.е. не имеет возможности перехватывать нажатие клавиш) либо использовать API.

[Vitaly1]

Сделай процедуру в модуле формы:
Private Sub Oll_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 27 Then Me.Hide
End Sub

И пропеши ее запуск во всех KeyPress объектов формы и в KeyPress самой формы, понял?..

[asemynoff]

Это сработало:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 27 Then Unload UserForm1
End Sub

При запуске формы, фокус всегда на TextBox1. Я на всякий случай в следующий элемент добавил такую же фишку.

Большое спасибо Booozer'у, Vitaly 1 и всем остальным...

[Sebas]

нды, без вазелина никак)))