如何在窗体中设计一个Shape1（形状）控件

更新时间：2018-12-08 05:25:03 122次访问

设置Shape1控件的Index值为0，编程在Command1的鼠标单击事件中，产生7个Shape1的控件数组元素，并依次显示VB提供的填充图案。

'将Shape1控件的Index值设为 0
Private Sub Form_Load()
   Dim i, j
   Shape1(0).FillColor = &HC000&
   Shape1(0).Move 0, 0
   Shape1(0).Shape = 2
   For i = 1 To 6
       Load Shape1(i)
       Shape1(i).Top = (Shape1(0).Height + 100) * i
       Shape1(i).FillStyle = i + 1  '填充图案
       Shape1(i).Visible = True
   Next
End Sub

运行结果截图：