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

发布网友

我来回答

共4个回答

热心网友

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

热心网友

窗体上 创建 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() 来实现按钮后创建!
另外,站长团上有产品团购,便宜有保证

热心网友

选d，multiline

热心网友

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

追答A