VB中动态创建控件..doc

VB中动态创建控件/s/blog_5ccce2820100lof8.html 创建数据驱动窗体 所谓数据驱动窗体就是根据所请求的数据的不同生成相应的窗体。举例来讲，假设你现在有一个数据库，其中有些字段必须根据登录者的身份加以显示，授权级别高的用户可以浏览并修改这些字段的内容；授权级别一般的用户只能浏览这些字段中的数据；授权级别低的用户则不能浏览这些字段中的内容。要做到这一点就得利用VB动态添加控件的功能。 动态创建控件 无论你想要创建何种类型的数据驱动窗体，你必须知道如何在运行时动态地创建控件。你可以通过控件数组做到这一点，但VB6的Controls集合所提供的Add方法，功能更强大，灵活性更高。使用该方法，你不需要在设计时将控件的实例放在窗体上。实际上，用Add方法你甚至可以创建程序在编译时根本不存在的控件。这种方法的用法也很简单： 声明一个窗体级的变量Dim WithEvents txtTotal As TextBox Sub CreateTextbox() 创建新的Textbox控件Set txtTotal = Controls.Add(VB.TextBox, txtTotal) 将控件移动到你所需要的地方txtTotal.Move 1000, 800, 1200, 300 创建时，所有的控件都是不可见的txtTotal.Visible = TrueEnd Sub请注意Add方法的第二个参数：分配给控件的名称。从代码可读性出发，这个名称一般都与变量名相同。你可以用这个名称从Controls集合中获取相应的控件或移除该控件。例如： Controls.Remove txtTotal 在变量声明时加上WithEvents关键字，即使在设计时窗体不存在该控件，你也可以为该控件的事件编写代码。 上面所讲的方法只适合解决VB内置的控件。例如，当你要添加一个TreeView控件时，VB会要求你证明你已经得到了合法的授权来创建该控件的实例。换句话说，VB要证明这个控件是买来的，而不是从其它附有该控件的程序中借来的。 要证明你经过了合法的授权有下面几种方法： 在窗体上放置一个控件。这也是最简单的方法。你完全没有必要将这个窗体显示出来。 将相关的控件添加到工具箱中，然后在“工程属性”对话框的“生成”标签页中取消选择“删除有关未使用的ActiveX控件的信息”这一项。 向Licenses集合添加一个元素。例如：Debug.Print Licenses.Add(MSMask.MaskedEdBox) 仅仅创建了控件并不足够 要创建一个数据驱动窗体，仅仅知道动态创建控件还不够。例如：现在你要创建一个能根据数据库中表的不同字段自动生成控件的窗体。该窗体可能会创建单行文本框，其长度随字段长度不同而不同；也可能会创建单选按钮或复选按钮以显示布尔型字段；甚至可能创建一个多行文本框显示备注型字段。 你需要解决的第一个问题是：文本框控件的Multiline属性在运行时是只读的，只在设计时可用。幸好，微软的Microsoft Windowless Controls 6.0可以解决这个问题。这组控件集包括了轻量级的TextBox,ComboBox,ListBox,CheckBox,OptionButton,CommandButton和两个scrollbar控件。这些控件与VB内置的相应的控件最大的区别在于：这些控件的所有属性在运行时是可读写的。在VB的安装光盘中的Common\Tools\VB\WinLess文件夹中可以找到这个控件组。用下面的代码可以创建一个多行文本框： Dim WithEvents txtEditor As MSWLess.WLText Private Sub CreateEditor()Set txtEditor = Controls.Add( MSWLess.WLText, txtEditor)txtEditor.Move 0, 0, 4000, 4000txtEditor.MultiLine = TruetxtEditor.ScrollBars = wlBothtxtEditor.Visible = TrueEnd Sub另外一个问题比较复杂：在事先不知道要创建多少个控件的情况下，如何给每个对新创建的控件的引用分配唯一的带WithEvents关键字的变量。换句话说就是要对新创建的控件的事件进行编程，前提是你在设计时不知道程序会创建多少个控件。使用对象数组显然不行，因为不能用WithEvents关键字声明一个对象数组；更坏的情况是，资一个变量定义为As Control或As Object也不行，因为还是不能用WithEvents。 问题源自于我们无法在运行时捕获一个对象数组事件。所以我们只能采取曲线