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

Question

如题所述

Answer 1

窗体上 创建 text1 \x0d\x0atext2 \x0d\x0a把text2的index 属性改为0\x0d\x0a\x0d\x0a在代码区写上:\x0d\x0aDim a\x0d\x0aPrivate Sub Form_Load()\x0d\x0aText2(0).Visible = False\x0d\x0aEnd Sub\x0d\x0a\x0d\x0aPrivate Sub Text1_Change()\x0d\x0aFor i = 0 To a - 1\x0d\x0aIf i = 0 Then\x0d\x0aText2(i).Visible = False\x0d\x0aElse\x0d\x0aUnload Me.Text2(i)\x0d\x0aEnd If\x0d\x0aNext i\x0d\x0aa = Val(Text1.Text)\x0d\x0aFor j = 0 To a - 1\x0d\x0aIf j = 0 Then\x0d\x0aText2(j).Visible = True\x0d\x0aText2(j).Top = Text1.Top + Text1.Height + 100 + Text2(0).Height * (j \ 3)\x0d\x0aText2(j).Left = 100 + Text2(0).Width * (j Mod 3)\x0d\x0aElse\x0d\x0aLoad Me.Text2(j)\x0d\x0aText2(j).Top = Text1.Top + Text1.Height + 100 + Text2(0).Height * (j \ 3)\x0d\x0aText2(j).Left = 100 + Text2(0).Width * (j Mod 3)\x0d\x0aText2(j).Visible = True\x0d\x0aEnd If\x0d\x0aText2(j).Text = "第" & j + 1 & "个text"\x0d\x0aNext j\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a运行看看\x0d\x0a昨天没VB ,今天试 了下还可以!\x0d\x0a\x0d\x0a效果 当 文本框里的数字改变的时候下面就会出现相应多的text 并且命名!\x0d\x0a当然 你可以 加个对text1里输入的是不是数字的检验语句!\x0d\x0a也可以把 text_change 改为 Command1_Click() 来实现按钮后创建!