كود بسيط للرسم على الفورم - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=5204)

كود بسيط للرسم على الفورم - المبرمج الطموح vb6 - 05-10-12 << بسم الله الرحمن الرحيم >> لتعيين إحداثيات الرسم تبعا لحركة الماوس على النافذة : Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.CurrentX = X Form1.CurrentY = Y End Sub لجعل الاحداثيات المطلوبة تبدأ بالرسم عند الحركة حسب الزر المضغوط من الماوس Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(0) ElseIf Button = 2 Then Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(4) End If End Sub للبدء بالرسم حسب احداثيات الماوس عند الضغط على الزر اليساري يبدا الرسم باللون الاسود و عند الضغط على الزراليميني ويكون الرسم باللون الاحمر هذا هو الدرس تحياتي ^__^