Userformdan esc ile çıkış kodu ve özelliği

[hsayar]

Biliyorum çok basit ama beynim durdu.
Userformdan escape ile kod ile nasıl çıkarım?
Userformdan escape ile Userformu özellikleirnden nereyi değiştirmem gerekiyor?

 

[BG]

Sayın hsayar

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

şeklinde denermisiniz. iyi çalışmalar dilerim.

 

[hsayar]

Sn brain alakanıza teşekkür ederim ancak olmadı.

 

[BG]

Sn brain alakanıza teşekkür ederim ancak olmadı.

ben denedim esc tuşuna bastığımda userform u kapatıyor. belkide userform özelliklerinden bazı seyleri yanlislika degitirmis olabilirsiniz, kodlarda bir hata oldugunu dusunmuyorum, yenibir userformda denediniz mi?

 

[hsayar]

açıkçası yeni bir userformda denemedim. başka işlerle meşgulüm şu anda öyle de denerim.

 

[Ferhat Pazarçevirdi]

Userfom üzerine bir adet "İptal" (veya "Çıkış") butonu (örn. CommandButton1 adında) yerleştirin.

Userform'un Initialize koduna;

[B]CommandButton1[/B].Cancel=True

satırını ilave edin.

Daha sonra, CommandButton1'in Click olayına da "Unload Me" (veya gizleme komutu) ifadesini yerleştirin.

Esc'ye bastığınızda, Userform kapanacak veya gizlenecektir.

NOT : Brain'in verdiği kod, sadece Userform tabanında çalışır. Örneğin bir TextBox'ın içine girdiğinizde veya bir ListBox'a focuslanılmışsa çalışmaz.

 

[hsayar]

evet şimdi yeniuserformda denedim. sorun yok hayret bir olay. olmazsa userformları değiştiririm. yarın

 

[hsayar]

Userfom üzerine bir adet "İptal" (veya "Çıkış") butonu (örn. CommandButton1 adında) yerleştirin.

Userform'un Initialize koduna;

[B]CommandButton1[/B].Cancel=True

satırını ilave edin.

Daha sonra, CommandButton1'in Click olayına da "Unload Me" (veya gizleme komutu) ifadesini yerleştirin.

Esc'ye bastığınızda, Userform kapanacak veya gizlenecektir.

NOT : Brain'in verdiği kod, sadece Userform tabanında çalışır. Örneğin bir TextBox'ın içine girdiğinizde veya bir ListBox'a focuslanılmışsa çalışmaz.

teşekkür ederim, hocam.

 

[hsayar]

CommandButon kullanmadan, Maximize, minimize, resize özellikleri eklenmiş bir userformda escape basmak suretiyle çıkış nasıl olur?

yada commnadbutonun görüntülebilirliği kapatıldığı zaman bu kod nasıl çalıştırılır?

Private Sub UserForm_Initialize()
'.............
cmdIPT.Cancel = True ': cmdIPT.Visible = False
'.............
End sub
 
 
Private Sub CmdIPT_Click()
101 Unload Me
End Sub

 

[Korhan Ayhan]

Selamlar,

Form üzerindeki tüm kontrollerin KeyDown olayına Sn. brain 'ın vermiş olduğu kodu uygulamak gerekecektir. Bunun yerine ekteki örnek dosyada Class Module ile bu kontrollerin KeyDown olayını topluca kontrol altına alarak Escape tuşuna bastığınızda formun kapanması sağlanmıştır.

Siz kendi formunuzdaki kontrolleride Class Module eklyerek-tanıtarak bu kontrolü rahatlıkla sağlayabilirsiniz.

 

[hsayar]

teşekküe ederim hocam