TextBox控件的___属性值用于设置多行文本显示

发布网友发布时间：2022-04-30 21:57

共5个回答

热心网友时间：2022-06-19 05:26

窗体上创建 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() 来实现按钮后创建!

热心网友时间：2022-06-19 05:26

热心网友时间：2022-06-19 05:27

选d，multiline

热心网友时间：2022-06-19 05:27

热心网友时间：2022-06-19 05:28

D追问关于GridView控件不正确的是
A GridView控件的分页页码只能用数字显示
B GridView控件的pageSize属性设定每页显示的数据行数
C GridView控件的AllowPaging属性设定是否显示分页
D Gridview控件默认每页显示10行数据

追答A