vb简单问题，显示错误

Question

Dim I%, S$


Private Sub Form_Load()
I = 0
S = Lable1.Caption


End Sub

Private Sub Timer1_Timer()
I = I + 1
Lable1.Caption = Mid(S, 1, I)
If I = Len(S) Then I = 0


End Sub

Answer 1

你的Lable1拼错了，且你的form上必须有这个控件

 
Dim I%, S$
 
 
Private Sub Form_Load()
I = 0
S = Label1.Caption
 
 
End Sub
 
Private Sub Timer1_Timer()
I = I + 1
Label1.Caption = Mid(S, 1, I)
If I = Len(S) Then I = 0
 
 
End Sub