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

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

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

本文介绍了使用VBScript进行绘图的方法，通过三个具体的子程序示例展示了如何绘制不同类型的图形，包括圆形、椭圆及扇形，并详细解释了每个步骤。

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