求复制n个mshflexgrid

Question

在一个sstab中的任一选项卡中,先放上一个mshflexgrid,然后通过复制在该选项卡中生成n个mshflexgrid控件.
谢谢.

Answer 1

动态添加控件数组就可以了
先把第一个GRID的INDEX属性设为0
然后程序里面用:
LOAD GRID1(1)
...
LOAD GRID1(N)
就可以得到一堆相同的控件了

Answer 2

谢谢,楼上的解答.小试了一下label,可操作.再试mshflexgrid
      Load Label1(1)
      With Label1(1)
        .Caption = 666
        .Move 500, 500, 1000, 200
        .Visible = True
      End With

Answer 3

选项卡
Function initSsTab()
  With Form1.SSTab1
    .Top = 500
    .Left = 2000
    .Width = Screen.Width - 2200
    .Height = Screen.Height - 800
    .TabCaption(0) = "Update Tower"
    .TabCaption(1) = "Mapping "
    .TabCaption(2) = "3D Model"
  End With
End Function在mshflexgrid应用      For ii = 1 To 3
        Load MSHFlexGrid1(ii)
        Debug.Print ii, TypeName(MSHFlexGrid1(ii))
        With MSHFlexGrid1(ii - 1)
          .Cols = 4
          .Rows = 5
          .Visible = True
          .Left = ii * 300
          .Top = ii * 200 + 300
          .TextMatrix(0, 1) = ii
        End With
      Next ii
效果不错,再次感谢WallesCai网友的回复.