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

来源：互联网发布：手机淘宝评论怎么查看编辑：程序博客网时间：2024/06/02 06:50

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