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里的文字信息从左边窗体移出，再从右边窗体移入
后来我想把文字信息分成几段，想每隔一个时段就显示一段文字信息。
就像一些网站的动态提示信息。
我编来编去都编不出来~请各位高手朋友指教帮忙！感激感激！
[此贴子已经被作者于2007-6-8 12:25:37编辑过]
2007-06-07 15:38
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秒后),显示"我很好"--之后再过一个时间--"再见了"
我想要的真正目的就是这样了.请问这样又该如何去编？？请指教!谢谢!
2007-06-07 16:22
LEQuwQvO.rar