| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 436 人关注过本帖
标题:请教关于时钟控件的一个问题
只看楼主 加入收藏
sky713
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-1-31
收藏
 问题点数:0 回复次数:1 
请教关于时钟控件的一个问题

我想在文本框内实现每隔一秒出现一个字。试写了一个小程序,请帮忙修改。谢谢!
Private Sub Command1_Click()
Timer1.Enabled = True

End Sub

Private Sub Form_Load()
Text1.Text = ""

End Sub

Private Sub Timer1_Timer()
Dim i As Integer
For i = 1 To 4
a = Mid("狗年吉祥", i, i)
Next i
Text1.Text = Text1.Text + a


End Sub

搜索更多相关主题的帖子: 时钟 控件 
2006-01-31 16:11
ryu
Rank: 1
等 级:新手上路
帖 子:124
专家分:0
注 册:2006-2-12
收藏
得分:0 

以下代码绝对没问题!!!
Public I As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Text1.Text = ""
End Sub

Private Sub Timer1_Timer()
If I = 4 Then
Timer1.Enabled = False
Else
I = I + 1
Dim A As String
A = Left("狗年吉祥", I)
Text1.Text = A
End If
End Sub


本帖版权归ryu所有.如果引用本帖,请注明帖子的出处和作者;本帖如系引用,其版权归原作者所有.
2006-02-12 20:20
快速回复:请教关于时钟控件的一个问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028147 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved