[求助]状态栏中的滚动字幕
状态栏中如何实现滚动字幕效果?
Dim arr(24) As String
Dim i As Integer
Private Sub Form_Load()
Me.Timer1.Enabled = True
Me.Timer1.Interval = 200
......
......
......
End Sub
Private Sub Timer1_Timer()
If i > 23 Then i = 0
i = i + 1
Me.Text1.Text = arr(i)
End Sub
效果不好,抖动!
