Question

vb文本框怎样依次显示不同多行文字内容？

原有代码如下：

Private Sub Form_Load()
Text1.Text = "1、物体的形状和数量怎样表述？" & vbCrLf & "A.大" & vbCrLf & "B.小" & vbCrLf & "C.多" & vbCrLf & "D.少"
End Sub
希望每点击一次按钮，依次显示2、3、......等多行文字内容。

Answer 1

'一个计数器，记录显示了多少文字
Dim count As Integer
'字符串数组
Dim strArray(10) As String

'Load方法
Private Sub Form_Load()
count = 1
strArray(1) = "第1段文字"
strArray(2) = "第2段文字"
'...以此类推，把你需要的文字添加到数组里
'显示第1段文字
Text1.Text = strArray(1)
End Sub

'点击按钮
Private Sub Command1_Click()
'显示下一条文字
count = count + 1
Text1.Text = Text1.Text & strArray(count)
End Sub

追问

以下代码中的A.B.C.D.怎样弄成多行？

Private Sub Form_Load()

s = Split("1、茂盛花草A.B.C.D.|2、养花技术|3、花草施肥|4、花草种植|5、枝繁叶茂|6、蝶恋花|7、蜂采花蜜", "|")

Text1.FontSize = 14

Text1.Text = s(0)

i = 0

End Sub

追答

出现错误的原因是变量Count没有声明。

要想在A.B.C.D.后面分别换行，就要在定义字符串时这样写："1、茂盛花草A."+vbCrLf+"B."+vbCrLf+"C."+vbCrLf+.....

Answer 2

这个代码没错 但你要把文本框的multiline属性设为真
因为它代表这文本框是否可接受多行文本

追问

先谢谢！
显示多行文字不是问题了，主要就是点击一次按钮，能够依次显示2、3、......等多行文字内容。比如：问题1、显示后，点击按钮显示为：2、自己周围的方向是？A.前 B.后 C.左 D.右。代码怎么弄？

追答

dim a as integer '在通用声明部分这样写

在鼠标单击事件写
sub command1_click()'我没开vb好像单击事件是这样子写的 这个不用管 下面代码看懂就行
select case a
case is=0
text1.text="问题1、显示后，点击按钮显示为"

case is=1
text1.text="2、自己周围的方向是？A.前 B.后 C.左 D.右"
end select
a=a+1
end sub
不知道你要的是这个吗

追问

代码我试了，就是这意思。但是，多行字问题好像是受文本框宽度限制才多行的，而不是按照自己的意图多行的。帮忙帮到底吧，请继续费心，准备采纳您啦！哦，对了，也弄一个返回按钮代码。
A.前
B.后
C.左
D.右

Answer 3

分别赋值，循环显示，不要一次吧text1都写完

追问

弄个代码吧老师，不胜感激啊！！！

追答

dim i as integer
sub command1_click()
i=i+1
if i =1 then
text1=第一行要显示的东东
elseif i=2 then
text1=第二行要显示的东东
elseif i=3 then
text1=第3行要显示的东东
end if

if i=4 then
i=0
end if

end sub

追问

老师，文本框里什么东东都没有啊！

追答

第n行显示的东东加双引号，注意双引号输入切换成英文输入法