كود غلق الفورم باستخدام مفتاح esc

[فتحي محمد]

السلام عليكم بعد اذن حضراتكم احتاج لكود من خلاله يمكني غلق الفورم بمجرد الضغط علي مفتاح ،esc  في لوحة المفاتيح وشكرا لحضراتكم

تم تعديل سبتمبر 27 بواسطه فتحي محمد

[husain alhammadi]

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If KeyCode = vbKeyEscape Then
        Unload Me
        KeyCode = 0 
    End If
    
End Sub

عليكم السلام و رحمة الله و بركاتة جرب هذا الكود

[محمدسلام]

للاسف الكود لايغمل

 

[أبومروان]

وعليكم السلام ورحمه الله 

جرب الكود التالي لعله يفي بالغرض 

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 27 Then ' 27 is the key code for Escape
        Unload Me
    End If
End Sub

 

Book1.xlsm

تم تعديل سبتمبر 30 بواسطه أبومروان

[أبومروان]

لحضرتكم بعض الارقام للعمل لوحه المفاتيح 

 مفاتيح الأسهم
KeyCode = 37   ' السهم لليسار ←
KeyCode = 38   ' السهم للأعلى ↑
KeyCode = 39   ' السهم لليمين →
KeyCode = 40   ' السهم للأسفل ↓

 مفاتيح الوظائف
KeyCode = 112  ' F1
KeyCode = 113  ' F2
KeyCode = 114  ' F3
KeyCode = 115  ' F4
KeyCode = 116  ' F5
KeyCode = 117  ' F6
KeyCode = 118  ' F7
KeyCode = 119  ' F8
KeyCode = 120  ' F9
KeyCode = 121  ' F10
KeyCode = 122  ' F11
KeyCode = 123  ' F12

 مفاتيح التحكم
KeyCode = 27   ' ESC
KeyCode = 13   ' Enter
KeyCode = 32   ' Space
KeyCode = 9    ' Tab
KeyCode = 8    ' Backspace
KeyCode = 46   ' Delete
KeyCode = 36   ' Home
KeyCode = 35   ' End
KeyCode = 33   ' Page Up
KeyCode = 34   ' Page Down
KeyCode = 45   ' Insert


 مفاتيح الأرقام
KeyCode = 48   ' 0
KeyCode = 49   ' 1
KeyCode = 50   ' 2
KeyCode = 51   ' 3
KeyCode = 52   ' 4
KeyCode = 53   ' 5
KeyCode = 54   ' 6
KeyCode = 55   ' 7
KeyCode = 56   ' 8
KeyCode = 57   ' 9