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