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

概述  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 = Q

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

总结

以上是内存溢出为你收集整理的VB工程20--百例38--图形变换填充全部内容，希望文章能够帮你解决VB工程20--百例38--图形变换填充所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。