如何在运行时动态生成控件

Question

如何在运行时动态生成控件，如TextBox,Label之类。还望给出代码示例

Answer 1

dim text1 as vb.textbox
'代码
Set text1 = Me.Controls.Add("vb.textbox", "abc")
text1.Left =  50
text1.Top = 50
text1.Width = 500
text1.Height = 200
text1.Visible = True

Answer 2

dim text1 as vb.Label
'代码
Set text1 = Me.Controls.Add("vb.Label", "abc")
text1.Left =  50
text1.Top = 50
text1.Width = 500
text1.Height = 200
text1.caption="mylabel"
text1.Visible = True

Answer 3

方法一:如楼上;
方法二:先加载一个控件,设置其INDEX属性为0Dim Num As Long
    
    Num = Text1.UBound + 1
    Load Text1(Num)
    Text1(Num).Visible = True

Answer 4

方法一:如楼上;
方法二:先加载一个控件,设置其INDEX属性为0Dim Num As Long
    
    Num = Text1.UBound + 1
    Load Text1(Num)
    Text1(Num).Visible = True