شكل كلي دستور به اين صورت مي باشد:
مقاديري كه مي توانيد درون پارامترها بگذاريد كاملا مشخص مي باشد! كار اين دستور اين است كه از نقطه (x1,y1) به نقطه (x2,y2) يك خط توسط قلم Pen ترسيم مي كند.
Pen هم با دو پارامتر color و Width مقدار دهي مي شود. مثلا در كد زير ما يك قلم با رنگ آبي و پهناي 5 توليد مي كند:
البته پارامتر Width اجباري نيست و اگر مقداري به اين پارامتر ندهيد، مقدار 1 به طور پيش فرض در نظر گرفته مي شود.
و مثال زير براي ترسيم خط:
DrawLines
اين تابع براي كشيدن خطوط از انتهاي خطوط قبلي مي باشد (تعريف خوبي نكردم !!) اين تابع دو پارامتر دارد كه پارامتر اول نوع قلم و پارامتر دوم آرايه اي از نوع Point يا PointF مي باشد. مثال:
کد:
DrawLine(Pen, x1, Y1, X2, Y2)
مقاديري كه مي توانيد درون پارامترها بگذاريد كاملا مشخص مي باشد! كار اين دستور اين است كه از نقطه (x1,y1) به نقطه (x2,y2) يك خط توسط قلم Pen ترسيم مي كند.
Pen هم با دو پارامتر color و Width مقدار دهي مي شود. مثلا در كد زير ما يك قلم با رنگ آبي و پهناي 5 توليد مي كند:
کد:
Dim Pn As New Pen(Color.Blue, 5)
البته پارامتر Width اجباري نيست و اگر مقداري به اين پارامتر ندهيد، مقدار 1 به طور پيش فرض در نظر گرفته مي شود.
و مثال زير براي ترسيم خط:
کد:
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint Dim g As Graphics = e.Graphics Dim Pn As New Pen(Color.Blue, 5) g.DrawLine(Pn, 50, 50, 200, 50)EndSub
DrawLines
اين تابع براي كشيدن خطوط از انتهاي خطوط قبلي مي باشد (تعريف خوبي نكردم !!) اين تابع دو پارامتر دارد كه پارامتر اول نوع قلم و پارامتر دوم آرايه اي از نوع Point يا PointF مي باشد. مثال:
کد:
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) HandlesMe.Paint Dim g As Graphics = e.Graphics Dim Pn As New Pen(Color.Blue, 5) Dim Arr() As Point = {New Point(20, 20), New Point(60, 20), New Point(60, 60), New Point(20, 60), New Point(20, 20)} g.DrawLines(Pn, Arr)EndSub
__________________
پیوند ها