Vb6.0动态增删控件的实现

经常在网上和杂志上看到问vb怎样动态增加控件，笔者在编一程序时，曾经用到，下面作一个较为详细的描述，希望能给大家有所帮助。

最简单的方法：控件数组。

在VB编程中有一个控件数组的概念, 通过置控件的INDEX 索引值的控制, 不仅可以建立一组具有紧密联系的相同控件, 而且可以实现在程序运行状态中增加控件数目功能, 这在实际编程中应用的非常广泛;在编程中实现具体增加控件数组如下代码即可,请先在窗体上添加一个option控件,名称为option1,并将index属性设为0.

Private Sub Form_ load()

   Dim i As Integer

      For i = 1 To 5

          Load Option1(i) ' 给数组添加 5 个选项按钮。

          Option1(i).Top = Option1(i - 1).Top + 350’设置顶端位置

          Option1(i).left= Option1(i - 1).left+800

          Option1(i).Visible = True’显示增加的控件

          Option1(i).caption = i

      Next i

End Sub

Private Sub Option1_Click(Index As Integer)

MsgBox ("您点击了index为" & Index & "的option控件.")

End Sub