VB工程--百例43--图形绘制

最新推荐文章于 2021-01-29 14:13:22 发布

最新推荐文章于 2021-01-29 14:13:22 发布 · 139 阅读

本文介绍了使用VBA在图片框中绘制不同图形的方法，包括矩形、三角形和直线等基本图形。通过具体的子程序代码展示了如何利用Line方法进行绘图，并详细解释了参数的含义。

Option Explicit

Private Sub Command1_Click()
picture1.Cls
picture1.Line (picture1.ScaleLeft + 100, picture1.ScaleTop + 100)- _
(picture1.ScaleWidth - 100, picture1.ScaleHeight - 100), , B 以对角坐标绘制矩形
End Sub要绘制矩形，需要有参数B或BF，其中的B表示对角坐标绘制矩形，BF表示用矩形边框的颜色来填充矩形内部

Private Sub Command2_Click() 绘制三角形
picture1.Cls
picture1.Line (picture1.ScaleWidth / 2, 0)- _
(0, picture1.ScaleHeight / 2)
picture1.Line (picture1.ScaleWidth / 2, 0)- _
(picture1.ScaleWidth, picture1.ScaleHeight / 2)
picture1.Line (0, picture1.ScaleHeight / 2)- _
(picture1.ScaleWidth, picture1.ScaleHeight / 2)

End Sub

Private Sub Command3_Click() 绘制直线
picture1.Cls
picture1.Line (picture1.ScaleLeft, picture1.ScaleTop)- _
(picture1.ScaleWidth, picture1.ScaleHeight)
End Sub