بحث منع ظهور مربع البحث في نموذج محدد

[ديو05]

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

اريد منع ظور مربع البحث في نموذج معين والغاء ctrl+F

اتمنى تفيدوني

[Shivan Rekany]

20 ساعات مضت, ديو05 said:

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

اريد منع ظور مربع البحث في نموذج معين والغاء ctrl+F

اتمنى تفيدوني

اتفضل كود منع CTRL + F  AND CTRL + H
فقط الصق الكود في محرر فيجوال لنموذج

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Me.KeyPreview = True
Select Case KeyCode
 Case 70 And Shift = 2
KeyCode = 0
Case 72 And Shift = 2
KeyCode = 0
End Select
End Sub

رقم 70 هو كود ل حرف ئيف

و 72 هو كود لحرف ئيج

وفي حدث فتح النموذج اكتب هذا الكود

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

تحياتي

تم تعديل مارس 4, 2017 بواسطه Shivan Rekany