منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

[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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

sayed1984

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

sayed1984