vb6.0通过点击按钮在指定位置创建文本框,怎么写代码啊？

来源：百度知道 编辑：UC知道 时间：2024/05/22 05:54:08
vb6.0
想要在程序运行时通过点击某一按钮而在指定位置创建一个文本框

比如：点击“新建”，在窗口Left=120出现一个TextBox，长2000，宽600;再点击一次则在前一个文本框下面再出现一个同样大小的文本框。

谢谢，高手帮帮！！

Option Explicit

Private WithEvents NewText As TextBox

Private Sub Command1_Click()

Set NewText = Controls.Add("VB.TextBox", "Text1", Form1)
NewText.Move Command1.Left + Command1.Width + 240, Command1.Top
NewText.Visible = True

End Sub

最简单的办法：
1、在窗体提前设计好text1,text2,text3....，然后就这些文本框的visible属性设置为false。
2、在按钮事件中：
x=x+1
if x=1 then
text1.visible=true
elseif x=2 then
text2.visible=true
.......
end if
3、取消文本框显示按钮事件：
text1.visible=false
text2.visible=false
.......