تعطيل زر التf4

[النجاشي]

السلام عليكم ورحمه الله وبركاته كيف اعطل زر الت f4   تحياتي لكم

[أبو عبدالله الحلوانى]

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

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

 

StopF4.rar

[jjafferr]

السلام عليكم

 

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

 

في صفحة كود الاكسس ، اعمل بحث لكلمة 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

.

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

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

 

جعفر

 

[أبو عبدالله الحلوانى]

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

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

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

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

[النجاشي]

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

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

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

 

StopF4.rar

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

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

السلام عليكم

 

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

 

في صفحة كود الاكسس ، اعمل بحث لكلمة 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

.

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

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

 

جعفر

 

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

[أبو عبدالله الحلوانى]

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

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

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

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

ربنا يخليك

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

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

أحبكم بالله

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

[النجاشي]

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

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

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

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

أحبكم بالله

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

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