关于VB中时间控件的问题

时间:2013.09.10 发布人:tong5014

关于VB中时间控件的问题

已解决问题

谷歌tong5014用户在2013.09.10提交了关于“半泽直树关于VB中时间控件的问题”的提问,欢迎大家涌跃发表自己的观点。目前共有1个回答,最后更新于2024-08-26T17:31:17。1.。。目的:
一个按钮控件,一个标签。点击一下按钮,显示时间,并且以1h**z的频率刷新时间。再次点击按钮,时间消失,再点按钮,时间出现。

程序:
PrivateSubcmdtime_Click()
IfTimer1.Interval=1000Then
lbltime.Caption=""
Timer1.Enabled=False
cmdtime.Caption="显示时间"
Timer1.Interval=0
Else

Timer1.Enabled=True
Timer1.Interval=1000
lbltime.Caption="当前时间为"&Time
cmdtime.Caption="取消显示"
lbltime.FontSize=15
lbltime.FontBold=True
lbltime.Alignment=2
EndIf

EndSub

问题:
1.为什么时间显示后,无法刷新?
2.实现这样的功能是不是还有更好的方法?希望大家能够帮助她。

详细问题描述及疑问:1.。。目的:
一个按钮控件,一个标签。点击一下按钮,显示时间,并且以1h**z的频率刷新时间。再次点击按钮,时间消失,再点按钮,时间出现。

程序:
PrivateSubcmdtime_Click()
IfTimer1.Interval=1000Then
lbltime.Caption=""
Timer1.Enabled=False
cmdtime.Caption="显示时间"
Timer1.Interval=0
Else

Timer1.Enabled=True
Timer1.Interval=1000
lbltime.Caption="当前时间为"&Time
cmdtime.Caption="取消显示"
lbltime.FontSize=15
lbltime.FontBold=True
lbltime.Alignment=2
EndIf

EndSub

问题:
1.为什么时间显示后,无法刷新?
2.实现这样的功能是不是还有更好的方法?期待您的答案,千言万语,表达不了我的感激之情,我已铭记在心 !

希望以下的回答,能够帮助你。

第1个回答

用户名:vqd81s  

这样可以达到你的要求,成功了别忘了给分
PrivateSubCommand1_Click()
IfCommand1.Caption="显示时间"Then
Timer1.Enabled=True
Command1.Caption="取消显示"
Label1.Caption="当前的时间:"&Time
Else
Label1.Caption=""
Command1.Caption="显示矛一得所当时间"
Timer1.Enabled=False
EndIf
EndSub

PrivateSubForm_Load()
Timer1.Interval=1000
Co来自mmand1.Caption问答="取消显示"
Label1.Caption="当前镇举专间脸策的时间:"&Time
EndSub

PrivateSubTimer1_Timer()
Label1.Caption="当前的时间:"&Time
EndSub