[sayed1984]

بسم الله الرحمن الرحيم
الأخوة الأعزاء
ما هو كود برمجة خط أفقى وخط رأسى يتحركان مع مؤشر الكتابة فى خانات التكست بوكس للفيجوال بيسك؟ مرفق صورة للتوضيح
وجزاكم الله كل خير...

[ATTACH=CONFIG]1474[/ATTACH]

[عبدالله الصافي]

إحداثي سيني وصادي للفورم وليس للتكيست.

كود :

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Cls
Line (X, o)-(X, Me.ScaleHeight), vbRed
Line (0, Y)-(Me.ScaleWidth, Y), vbGreen
End Sub

[sayed1984]

مشكور أخى عبد الله على الرد والمساعدة جربت الكود وما شاء الله تمام بس عايز أكون متحكم فيه أكتر علشان أنا هاعطل الماوس وهاشتغل بالكيبورد فقط فعلشان كده انا عايز الاحداثى السينى والصادى يكون setfoucs مع حقول الإدخال بمجرد الضغط على مفتاح Enter ينتقل المحور السينى والصادى إلى الحقل التالى (مرفق المشروع).
وجزاك الله كل خير وجعل هذا العمل فى ميزان حسناتك...

https://www.dropbox.com/sh/dswl7bpd6u5696b/CQUIW-RBew