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

概述  Option Explicit Private Sub Command1_Click()         Pic1.Cls                               清除图片框中的内容         Pic1.FillColor = vbBlue           填充颜色是蓝色         Pic1.FillStyle = 0                   实

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.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,vbRed, -pi / 2,-2 * pi 扇形重点不同
End Sub

总结

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

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