بسم الله الرحمن الرحيم
لدي سؤال وهو كيفية جعل المؤشر يتنقل من text الى text باستخدام الزر enter
ارجو المساعدة في اسرع وقت
بسم الله الرحمن الرحيم
لدي سؤال وهو كيفية جعل المؤشر يتنقل من text الى text باستخدام الزر enter
ارجو المساعدة في اسرع وقت
وعليكم السلام ،،
في حدث Keypress الخاص بالتكست رقم 1 مثلاً المراد نقل المؤشر منه إلى التكست2 التالي :: أكتب الكود هذا
If keyascii = 13 then == معناه لو الزرار الذي يحمل قيمه 13 انظغط ملاحظه 13 قيمه مفتاح انتر
text2.setfocus == معناه حط المؤشر في التكست الثاني
end if == معناه قفل الشرط
المرفق مثال ارجو ان يفيدك ،، تحياتي ،،
تم تعديل هذه المشاركة بواسطة محمدvb في 3 يوليو 2006 في 19:09
السلام عليكم و رحمة الله و ركاته
اذا كنت تريد التنقل بين التيكست بوكس ستجده هنـــــــــــــــــــــــــــــــــا
Mimo

اشكركم على الاجابة ولكن لو كان اماكن التكستات غير مرتبة
عادي اخي العزيز
مرتبه غير مرتبه لا يهمنا
مثلاً
لاحظ هذا الكود مثلاً في Text1 في حدث Keypress
يعني عند الضغط على مفتاح إنتر سوف ينتقل المؤشر إلى التكست الثاني حسب الشرط
If keyascii = 13 then
text2.setfocus
end if
-------------------------
ولاحظ أيضاً هذا الكود مثلاً في Text2 في حدث Keypress
يعني عند الضغط على مفتاح إنتر سوف ينتقل المؤشر إلى التكست رقم سبعه وسبعين حسب الشرط
If keyascii = 13 then
text77.setfocus
end if
-----------------------
القاعده هي تضع الكود في التكست المطلوب عند الضغط على إنتر ،،، سوف ينتقل المؤشر إلى وتحدد له المطلوب
ينتقل فين ،، وتحياتي ولو فيه سوال تحت امرك
اخواني اشكركم جزيل الشكر
لدي استفسار لو كان لديكم المعرفة
انا عملت برنامج وقاعدة بيانات اكسس والقاريرمصممة بالداتا ريبورت عندما اريد برنامجي يعمل على جهاز اخر انسخة في سي دي مثلا صحيح اني استخدم برنامج setup لكي يعمل البرنامج ولكن هل التقارير ستعمل ايضا مع هذا البرنامج ام هناك طريق اخرى
وجزاكم الله خيرا
اختكم رهف
اخت رهف مرحبا
نعم اختي يمكنك عمل سيتب للبرنامج ولا تنسين إضافة قاعدة البيانات والتقارير والملفات المطلوبه في البرنامج
عند عمل السيتب وسوف يعمل معاكي إن شاء الله جربي ونحن في خدمتكم جميعاً
تحياتي
شكرا جزيلا لكم
كود بسيط يكتب لمرة واحدة في الفورم فقط بدلا من كتابة الامر ذاته في كل اداة
في الحدث KeyDown للفورم ضع الكود التالي
أجعل خاصية KeyPreview للفورم قيمتها True
If KeyCode = 13 Then
SendKeys "{Tab}"
End Ifالإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
هذا الموضوع مغلق.