منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود برمجة خط أفقى وخط رأسى - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : كود برمجة خط أفقى وخط رأسى (/showthread.php?tid=7249)



كود برمجة خط أفقى وخط رأسى - sayed1984 - 05-12-12

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

[ATTACH=CONFIG]1474[/ATTACH]


كود برمجة خط أفقى وخط رأسى - عبدالله الصافي - 05-12-12

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

كود :
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 - 09-12-12

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


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