مساعدة فى ألغاء مفتاح TAb فى الكيبورد لمنعه من التنقل بين السجلات فى النموذج الفردى وتوقيفه عند أخر Command فى النموذج

[walid7799]

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

وأن أمكن أن يكون مسمحوح بالضغط عليه ويتوقف عند أخر زر موجود بالنموذج ولاكن لا ينتقل ألى السجل التالى فى النموذج الفردى

[ِAbo_El_Ela]

اخي الكريم 

من خصائص النموذج 

تبويب غير ذلك 

عند دورة السجل

اجعلها السجل الحالي 

كما في الصورة

[ابو جودي]

وممكن من خلال كود بس جرب دى الاول

منذ ساعه, ABOLO2 said:

اخي الكريم 

من خصائص النموذج 

تبويب غير ذلك 

عند دورة السجل

اجعلها السجل الحالي 

كما في الصورة

 

[ابو جودي]

على كل حال سواء قمت بالتجربة وتوصلت لما تريد او لا 
زيادة فى الخير  اليكم الطريقة البرمجية

ضع السطر التالى فى حدث  Form_Load

KeyPreview = True

لتفعيل الزر

نعتمد فى الكود الاتى على امرين رئيسيين

1. رقم الزر
2. رقم مفتاح الشيفت

وما هو استخدام رقم الزر ورقم الشفت ؟ |
رقم الشفت اذا كان = 0 يتم تعطيل عمل المفتاح
واذا كان رقم الشفت= 1 يعمل المفتاح مرة اخرى 

والرقم الخاص بزر TAP  هو 9

لذلك ان اردنا تعطيله نستخدم الكود الاتى فى الحدث  Form_KeyDown مع المتغير الثانى وهو رقم مفتاح الشيفت = 0

Select Case KeyCode
      Case 9
         KeyCode = 0
         MsgBox "Tab Cancelled"
End Select

طيب لو اردنا تفعيله رقم مفتاح الشيفت = 1

Select Case KeyCode
      Case 9
         KeyCode = 1
         MsgBox "Tab Cancelled"
End Select

طيب من اين علمنا رقم الزر 

هناك طريقتان من هلال القاعدة التى سوف اقوم بوضعها كمرفق 
او من خلال الموقع الاتى 
https://docs.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa243025(v=vs.60)?redirectedfrom=MSDN

 

ملاحظة ممكن استخدام رقم الزر او الاسم الثابت للزر وتحصل على الاسم من الموقع من  Constant

Key Code Constants.zip

تم تعديل ديسمبر 6, 2021 بواسطه ابو جودي

[walid7799]

استاذى الفاضل جزاك الله عنا خيراً

انا كنت ابحث عنه جائز انى كنت ابحث بطريقة خطأ لكن اوكد لحضرتك انى بحثت فى جوجل والمنتديات المختلفة بكل الكلمات وكل الطرق وحضرتك تستحق افضل اجابة وأسرع اجابة أن وجد شكراً لوقتك واهتمامك 

مكنتش متوقع أن الحل يكون بالطريقة السهلة دى أعزر ابتدائى فى الاكسس المتقدم

جزاك الله عنى وعن غيرى خيرا فى الدنيا والأخرة وسترك لك كل ما يراه حسنا كما سترت جهلنا

هل يمكن التحكم فيه عن طريق الكود

هذه استفاضة وحسن علم وخلق وقلب وعطاء حضرتك قمت بالاضافة قبل السؤال

[ابو جودي]

وهذا المرفق حتى تكون الاجابة بعد السؤال  وباستفاضة

وهذا مرفق تم فيه ايقاف عمل زر الـ TAP

كذلك تم ايقاف الاتى
النسخ من خلال الازرار  Ctrl+C
القص من خلال الازرار   Ctrl+X
اللصق من خلال الازرار  Ctrl+V
فتح محرر الأكواد من خلال الضغط على الازرار   Alt+F11

هذا على سبيل المثال وليس الحصر 

Disabling Tab key.mdb

تم تعديل ديسمبر 6, 2021 بواسطه ابو جودي

[ِAbo_El_Ela]

32 دقائق مضت, walid7799 said:

استاذى الفاضل جزاك الله عنا خيراً

انا كنت ابحث عنه جائز انى كنت ابحث بطريقة خطأ لكن اوكد لحضرتك انى بحثت فى جوجل والمنتديات المختلفة بكل الكلمات وكل الطرق وحضرتك تستحق افضل اجابة وأسرع اجابة أن وجد شكراً لوقتك واهتمامك 

مكنتش متوقع أن الحل يكون بالطريقة السهلة دى أعزر ابتدائى فى الاكسس المتقدم

جزاك الله عنى وعن غيرى خيرا فى الدنيا والأخرة وسترك لك كل ما يراه حسنا كما سترت جهلنا

هل يمكن التحكم فيه عن طريق الكود

هذه استفاضة وحسن علم وخلق وقلب وعطاء حضرتك قمت بالاضافة قبل السؤال

لا شكر علي واجب 

و الشكر الاكبر للاستاذ الكبير اباجودي

لما اضافة لي من معلومات 

[ِAbo_El_Ela]

20 دقائق مضت, ابو جودي said:

وهذا المرفق حتى تكون الاجابة بعد السؤال  وباستفاضة

وهذا مرفق تم فيه ايقاف عمل زر الـ TAP

كذلك تم ايقاف الاتى
النسخ من خلال الازرار  Ctrl+C
القص من خلال الازرار   Ctrl+X
اللصق من خلال الازرار  Ctrl+V
فتح محرر الأكواد من خلال الضغط على الازرار   Alt+F11

هذا على سبيل المثال وليس الحصر 

Disabling Tab key.mdb 448 kB · 0 downloads

شكرا اباجودي 

علي هذه المعلومات القيمة 

[ابو جودي]

3 دقائق مضت, ABOLO2 said:

شكرا اباجودي 

 

لا شكر على واجب زكاة العلم نشره وانا اقل طالب علم فى خذا الصرح الشامخ

[walid7799]

اخى الكريم لا استطيع ارفاق الملف كيف ارفقه وحجمه يتعدى المسموح

كيف اضفت الملف

[ابو جودي]

1 دقيقه مضت, walid7799 said:

اخى الكريم لا استطيع ارفاق الملف كيف ارفقه وحجمه يتعدى المسموح

كيف اضفت الملف

1. اعمل ضغط واصلاح للقاعدة
2. اضغط القاعدة باى برنامج مثل winrar
3. لو مازال الحجم كبيرا ارفعها على ميديا فاير او top4top  وضع رابط الملف 

[walid7799]

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

[abouelhassan]

شكر وتقدير وفائق الاحترام اخى فى الله ابو جودي