Draw an egg(3)

最新推荐文章于 2009-11-24 21:31:00 发布

northwolves

最新推荐文章于 2009-11-24 21:31:00 发布

阅读量927

点赞数

分类专栏：图形界面

本文链接：https://blog.csdn.net/northwolves/article/details/3501457

版权

图形界面专栏收录该内容

38 篇文章 0 订阅

订阅专栏

Use 4 arcs to compose an egg shape:

 
 Private Sub Form_Click()
Me.Caption = "Draw an egg"
Dim pi As Single, X As Single
pi = 4 * Atn(1)
Me.Scale (-2, -4)-(4, 4)
Me.Circle (2, 0), 1, vbCyan, 3 * pi / 2, pi / 2
Me.Circle (Sqr(3) / 2, 0), 0.5, vbCyan, 2 * pi / 3, 4 * pi / 3
Me.Circle (2, 2), 2, vbCyan, pi / 2, 3 * pi / 4
Me.Circle (2, -2), 2, vbCyan, 5 * pi / 4, 3 * pi / 2
End Sub
 