ما ذا تعني KeyAscii = 13

السلام عليكم ورحمة الله وبركاتة

Private Sub Text3_KeyPress(KeyAscii As Integer)

عند النقر على زر من لوحة المفاتيح قم بما يلي

If KeyAscii = 13 Then

اذا كان المفتاح هو صاحب قيمة الاسكي 13 هو المضغوط نفذ مايلي

أي لكل مفتاح قيمة اسكي معينة ومفتاح انتر قيمته 13

SendKeys "{TAB}"

اجعل المفتاح المضغوط كوظيفة مفتاح التاب (( مفتاح التنقل ))

KeyAscii = 0

اجعل الاسكي صفر

End If

انتهاء الجملة الشرطية

KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

.......

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

اي العملية للتنقال و ليكن مثلاً لصندوق نص ثاني

اي يدخل البيانات ثم بالضغط على انتر ينتقل للبيانات التاليق

حسب قيمة اللتنقل tab index للأدوات على التسلسل

و الله أعلم

السلام عليكم ورحمة الله وبركاتة

Private Sub Text3_KeyPress(KeyAscii As Integer)

عند النقر على زر من لوحة المفاتيح قم بما يلي

If KeyAscii = 13 Then

اذا كان المفتاح هو صاحب قيمة الاسكي 13 هو المضغوط نفذ مايلي

أي لكل مفتاح قيمة اسكي معينة ومفتاح انتر قيمته 13

SendKeys "{TAB}"

اجعل المفتاح المضغوط كوظيفة مفتاح التاب (( مفتاح التنقل ))

KeyAscii = 0

اجعل الاسكي صفر

End If

انتهاء الجملة الشرطية

KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

.......

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

اي العملية للتنقال و ليكن مثلاً لصندوق نص ثاني

اي يدخل البيانات ثم بالضغط على انتر ينتقل للبيانات التاليق

حسب قيمة اللتنقل tab index للأدوات على التسلسل

و الله أعلم