اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تعطيل زر التf4


النجاشي

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

وعليكم السلام

جرب المرفق اعتقد أنه يعمل على نطاع الفورم لا على نطاق الأبلكيشن

 

StopF4.rar

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم:smile:

 

وتكملة لإجابة أخي أبو عبدالله:smile:

 

في صفحة كود الاكسس ، اعمل بحث لكلمة KeyCode ،

وسترى اسماء حروف التي على الكيبورد ، مثل (وهذه نسخة من مساعد الاكسس) :

vbKeyEscape
vbKeySpace 
vbKeyPageUp
vbKeyPageDown
...
normal keys:
vbKeyA
vbKeyB 

vbKey8
vbKey9 
...
numeric keypad:
vbKeyDecimal
vbKeyDivide 
...
function keys:
vbKeyF10
vbKeyF11 

.

والرابط التالي يعطيك اسم الزر ورقمه:

https://msdn.microsoft.com/en-us/library/0z084th3(v=vs.90).aspx

 

والآن ، وفي الاكسس ابحث عن Form_KeyDown ، وسترى كود مشابه 

وعليه ، لتعطيل اي زر ، نستعمل رقمه ، كما ذكره اخي ابو عبدالله ، او كما هو في الاكسس ، هكذا

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

          Case 16
               'vbKeyShify
               KeyCode = 0
     End Select
End Sub

.

والآن الى الشيء الاهم:

لما نكون في النموذج ، ونكون نكتب معلومة في حقل نص/مذكرة ، ولا نريد من المستخدم كتابة اشارة التقسيم  "/" مثلا ،

لذا يجب ان يصطاد النموذج هذا الزر قبل ان يدخل في النص ،

لذا يجب عليك ان تعدل في اعدادت النموذج وتجعل اعداد KeyPreview=Yes

00.z_0039.jpg.559ceffb939fd348d2c8618e4a4bc392.jpg

.

او تستعمل حدث تحميل النموذج ، وتضع عليه كود التفعيل اعلاه:

Private Sub Form_Load()
    Me.KeyPreview = True
End Sub

 

جعفر

 

  • Like 2
رابط هذا التعليق
شارك

جزاك الله خيرا أستاذى وأخى @jjafferr  هذا الفارق دائما بين عطاء الأستاذ والتلميذ 

أحببت اضيف معلومة صغيرة  طبعا حفظ الأرقام المقابلة للمفاتيح أمر بغاية الصعوبة وربما البحث عن هذه الأكواد عند الحاجة اليها ربما استقطع جزءا كبيرا من الوقت - لذا اتبع عادا استخدام هذا الكود لاظهار أرقام المفاتيح 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode
End Sub

وهكذا يخبرنا الأكسس بالأرقام من دون عناء :fff:

  • Like 2
رابط هذا التعليق
شارك

21 ساعات مضت, أبو عبدالله الحلوانى said:

وعليكم السلام

جرب المرفق اعتقد أنه يعمل على نطاع الفورم لا على نطاق الأبلكيشن

 

StopF4.rar

جزاك الله خير اخي أبو عبدالله شاكر لك كثير على مساعدتك لنا

9 ساعات مضت, jjafferr said:

السلام عليكم:smile:

 

وتكملة لإجابة أخي أبو عبدالله:smile:

 

في صفحة كود الاكسس ، اعمل بحث لكلمة KeyCode ،

وسترى اسماء حروف التي على الكيبورد ، مثل (وهذه نسخة من مساعد الاكسس) :


vbKeyEscape
vbKeySpace 
vbKeyPageUp
vbKeyPageDown
...
normal keys:
vbKeyA
vbKeyB 

vbKey8
vbKey9 
...
numeric keypad:
vbKeyDecimal
vbKeyDivide 
...
function keys:
vbKeyF10
vbKeyF11 

.

والرابط التالي يعطيك اسم الزر ورقمه:

https://msdn.microsoft.com/en-us/library/0z084th3(v=vs.90).aspx

 

والآن ، وفي الاكسس ابحث عن Form_KeyDown ، وسترى كود مشابه 

وعليه ، لتعطيل اي زر ، نستعمل رقمه ، كما ذكره اخي ابو عبدالله ، او كما هو في الاكسس ، هكذا


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

          Case 16
               'vbKeyShify
               KeyCode = 0
     End Select
End Sub

.

والآن الى الشيء الاهم:

لما نكون في النموذج ، ونكون نكتب معلومة في حقل نص/مذكرة ، ولا نريد من المستخدم كتابة اشارة التقسيم  "/" مثلا ،

لذا يجب ان يصطاد النموذج هذا الزر قبل ان يدخل في النص ،

لذا يجب عليك ان تعدل في اعدادت النموذج وتجعل اعداد KeyPreview=Yes

00.z_0039.jpg.559ceffb939fd348d2c8618e4a4bc392.jpg

.

او تستعمل حدث تحميل النموذج ، وتضع عليه كود التفعيل اعلاه:


Private Sub Form_Load()
    Me.KeyPreview = True
End Sub

 

جعفر

 

تسلم يا استاذنا جعفر ربنا يخليك

رابط هذا التعليق
شارك

52 دقائق مضت, ابو زاهر said:

جزاك الله خير اخي أبو عبدالله

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

58 دقائق مضت, ابو زاهر said:

ربنا يخليك

أخى قد نبهنى بعض الناصحين أن هذا الدعاء غير صحيح (وقد كنت كثيرا ما أدعوا به)

وأخبرنى أن أحدهم قال للشيخ بن عثيمين "الله يخليك" فقال: "ومن يتولانى إن خلانى ربى!"

أحبكم بالله

حفظكم الله وحفظ الله أستاذنا جعفر . 

رابط هذا التعليق
شارك

4 دقائق مضت, أبو عبدالله الحلوانى said:

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

أخى قد نبهنى بعض الناصحين أن هذا الدعاء غير صحيح (وقد كنت كثيرا ما أدعوا به)

وأخبرنى أن أحدهم قال للشيخ بن عثيمين "الله يخليك" فقال: "ومن يتولانى إن خلانى ربى!"

أحبكم بالله

حفظكم الله وحفظ الله أستاذنا جعفر . 

شكر لك اخي علي النصحيه شاكر لك من كل قلبي وهذا يدل على حسن اخلاقك نبهتني كنت دوما ادعي فيها (الدين النصيحه ) تحياتي لك

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information