请教VB如何在状态栏显示计时器
VB初学者,我想在窗体的状态栏上显示计时,就像秒表一样,不知道如何实现?希望有具体的代码,谢谢我不是想显示系统时间,而是想做个计时功能,要从00:00:00开始...
VB初学者,我想在窗体的状态栏上显示计时,就像秒表一样,不知道如何实现?希望有具体的代码,谢谢
我不是想显示系统时间,而是想做个计时功能,要从00:00:00开始 展开
我不是想显示系统时间,而是想做个计时功能,要从00:00:00开始 展开
3个回答
展开全部
状态栏 : StatusBar1(启用此控件,需要加载VB企业版控件)
Timer控件: Timer1
Timer1的Interval设置为1000,Enable为True
StatusBar1的Style设置为 1-sbrSimple
代码:
Private Sub Timer1_Timer()
StatusBar1.SimpleText = Time '在状态栏StatusBar1显示系统时间
End Sub
Timer控件: Timer1
Timer1的Interval设置为1000,Enable为True
StatusBar1的Style设置为 1-sbrSimple
代码:
Private Sub Timer1_Timer()
StatusBar1.SimpleText = Time '在状态栏StatusBar1显示系统时间
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
黄先生
2024-12-27 广告
2024-12-27 广告
矩阵切换器就是将一路或多路视音频信号分别传输给一个或者多个显示设备,如两台电脑主机要共用一个显示器,矩阵切换器可以将两台电脑主机上的内容renyi切换到同一个或多个显示器上;迈拓维矩矩阵切换器种类齐全,性价比高,支持多种控制方式,为工程商采...
点击进入详情页
本回答由黄先生提供
展开全部
'本页中看到的反杠是生成此网页时系统加上的,源代码中无此反杠
\'Timer1的Interval设置为1000
Dim h, m, s
Private Sub Form_Load()
h = Hour(Now)
m = Minute(Now)
s = Second(Now)
End Sub
Private Sub Timer1_Timer()
If (Hour(Time) - h) <= 9 Then
hh = \"0\" & (Hour(Time) - h)
End If
If (Minute(Time) - h) <= 9 Then
mm = \"0\" & (Minute(Time) - h)
End If
If (Second(Time) - h) <= 9 Then
ss = \"0\" & (Second(Time) - h)
End If
StatusBar1.SimpleText = hh & \":\" & mm & \":\" & ss
End Sub
\'Timer1的Interval设置为1000
Dim h, m, s
Private Sub Form_Load()
h = Hour(Now)
m = Minute(Now)
s = Second(Now)
End Sub
Private Sub Timer1_Timer()
If (Hour(Time) - h) <= 9 Then
hh = \"0\" & (Hour(Time) - h)
End If
If (Minute(Time) - h) <= 9 Then
mm = \"0\" & (Minute(Time) - h)
End If
If (Second(Time) - h) <= 9 Then
ss = \"0\" & (Second(Time) - h)
End If
StatusBar1.SimpleText = hh & \":\" & mm & \":\" & ss
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
代码不多
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询