无论想要创建何种类型的数据驱动窗体,必须知道如何在运行时动态地创建控件。可以通过控件数组做到这一点,但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