创建数据驱动窗体
所谓数据驱动窗体就是根据所请求的数据的不同生成相应的窗体。举例来讲，假设你现在有一个数据库，其中有些字段必须根据登录者的身份加以显示，授权级别高的用户可以浏览并修改这些字段的内容；授权级别一般的用户只能浏览这些字段中的数据；授权级别低的用户则不能浏览这些字段中的内容。要做到这一点就得利用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 = True
End 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
P
所谓数据驱动窗体就是根据所请求的数据的不同生成相应的窗体。举例来讲，假设你现在有一个数据库，其中有些字段必须根据登录者的身份加以显示，授权级别高的用户可以浏览并修改这些字段的内容；授权级别一般的用户只能浏览这些字段中的数据；授权级别低的用户则不能浏览这些字段中的内容。要做到这一点就得利用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 = True
End 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
P
772
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
