alt+F11 ايقاف

[Ahmed.IQ]

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

هل هناك طريقة لايقاف عمل alt+F11

[Shivan Rekany]

منذ ساعه, Ahmed.IQ said:

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

هل هناك طريقة لايقاف عمل alt+F11

اليك هذا الكود
 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   Select Case KeyCode
      Case 122
         KeyCode = 0
   End Select
End Sub

لكن لازم تتغير خاصية Key Preview الى نعم للنموذج 

او يجب تستخدم هذا الكود معه
 

Private Sub Form_Open(Cancel As Integer)
Me.KeyPreview = True
End Sub

تحياتي

[Ahmed.IQ]

عاشت ايدك مضبوط

 

[النجاشي]

ربي يبارك فيك اخي@Shivan Rekany أبو محمد  ممتاز جدا

تم تعديل أبريل 11, 2017 بواسطه ابو زاهر