كيف الغي فاعلية alt + f4

اذا كنت لا تريد اغلاق البرنامج الا بمعرفتك فجرب الكود التالى

Private Sub Form_UnLoad(Cancel as intger)
Cancel = 1
End Sub

وهذا سوف يقوم بعدم اغلاق البرنامج بأى طريقه الا بالأمر End

:rolleyes:

هذا الكود يمنع اغلاق البرنامج بواسطة alt و f4

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = vbAltMask And KeyCode = vbKeyF4 Then
KeyCode = 0
End If

End Sub

الطريقة التى ذكرها أخي مصطفى هي المفضلة لي

لكن حتى تعمل بطريقة صحيحة عليك ان تجعل خاصية KeyPreview للنموذج تساوي True لانه بدونها سوف يتم تنفيذ الكود فقط عندما لا يكون هناك اي كونترول موجود على النموذج