『VB』怎样让Labe|中的一段文字一个字一个字的显示出来
2个回答
2013-11-29
展开全部
Dim i As Integer
Private Sub Form_Click()
Timer1.Enabled = True
End SubPrivate Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
s = "vb编程世界欢迎你"
i = (i + 1) Mod (Len(s) + 1)
Label1.Caption = Left(s, i)End Sub看看能不能达到你的要求。
Private Sub Form_Click()
Timer1.Enabled = True
End SubPrivate Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
s = "vb编程世界欢迎你"
i = (i + 1) Mod (Len(s) + 1)
Label1.Caption = Left(s, i)End Sub看看能不能达到你的要求。
2013-11-29
展开全部
这个好办,将字符串拆分成多个字串。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询