vb60动态增删控件.pdf

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 (二)通过 Add 方法实现 　　Add 方法在 Controls 集合中添加一个控件并返回一个对控件的引用。Add 方 法的语法为: 　　Object.Add(ProgID,Name,Container) 　　其中 Object 为要添加元素的集合,ProgID 为标示的字符串.可通过对象浏览 器来确定,例如，CommandButton 控件的 ProgID 是 VB.CommandButton. Name 是控 件的名称. Container 是包含添加控件的容器,可以为 form 或 Frame 控件等等。 Option Explicit '通过使用 WithEvents 关键字声明一个对象变量为新的命令按钮 Private WithEvents NewButton As CommandButton '增加控件 Private Sub Command1_Click() If NewButton Is Nothing Then '增加新的按钮 cmdNew Set NewButton = Controls.Add("VB.CommandButton", "cmdNew", Me) '确定新增按钮 cmdNew 的位置 NewButton.Move Command1.Left + Command1.Width + 240, Command1.Top NewButton.Caption = "新增的按钮" NewButton.Visible = True End If End Sub '新增控件的单击事件 Private Sub NewButton_Click() MsgBox "您选中的是动态增加的按钮!" End Sub (三)借助 VBControlExtender 实现. 　　如果增加的控件没有添加在”工具箱”中，必须把控件的License 关键字添 加到 License 集合中，并且需要声明它为 VBControlExtender 对象，并且向 Add 方法引用上设置该对象变量。然后，利用 VBControlExtender 事件来编程该控件 的事件。请在窗体上添加一个名词为 text1 的控件。 Option Explicit Dim WithEvents ctlDynamic As VBControlExtender Private Sub Form_Load() Dim I as integer Licenses.Add "MSComctlLib.TreeCtrl" Set ctlDynamic = Controls.