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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
xsh_5586
2010-02-07 · 超过27用户采纳过TA的回答
知道答主
回答量:74
采纳率:0%
帮助的人:0
展开全部
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
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友ecafeb0
2010-02-07 · TA获得超过705个赞
知道小有建树答主
回答量:1049
采纳率:0%
帮助的人:347万
展开全部
那个匿名回答的代码如此长,有必要这么长吗?二楼的回答就可以了,
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式