تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مثال لرسم احداثيات مع حركة الماوس
#1
كاتب الموضوع : 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
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم