Question

vb中如何隔不同的时间在文本框中显示不同的文字

Answer 1

用Timer控件加记时，组合起来就可以
Timer的间隔为1000毫秒
【通用\声明】
Dim count as integer //计数变量

Private Sub Form_Load()
Timer1.Interval=1000
End Sub

Private Sub Timer1_Timer() //这个是模式示例
count=count+1
select case count
case 时间点一
Text1.Text="内容一"
case 时间点二
Text1.Text="内容二"
case 时间点三
Text1.Text="内容三"
case 时间点四
Text1.Text="内容四"
Case 终结时间点
Timer1.Enable=False
end select
End Sub
Private Sub Timer1_Timer() //这个是具体示例
count=count+1
select case count
case 2 '第二秒显示
Text1.Text="你好"
case 5
Text1.Text="欢迎来到武汉！"
case 7
Text1.Text="这里有很多好吃的好玩的！"
case 14
Text1.Text="预订酒店开放需要提前"
Case 30
Timer1.Enable=False '达到时间上限，结束程序
end select
End Sub