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.ScaleHe

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

成品图

总结

以上是内存溢出为你收集整理的VB工程---百例46-----园、椭圆、饼形（2）全部内容，希望文章能够帮你解决VB工程---百例46-----园、椭圆、饼形（2）所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。