Question

vb.net怎么画圆的图形

Answer 1

Public a(8) As OvalShape
    Dim canvas= New Microsoft.VisualBasic.PowerPacks.ShapeContainer
    ConstCircleSize As Integer= 20
    Const Dist As Integer = 10
    Const Gap As Integer = 50
 
Dim i As Integer
        canvas.Parent = Me.Panel1
        For i =0 To 8
            a(i) = NewOvalShape
            a(i).Size = New Size(CircleSize,CircleSize)
            a(i).Location = New Point(Dist +Gap * (i Mod 3), Dist + Gap * (i \ 3))
            a(i).BorderWidth = 3
            a(i).Enabled = True
            a(i).Visible = True
            a(i).Parent = canvas
Next