Question

TextBox控件多少属性值用于设置多行文本？

Answer 1

窗体上 创建 text1
text2
把text2的index 属性改为0

在代码区写上:
Dim a
Private Sub Form_Load()
Text2(0).Visible = False
End Sub

Private Sub Text1_Change()
For i = 0 To a - 1
If i = 0 Then
Text2(i).Visible = False
Else
Unload Me.Text2(i)
End If
Next i
a = Val(Text1.Text)
For j = 0 To a - 1
If j = 0 Then
Text2(j).Visible = True
Text2(j).Top = Text1.Top + Text1.Height + 100 + Text2(0).Height * (j \ 3)
Text2(j).Left = 100 + Text2(0).Width * (j Mod 3)
Else
Load Me.Text2(j)
Text2(j).Top = Text1.Top + Text1.Height + 100 + Text2(0).Height * (j \ 3)
Text2(j).Left = 100 + Text2(0).Width * (j Mod 3)
Text2(j).Visible = True
End If
Text2(j).Text = "第" & j + 1 & "个text"
Next j
End Sub

运行看看
昨天没VB ,今天试 了下还可以!

效果 当 文本框里的数字改变的时候下面就会出现相应多的text 并且命名!
当然 你可以 加个对text1里输入的是不是数字的检验语句!
也可以把 text_change 改为 Command1_Click() 来实现按钮后创建!