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

Private Sub Timer1_Timer()
If Label1.Left + Label1.Width > 0 Then
Label1.Left = Label1.Left - 200
Else
Label1.Left = Form1.Width
End If
End Sub

开始我是编成这样的，就是label1里的文字信息从左边窗体移出，再从右边窗体移入
后来我想把文字信息分成几段，想每隔一个时段就显示一段文字信息。
就像一些网站的动态提示信息。

我编来编去都编不出来~请各位高手朋友指教帮忙！感激感激！

LEQuwQvO.rar (13.41 KB) [求助]请问每隔一个时段，自动更新文字信息如何编写？

[此贴子已经被作者于2007-6-8 12:25:37编辑过]

Dim lsTemp As String
Dim llcount As Long
Private Sub Form_Load()
lsTemp = "你好吗？我很好的"
Label1 = ""
llcount = 0
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
If llcount = Len(lsTemp) Then
llcount = 0
Label1 = ""
End If
llcount = llcount + 1
Label1 = Label1 & Mid(lsTemp, llcount, 1)
End Sub

谢谢楼上朋友，试过你的方法了，但还不是我想要的总的意思，你的意思是一个字一个字的显示
我想要的目的是一段话，一段话的显示
如一开始显示"你好啊"--过了一段时间（如60秒后),显示"我很好"--之后再过一个时间--"再见了"
我想要的真正目的就是这样了.请问这样又该如何去编？？请指教!谢谢!

晕 一样的，你直接用变量显示不就可以了!

帮人帮到底,举个实例吧!

Dim lsTemp As String
Dim llcount As Long
Dim a(5) As String
Private Sub Form_Load()
a(0) = "你好吗？"
a(1) = "我很好的"
a(2) = "谢谢关心"
a(3) = "你呢？"
a(4) = "最近过得怎么样"
a(5) = "还不错了"
Label1 = ""
llcount = 0
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
If llcount = 5 Then
Label1 = a(llcount)
llcount = 0
Else
Label1 = a(llcount)
llcount = llcount + 1
End If
End Sub

这样字大概你就明白了吧!

不错,学习了