Userformun ESC tuşu ile kapatılması

[Levent Menteşoğlu]

Değerli Arkadaşlar

Bir userformun kapatılmasının sadece klavyedeki ESC tuşu ile yapılması ile ilgili kod önerilerinizi rica ediyorum.

teşekkürler.

 

[Haluk]

@leventm;

Ekli örnek dosyayı inceleyiniz.

 

[xxrt]

Bende nesnelerin keyPress özelliğini düşünmüştüm.Budaha pratikmiş.

 

[Levent Menteşoğlu]

Sn Raider

Çok teşekkür ederim. Tam istediğim gibi olmuş

 

[Zeki Gürsoy]

Merhaba,
Aşağıdaki kodlarla boş bir userform Esc ile kapatılıyor, ancak nesne eklendiğinde
kodlar çalışmadı. Nesnelerden kaynaklanan durum olabilir mi?

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then Unload Me
End Sub

 

[Levent Menteşoğlu]

Çünkü userformu aktif hale getirdiğinizde imleç ilk nesneye odaklanıyor. Bu durumda da odaklandığı nesnede userformun keydown olayının çalışmasını engelliyor. Aslında bu işin en kolay yolu userform üzerine yerleştireceğiniz ve içine "unload me" komutunu yazacağınız bir commandbuttonun properties pencerindeki "cancel" özelliğini "true" yapmanızdır. Bu durumda ESC tuşuna bastığınızda userform kapanacaktır.

 

[Zeki Gürsoy]

Teşekkürler leventm önerinizle sorun çözüldü.