就是用一个文本框实现这样一个功能:
每次输出一个字,比如“欢迎光临“每次出来一个,不停的循环。我用了4个时钟控件。程序如下:
private sub timer1_time()
text1.text="欢"
end sub
依此类推,可总是出来第一个和最后一个字???
我用label也试过,可以出来所有的字,但就是没有顺序,请帮我想想还有什么办法可以实现!谢谢,急!!!
...全文
4233打赏收藏
请教一个小程序(等待!!!)
就是用一个文本框实现这样一个功能: 每次输出一个字,比如“欢迎光临“每次出来一个,不停的循环。我用了4个时钟控件。程序如下: private sub timer1_time() text1.text="欢" end sub 依此类推,可总是出来第一个和最后一个字??? 我用label也试过,可以出来所有的字,但就是没有顺序,请帮我想想还有什么办法可以实现!谢谢,急!!!
试试这个,看和你的要求是否一样!
在form中分别添加,timer,text控件,在timer中加入:
Private Sub Timer1_Timer()
Static i As Byte
Const textshow = "欢迎光临"
Timer1.Interval = 300
If i > 4 Then
Text1.Text = ""
i = 1
Else
i = i + 1
End If
Text1.Text = Left(textshow, i)
End Sub