VB工程---百例46-----园、椭圆、饼形（2）

Option Explicit

Private Sub Command1_Click()
Pic1.Cls
Pic1.FillColor = vbBlue
Pic1.FillStyle = 0
Pic1.Circle (Pic1.ScaleWidth / 2, Pic1.ScaleHeight / 2), Pic1.ScaleHeight / 2, vbBlue


End Sub

Private Sub Command2_Click()
Pic2.Cls
Pic2.FillColor = vbRed
Pic2.FillStyle = 2
Pic2.Circle (Pic2.ScaleWidth / 2, Pic2.ScaleHeight / 2), Pic2.ScaleWidth / 2, _
vbRed, , , 0.5

End Sub

Private Sub Command3_Click()
Const pi = 3.1415926
Pic3.Cls
Pic3.FillColor = vbGreen
Pic3.FillStyle = 3
Pic3.Circle (Pic3.ScaleWidth / 2, Pic3.ScaleHeight / 2), _
Pic3.ScaleHeight / 2, vbRed, -pi / 2, -2 * pi

End Sub

成品图