vb如何在label中一秒钟或间隔多长时间增加一个文字?
准确点我是想第一个一秒钟label中文字为“祝”第二个一秒钟加上“你”,然后就成“祝你”了。大概就是这样。...
准确点我是想第一个一秒钟label中文字为“祝”第二个一秒钟加上“你”,然后就成“祝你”了。
大概就是这样。 展开
大概就是这样。 展开
2010-02-07
展开全部
'增加一个Text2控件,将之前的lblTimer控件名改成lblTip
'text2.text放置你要显示的文字,后将Timer1_Timer中更改成以下代码!
'如果不懂,我再发完整代码给你
Private Sub Timer1_Timer()
If Len(Text2.Text) = 0 Then Exit Sub
If Len(lblTip.Caption) >= Len(Text2.Text) Then
lblTip.Caption = Left(Text2.Text, 1)
Else
lblTip.Caption = Left(Text2.Text, Len(lblTip.Caption) + 1)
End If
End Sub
'text2.text放置你要显示的文字,后将Timer1_Timer中更改成以下代码!
'如果不懂,我再发完整代码给你
Private Sub Timer1_Timer()
If Len(Text2.Text) = 0 Then Exit Sub
If Len(lblTip.Caption) >= Len(Text2.Text) Then
lblTip.Caption = Left(Text2.Text, 1)
Else
lblTip.Caption = Left(Text2.Text, Len(lblTip.Caption) + 1)
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Dim str As String
Dim num As Long
Private Sub Form_Load()
str = "很长很长很长很长的测试!"
num = 1
End Sub
Private Sub Timer1_Timer()
Dim temp As String
temp = Mid(str, num, 1)
Label1.Caption = Label1.Caption + temp
num = num + 1
End Sub
---------------------------------------------------------------------
在窗体上画一个label1控件和一个timer1控件
timer1的Enabled设为true,Interval设为1000
Dim num As Long
Private Sub Form_Load()
str = "很长很长很长很长的测试!"
num = 1
End Sub
Private Sub Timer1_Timer()
Dim temp As String
temp = Mid(str, num, 1)
Label1.Caption = Label1.Caption + temp
num = num + 1
End Sub
---------------------------------------------------------------------
在窗体上画一个label1控件和一个timer1控件
timer1的Enabled设为true,Interval设为1000
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
那个匿名回答的代码如此长,有必要这么长吗?二楼的回答就可以了,
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询