VB工程20--百例38--图形变换填充

最新推荐文章于 2025-09-27 16:56:36 发布

最新推荐文章于 2025-09-27 16:56:36 发布 · 214 阅读

本文介绍了一段使用VBA编写的代码，该代码可以随机改变形状的填充样式和颜色以及形状类型。通过点击按钮，实现图形界面中形状的填充样式、颜色和形状样式的随机切换。

Option Explicit
Dim a As Integer, b As Integer

Private Sub cmdfill_Click()
b = Int(Rnd * 4)
Select Case b
Case 0
Shp1.FillStyle = vbFSSolid
Shp1.FillColor = QBColor(1)
Case 1
Shp1.FillStyle = vbCross
Shp1.FillColor = QBColor(3)
Case 2
Shp1.FillStyle = vbHorizontalLine
Shp1.FillColor = QBColor(9)
Case 3
Shp1.FillStyle = vbHorizontalLine
Shp1.FillColor = QBColor(13)
End Select
End Sub

Private Sub cmdshape_Click()
a = Int(Rnd * 6)
Select Case a
Case 0
Shp1.Shape = vbShapeRectangle
Case 1
Shp1.Shape = vbShapeSquare
Case 2
Shp1.Shape = vbShapeOval
Case 3
Shp1.Shape = vbShapeCircle
Case 4
Shp1 = vbShapeRoundedRectangle
Case 5
Shp1.Shape = vbShapeRoundedSquare
End Select

End Sub