VB工程--百例46---园、椭圆、饼形图

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()
Pic1.Cls
Pic1.FillColor = vbRed
Pic1.FillStyle = 2
Pic1.Circle (Pic1.ScaleWidth / 2, Pic1.ScaleHeight / 2), Pic1.ScaleWidth / 2, _
vbRed, , , 0.5与椭圆重点不同
End Sub

Private Sub Command3_Click()
Const pi = 3.1415926
Pic1.Cls
Pic1.FillColor = vbGreen
Pic1.FillStyle = 3
Pic1.Circle (Pic1.ScaleWidth / 2, Pic1.ScaleHeight / 2), _
Pic1.ScaleHeight / 2, vbRed, -pi / 2, -2 * pi 扇形重点不同
End Sub