Question

帮帮我怎么用TIMER控件使让label控件里面我输入的“loading...”的三点慢慢显示？

就是像很多游戏里面的等待时
loading.
loading..
loading...
再循环变成loading.
时间要适中，至少在5秒钟内变换三四个循环吧
谢谢！！！

Answer 1

Private Sub Form_Load()
Label1.Caption = "Loading"
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static i As Integer
i = (i + 1) Mod 4
Label1.Caption = "Loading" & String(i, ".")
End Sub

Answer 2

Private Sub Timer1_Timer()
Select Case Label1.Caption
Case "loading."
Label1.Caption = "loading.."
Case "loading.."
Label1.Caption = "loading..."
Case "loading..."
Label1.Caption = "loading."
End Select
End Sub

变换速度,请设置timer的Interval 属性