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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : مثال لرسم احداثيات مع حركة الماوس (/showthread.php?tid=5907)



مثال لرسم احداثيات مع حركة الماوس - RaggiTech - 17-10-12

كاتب الموضوع : AhmedEssawy

هذا المثال يقوم بالاستفادة من حدث MouseMove لرسم خط طولي وعرضي مع حركة الماوس باستخدام الأمر Line والذي يستقبل نقطة البداية والنهاية ، لون الخط ، وعرضه وخيارات أخرى إذا أحببت :

كود :
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Me.Cls
Line (X, 0)-(X, Me.ScaleHeight), vbRed
Line (0, Y)-(Me.ScaleWidth, Y), vbGreen
End Sub