VB 控件数组的动态建立 随时添加控件

 控件数组的动态建立
设计窗体时建立控件组的第一个元素，并将其INDEX值赋为0
程序运行中使用LOAD方法，定义新的控件组元素，语法：
LOAD 对象名（INDEX）值
使用UNLOAD方法可去除控件组中的元素。
INDEX值为数值型，可使用变量控制
对象名须与设计窗体时建立的第0个元素名相同
新对象的属性值为默认值。

 

实例：

Public lngCount As Long    '放到最顶部

    Load Label4(lngCount)
    With Label4(lngCount)
    .Visible = True
    .Left = Label4(lngCount - 1).Left + 2900
    .Width = Label4(0).Width
    .Top = Label4(0).Top
    .Height = Label4(0).Height
    .Caption = lngCount & Label4(0).Caption
    .ZOrder Abs(i)      '设置层次
    End With