دلوني على طريقة لإلغاء عمل مفتاح (tab)

هنا:

/index.php?showtopic=61429

مشرفنا العزيز // biskraيبدو انني لم اوصل الفكرة جيدا

انا اريد الغاء عمل مفتاح (tab)

اشكرك مجددا ( لقد تعلمت شيئاً جديداً من الرابط الذي حولتني عليه )

للرفع

انا اريد الغاء عمل مفتاح (tab)

كما ورد فى الرابط يا اخى srab

لكى تلغى مفتاح ال tab من اى كائن اضغط على الكائن كليك يمين واختر خصائص وابحث عن خاصية

(ايقاف علامة الجدولة تلقائية ) ومنها اختر ( لا )

سوف تحل المشكلة

اخي // waleedpro

مشرفنا العزيز // biskra

انا احتاج لخاصية الجدولة التلاقائية واريد بنفس الوقت منع المستخدم من استعمال مفتاح (tab)

فهل هنالك حلا آخر

اشكر لكما تجاوبكما معي واقدر كل ما منحتماني اياه من وقتكما الثمين

لقد تم تصميم نموذج وكود خاص بإلغاء مفتاح TAB

طبق الخطوات كما هي

1. من خلال خصائص النموذج (حدث) إذهب إلى (مفتاح العرض التمهيدي) واجعل خاصيته ( نعم) ثم إذهب إلى (عند مفتاح للأسفل) واستخدم الكود هذا

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 9, 9 ' TAB تعطيل مفتاح 
KeyCode = 0
Case 9 And Shift = 2
KeyCode = 0
Case 9 And Shift = 2
KeyCode = 0
Case Else
End Select
End Sub

يمثل الرقم 9 في لوحة المفاتيح مفتاح TAB ولتعطيله جعلنا KeyCode له يساوي صفر

وهذانموذج مرفق معطل به مفتاح TAB مع الابقاء على خاصية نعم في مفتاح العرض التمهيدي

اختكم

زهره

NO-TAB.rar

الاخت // zahrah

كانت اجابتك شافية ووافية

جزاك الله كل خير ووفقك دنيأً و آخرة

شكرا لك اختى زهرة

على هذا المجهود الرائع

الاخت زهره لو اردنا تعطيل ازرار F1-F12 بالكود كيف وجزاك الله خيرا

الاخ الفاضل مؤيد

تفضل الحل برعاية استاذنا الكبير " سعودي 31 " سابقا وحاليا فهد الدوسري .

1. من خلال خصائص النموذج (حدث) إذهب إلى (مفتاح العرض التمهيدي) واجعل خاصيته ( نعم) ثم إذهب إلى (عند مفتاح للأسفل) واستخدم هذا الكود لتعطيل مفتاحي F1 و F12

  
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 112, 123     ' F1  و   F12  تعطيل مفتاحي 
KeyCode = 0
Case 112 And Shift = 0
KeyCode = 0
Case 123 And Shift = 0
KeyCode = 0
Case Else
End Select
End Sub

واذا رغبت في تعطيل جميع المفاتيح من F1 الى F12 استخدم هذا الكود

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 112, 112,113,114,115,116,117,118,119,120,121,122 ,123    ' F1  و   F12  تعطيل المفاتيح من 
F1 الى F12 
KeyCode = 0
Case 112 And Shift = 0
KeyCode = 0
Case 113 And Shift = 0
KeyCode = 0
Case 114 And Shift = 0
KeyCode = 0
Case 115 And Shift = 0
KeyCode = 0
Case 116 And Shift = 0
KeyCode = 0
Case 117 And Shift = 0
KeyCode = 0
Case 118 And Shift = 0
KeyCode = 0
Case 119 And Shift = 0
KeyCode = 0
Case 120 And Shift = 0
KeyCode = 0
Case 121 And Shift = 0
KeyCode = 0
Case 123 And Shift = 0
KeyCode = 0
Case Else
End Select
End Sub

اختكم

زهره

جزاك الله كل خير أختنا الفاضله زهرة والأخ العزيز فهد الدوسري...