الطريقة التي أعرفها لعمل
التنقل بمفتاح إنتر [Enter]
هي طريقة تقليدية جداً بحيث نكتب الكود التالي في كل حدث من
KeyPress
لأي كنترول في الفورم
مثال :
if keyascii=13 then
text2.setfocus
end if
لكن في طريقة أخرى عملتها في الدونت نت و هي
عمل خاصية الفورم الخاصة بالــ
keypreview = true
و من ثم تخصيصالإنتر مكان التاب
لكن حاولت باستخدام فيجوال بيسك 6.0 و لم أستطيع
ساعدوني
اقتباسلكن في طريقة أخرى عملتها في الدونت نت و هيعمل خاصية الفورم الخاصة بالــ
keypreview = true
و من ثم تخصيصالإنتر مكان التاب
كيف يمكنك تخصيص الإنتر مكان التاب
لا تَقُولن لِشيءٍ ذَا نَاقِصٌ ... وَلَكن أَعمل وَقُل ذَا أكملُ
السلام عليكم...
اقتباسif keyascii=13 thentext2.setfocus
end if
هذه الطريقة مملة و غير مجدية لسببين:
1. أنك تذكر اسم المكون الذي سينتقل إليه المؤشر، و هذا يعني أنك إذا غيرت ترتيب العناصر فإنك ستضطر إلى تغيير الكود.
2. أن المستخدم لا يستطيع التنقل إلى الخلف، كما هو الحال مع Shift+Tab.
الطريقة الصحيحة هي بكتابة الكود التالي في معالج الحدث KeyDown لكل عنصر:
If KeyCode = vbKeyReturn Then
KeyCode = 0
SendKeys "{TAB}"
End Ifو بالتالي فهي تتبع ترتيب الخاصية TabIndex للمكونات و تعمل في الاتجاه العكسي، أي أن Shift+Enter تعمل عمل Shift+Tab.
*مهم*: يمكن الاختصار بشكل كبير و كتابة الكود السابق مرة واحدة فقط كالتالي:
1. اضبط الخاصية KeyPreview للنموذج (Form) على True.
2. اكتب الكود السابق في معالج الحدث KeyDown للنموذج فقط.
أخيراً هذه الملاحظة: يجب أن لا تحتوي النافذة على زر أمر (Command) و خاصيته Default مضبوطة على True لأنه في هذه الحالة ستكون الأولوية للزر الذي يملك الخاصية Default مضبوطة على True.
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
أخي ناجي بارك الله فيك
و جزاك خير الجزاء
جربت الطريقة و هي تعمل 100%
شاكرين و مقدرين
هذا حل اخر بواسطة KeyPress