vb.net怎么画圆的图形

 我来答
sbj518
2016-04-15 · TA获得超过4.4万个赞
知道大有可为答主
回答量:1.1万
采纳率:81%
帮助的人:5271万
展开全部
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
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式