vb动态创建和删除控件[借鉴].pdfVIP

摘要： 介绍在 Visual Basic 环境中利用动态创建和删除控件的方法，比较了两者异同，阐述了在实际应用 中,Active X 控件在程序运行时动态加载和删除的方法。 关键词 ：Visual Basic 6.0 ；控件；控件集合；控件数组；属性； Active X 1.概述 在使用 Visual Basic 进行程序设计的过程中，如果能在运行时刻动态地创建和删除控件，可以极大地 丰富界面的处理和变化。本人在设计网络监控系统时，需要在原理图与实物示意图间切换。切换的过程采 用本文介绍控件的动态创建和删除来实现，有效地节省了系统资源，同时也有利于简化界面的维护。下面 将就 Visual Basic 6.0 中的控件在运行时刻的创建和删除的两种方法 —— 控件数组和控件集合作详细的阐 述。 2. 基于控件数组的动态控件的创建与删除 VB 中的控件数组实际上也是一种数组， 其中的每个控件具有相同的 Name 属性， 但具有不同的 Index 属性，在这里 Name 属性类似于数组的名字，而 Index 属性类似于数组的下标。同时，控件数组也支持普 通 VBA 数组的 LBound 、 UBound 和 Count 方法，控件数组中的控件可以共享一个事件过程，便于代码 的编写和集中处理，这正是使用控件数组的最大的理由。 但是控件数组与普通的数组并非完全一样，它不需要定义大小，只有这样我们才可以动态的扩展它。 下面给出利用 Load 命令动态添加控件和 Unload 命令动态删除控件的一般方法： （1 ） 首先在窗体上放置一个 TextBox ，其 Name 属性设置为 Text1 ，Index 属性设置为 0 ，这样 我们就创建了一个 TextBox 控件数组，其中有一个成员。 （2 ） 在窗体上放置一个命令按钮 Command1 ，在其 Click 事件中添加如下的代码： Load Text1(1) Text1(1).left=0 Text1(1).visible=true （3 ） 在窗体上放置一个命令按钮 Command2 ，在其 Click 事件中添加如下的代码： Unload Text1(1) （4 ） 运行。单击命令按钮 Command1 ，窗体上会出现一个新的文本框； 单击命令按钮 Command2 ， 窗体上刚出现的新的文本框就被删除。 需要注意的是： Load 命令创建的控件 Text1(1) 与设计时已经放在窗体上的控件 Text1(0) 有完全相同的 属性，也包括大小和位置等属性， 例外的就是 Index 属性不一样，Visible 属性默认为 False, 所以必须在 Load 方法执行之后，执行调整控件位置的语句，并把其 Visible 属性设置为 True ，以便在窗体上可见。 Unload 命令只能删除动态加载的控件，若删除设计时创建的控件会产生错误。 另外， 利用上面提到的数组的一些方法， 可以有效的简化代码的编写。 以下的代码可以删除所有动态 创建的 Text1 控件数组中的控件 : Do While Text1.Count1 Unload Text1(Text1.Ubound) Loop 需要说明的是，菜单数组是控件数组的一种特殊的形式，只是它是在菜单编辑器中设置相应的 Name 和 Index 属性，而且要求一个菜单控件数组中的菜单项必须是同一级菜单，但是不能创建新的顶级菜单。 而动态创建和删除菜单项的方法也使用 Load 和 Unload 方法， 只是默认情况下其 Visible 属性是 True, 而且 不用重新设置相应的位置。 3.基于控件集合的动态控件的创建与删除