请问如何在窗体中动态生成 [ 文本框 ] 并且窗体显示不下时使用滚动条？急，急，急，急，急，急，急 ............

Question

先建立一个控件数组，即text1(0),然后在程序中使用load text1(i)即可。若要用滚动条，可尝试把文本框都放在picturebox里面。当位置不够时显示滚动条，像图形漫游那样就是了。

Answer 1

动态生成控件!
Dim WithEvents myBtn As VB.CommandButtonPrivate Sub Command1_Click()
Set myBtn = Controls.Add("VB.CommandButton", "CmdButton1")With myBtn
    .Caption = "New Command"
    .Visible = True
End With
End SubPrivate Sub myBtn_Click() MsgBox "Clicked"
End Sub滚动条在另一个贴子里我已经贴了!

Answer 2

忘了你要的是文本框,用下面这个吧!
Dim WithEvents mytxt As VB.TextBoxPrivate Sub Command1_Click()
Set mytxt = Controls.Add("VB.TextBox", "text1")With mytxt
    .Text = "This is a New TextBox"
    .Visible = True
End With
End SubPrivate Sub mytxt_Click()
    MsgBox "Clicked"
End Sub

Answer 3

忘了你要的是文本框,用下面这个吧!
Dim WithEvents mytxt As VB.TextBoxPrivate Sub Command1_Click()
Set mytxt = Controls.Add("VB.TextBox", "text1")With mytxt
    .Text = "This is a New TextBox"
    .Visible = True
End With
End SubPrivate Sub mytxt_Click()
    MsgBox "Clicked"
End Sub

Answer 4

请问怎样让文本框在 Picturebox 内生成?

Answer 5

griefforyou 
已经给出,能否请教另一个问题:怎样让文本框在 Picturebox 内生成,谢谢 !!!