关于VB中时间控件的问题

来源：百度知道 编辑：UC知道 时间：2024/05/29 13:39:05
1.。。目的：
一个按钮控件 ， 一个标签。 点击一下按钮 ， 显示时间，并且以1Hz的频率刷新时间。再次点击按钮，时间消失 ， 再点按钮， 时间出现。

程序：
Private Sub cmdtime_Click()
If Timer1.Interval = 1000 Then
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
End If

End Sub

问题：
1.为什么时间显示后， 无法刷新？
2.实现这样的功能是不是还有更好的方法？
1楼的兄弟， 这样坐的话， 就达不到程序要求的"以1Hz的频率刷新时间", 还是不可以滴。

回答的不错， 四楼的兄弟让我知道了新的东西， 还是感谢， 但是因为程序出来以后CMD控件的caption会是反的。 所以就不采纳了。

这样可以达到你的要求，成功了别忘了给分
Private Sub Command1_Click()
If Command1.Caption = "显示时间" Then
Timer1.Enabled = True
Command1.Caption = "取消显示"
Label1.Caption = "当前的时间：" & Time
Else
Label1.Caption = ""
Command1.Caption = "显示时间"
Timer1.Enabled = False
End If
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Command1.Caption = "取消显示"
Label1.Caption = "当前的时间：" & Time
End Sub

Private Sub Timer1_Timer()
Label1.Caption = "当前的时间：" & Time
End Sub

如果只是这个功能的话，不需要timer控件
Private Sub Command1_Click()
If Command1.Caption = "显示时间" Then
Label1.Caption = "当前的时间：" & Time
Command1.Caption = "取消显示"
Else
Label1.Caption = ""
Command1.Caption = "显示时间"
End If
End Sub

Private Sub F