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

最新推荐文章于 2022-08-14 23:04:53 发布

邢金聪

最新推荐文章于 2022-08-14 23:04:53 发布

阅读量1.9k

点赞数

分类专栏： VB 文章标签： vb command

本文链接：https://blog.csdn.net/xjc1278003262/article/details/7223043

版权

VB 专栏收录该内容

74 篇文章 1 订阅

订阅专栏

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