كيف يمكن الخروج من الفورم عن طريق مفتاح esc

جمال حسين رشدان · فبراير 11, 2015

الاخوة الافاضل

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

كيف يمكن الخروج من الفورم عن طريق مفتاح esc ؟

وجزاكم الله خيرا

**ibn_egypt** · فبراير 11, 2015

اخى الفاضل

نعم، باستخدام الكود التالى

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

مرفق الملف للتوضيح

تحياتي :fff:

ابو علي و سدرة · فبراير 11, 2015

استخدم احد الامرين

end

او

unload me

جمال حسين رشدان · فبراير 15, 2015

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

الاخوة الافاضل الذين قاموا بالرد جزاكم الله كل خير

وشكرا جزيلا على المساعدة

ولكن لاحظت انه عند اضافة تكست بوكس على الفورم تتعطل هذه الخاصية

وقد ارفقت ملف الاستاذ ibn_egypt بعد اضافة تكست بوكس للفورم ولكن ستلاحظون تعطل الخاصية

شكرا جزيلا لكم مرة اخرىExitForm.rar

تم تعديل فبراير 15, 2015 بواسطه جمال حسين رشدان

**ibn_egypt** · فبراير 15, 2015

أخى الفاضل أ.جمال

لابد أن يوضع الكود في حدث ال TextBox أيضا

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

مرفق الملف للتوضيح

تحياتي :fff:

جمال حسين رشدان · فبراير 16, 2015

جزاكم الله خيرا استاذ ibn_egypt ماقصرت

شكرا جزيلا لك

الردود الموصى بها