[Abu Ehab]

الســـــــــــلام عليـــــــــكم :

أعطيـــــــــــك مثـــــــــــال وانت عــــــــــدل على كيــــــــــــفك :

PHP كود :

Public Class Form1
   
    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
       
      'Create pen objects
        Dim p As New Pen(Color.Green, 10)
        Dim p1 As New Pen(Color.Yellow, 10)
        Dim p2 As New Pen(Color.Red, 10)
 
        'Create rectangle objects
        Dim rt As New Rectangle(100, 150, 80, 100)
        Dim rt1 As New Rectangle(130, 120, 120, 120)
        Dim rt2 As New Rectangle(160, 100, 150, 150)
 
        'Draw arcs
        e.Graphics.DrawArc(p, rt, 0, -90)
        e.Graphics.DrawArc(p1, rt1, 0, -90)
        e.Graphics.DrawArc(p2, rt2, 0, -90)
    End Sub
 
End Class 


---

مثــــــــــــــال أخــــــــــــر :

PHP كود :

Public Class Form1
 
    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
       
        'Create point objects
        Dim pt As New Point(50, 50)
        Dim pt1 As New Point(300, 50)
        Dim pt2 As New Point(200, 70)
        Dim pt3 As New Point(50, 170)
        Dim pt4 As New Point(300, 170)
        Dim pt5 As New Point(200, 70)
        'Array of points
        Dim pArra() As Point = {pt2, pt3, pt4, pt5}
        'Draw a line
        e.Graphics.DrawLine(Pens.Orange, pt, pt1)
        'Draw multiple lines
        e.Graphics.DrawLines(Pens.Blue, pArra)
 
    End Sub
End Class