如何建立控件数组?

Question

在窗体内放一个控件，然后选中控件，复制粘帖就可以了，会有提示，点是
如果用程序实现，在属性窗口中将INDEX设为0，然后在程序要调用数组控件时用load "控件名"(数组中的序号）, 如load label1(2) , load timer1(3)

Answer 1

记着，光load还不够，你要设置它的visiable属性，它默认的是False,而且，你要设置它的位置，否则会和原来的控件重合，看不到。

Answer 2

改变各相同空件的name为同一值。

Answer 3

可以用new方法动态增加，然后必须设置visible属性和位置。

Answer 4

在控件a的属性中->index填入0
那么这个控件就是一个控件a数组的一个成员了，其它相同类型的控件也起一个名字为a的名字改index就可以了

Answer 5

'点阵代码初始化
Private Sub LatticeCodeInit()
  Dim i As Byte
  Dim j As Byte
  Dim n As Byte
   '加载代码窗体  ‘因为窗体上已经放置好了两个所以从2开始加载
  For i = 2 To 127
    Load labCode(i)
  Next i
  '处理显示位置
  For i = 0 To 15
    For j = 0 To 7
      n = i * 8 + j
      labCode(n).Visible = True
      labCode(n).Top = i * labCode(0).Height + 240
      labCode(n).Left = j * labCode(0).Width + 100
    Next j
  Next i
End Sub