Question

vb6.0中依次显示文字

单击窗体，程序将标签label1中的字符“程序设计很有趣”逐个在文本框中显示。当所有字符显示完以后清空文本框，又重复以上过程。双击窗体时结束程序。（要全部代码，谢谢！）

Answer 1

Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
Label1.Caption = "程序设计很有趣"
End Sub
Private Sub Timer1_Timer()
Static n As Integer, s As String
s = Label1.Caption
If n < Len(s) Then n = n + 1 Else n = 1
Text1.Text = Left(s, n)
Text1.SelStart = Len(Text1.Text)
Text1.SelLength = 0
End Sub

Answer 2

窗体上添加1个Label，1个Timer控件,1个TextBox文本框：

Private Sub Form_Click()
Timer1.Enabled = True
Timer1_Timer
End Sub
Private Sub Form_DblClick()
Unload Me
End Sub
Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = False
Label1.Caption = "程序设计很有趣"
End Sub
Private Sub Timer1_Timer()
Static n As Integer
If n < Len(Label1.Caption) Then n = n + 1 Else n = 0
Text1.Text = Left(Label1.Caption, n)
End Sub

Answer 3

弄个定时器就行了。程序太简单，写出来都嫌丢人