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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。