مساعدة في الرسم على الفورم

أخي الحبيب بالنسبة لامكانية الرسم في فيجوال بيسك نت فتختلف اختلاف كثيرا عن فيجوال بيسك 6 حيث انه في فيجوال بيسك نت يتم الاعتماد على جهاز الالة وأقصد به هو الاداة أو الكائن الذي يتم الرسم حيث توجد في الكائنات القابلة للرسم الفئة Graphics حيث يمكن أن تستخدم الادوات الموجودة بها بكل سهولة سوف احاول شرح ذلك في درس مستقل

جرب الكود التالي في الفورم

Public Class Form1

Dim myX As Integer, myY As Integer

Dim B As Boolean = False

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

myX = MousePosition.X

myY = MousePosition.Y

B = True

End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

If B = True Then

Dim g As Graphics

g = Me.CreateGraphics

g.DrawLine(Pens.Red, myX, myY, MousePosition.X, MousePosition.Y)

End If

myX = MousePosition.X

myY = MousePosition.Y

End Sub

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

B = False

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.WindowState = FormWindowState.Maximized

End Sub

End Class

If B = True Then

Dim g As Graphics

g = Me.CreateGraphics

g.DrawLine(Pens.Red, myX, myY, MousePosition.X, MousePosition.Y)

End If

ده هو المهم في الكود

انشئ كائن من النوع graphics

الامر DrawLine تأخذ خمس بارمترات ( القلم و لونه وإحداثيات النقطة الاولى و النقطة الثانية)

mouseposition.X & mouseposition.Y تعطي إحداثيات الماوس في المحورين X & Y

اعمل RUN للبرنامج و حاول ان ترسم بالضغط على الماوس و تحريكه

شكرا يا اخي

والله ما اقدر اعبر لك عن شكري

ولكن الله يجزيك كل الخير على هذا الشرح.