الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعدة بسيطة لو سمحتو

بدأه القادم من هناك في 11 يونيو 2012 · 3 رد · 420 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم :

عندي نموذج يحتوي على اربعة مربعات نص و زر امر واريد ان انتقل بين مربعات النص عن طريق المفتاح انتر بدلاً من المفتاح تاب ..

وبعد الانتقال من مربعات النص يتم الضغط على زر الامر عن طريق المفتاح انتر ايضاً ثم يعود التركيز الى مربع النص الاول

الرجاء المساعدة

ولكم مني جزيل الشكر

#2

ارفق المثال

#3

للانتقال من Text1 الى Text2 باستخدام مفتاح Enter فقط ضع الكود التالي بالحدث KeyPress الخاص بــ Text1 

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
End Sub

وهكذا بالنسبة لمربع النص الثاني وانتقاله لمربع النص الثالث وفي الاخير الانتقال لمفتاح امر التنفيذ Text1.SetFocus

بالتوفيق

Many of life’s failures are people who did not realize how close they were to success when they gave up

Thomas Edison

#4
mamababadada كتب:

للانتقال من Text1 الى Text2 باستخدام مفتاح Enter فقط ضع الكود التالي بالحدث KeyPress الخاص بــ Text1 

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
End Sub

وهكذا بالنسبة لمربع النص الثاني وانتقاله لمربع النص الثالث وفي الاخير الانتقال لمفتاح امر التنفيذ Text1.SetFocus

بالتوفيق

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

وبالفعل انتقل التركيز حتى وصل الى زر الامر ولكن كيف يتم الضغط على الزر انتر كي ينفذ زر الامر كود معين

مواضيع مشابهة