هنا

[spyman]

السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة


'55- رسم دائرة على الفورم مع تلوينها

Public Class Form1

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

        Using aBrush As New SolidBrush(Color.Green), _
        formGraphics As Graphics = Me.CreateGraphics()
            formGraphics.FillEllipse _
            (aBrush, New Rectangle(75, 50, 150, 150))
        End Using

    End Sub
End Class

'55- رسم دائرة على الفورم مع تلوينها 

'56- رسم دائرة الفورم بطريقة اخرى

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim G As Graphics = Me.CreateGraphics
        G.DrawEllipse(Pens.Blue, New Rectangle _
        (50, 20, 200, 200))

    End Sub
End Class

'56- رسم دائرة الفورم بطريقة اخرى