17-10-12, 01:03 AM
كاتب الموضوع : 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