vb.net 如何动态添加N个一样的textbox控件?(马上采纳)

要求名称不同,如第一个名称为t1,第二个为t2,第n个为tn

自己在窗体上加一个按钮,以下是详细代码(整个类)
Public Class Form1
Private N As Integer '用来记添加要加入textbox的个数
Private PL As Integer = 10 'textbox相对于窗体的Left
Private PT As Integer = 10 'textbox相对于窗体的Top
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.AutoScroll = True '窗体自动显示滚动条
N = 10 '初始化N为10
For i = 1 To N
Dim newtextbox As New TextBox
newtextbox.Left = PL
newtextbox.Top = PT
Me.Controls.Add(newtextbox)
PT += newtextbox.Height + 10 '各 newtextbox上下间隔10-------PL不变是希望左对齐
Next
End Sub
End Class
温馨提示:答案为网友推荐,仅供参考
第1个回答  2012-09-15
Dim t1 As TextBox, t2 As TextBox

Private Sub Command1_Click()
Set t1 = Controls.Add("vb.textbox", "T1")
Set t2 = Controls.Add("vb.textbox", "T2")
t1.Move 1000, 300, 500, 400
t1.Text = "abc"
t1.Visible = True
t2.Move 2000, 1000, 500, 400
t2.Text = "123"
t2.Visible = True
End Sub本回答被网友采纳
第2个回答  2012-09-17
先弄上一个来,然后Crtl+鼠标左键拖动,就出来了,没有重名
试试吧
第3个回答  2012-09-15
这种需求完全是没有必要的。定义一个 TextBox 数组就完了。
相似回答