在标签vb6上设置时间而不是当前时间

Question

我想设置2:00:00 PM之类的时间并按分钟运行。但我没有在计算机上获得当前时间我只想设置一个时间，当我在文本框中输入一个时间并将其显示到标签然后它将运行，并且我的计时器的间隔等于1。

我试过这段代码，但什么也没发生。任何人都可以帮助我，谢谢你

Private Sub Form_Load()

   timer1.enabled = true

End Sub


Private Sub Timer1_Timer()

   Label1.Caption = "2:00:00 PM"

End Sub

Answer 1

看起来你没有为计时器设置interval属性，除非你在属性中设置了它。

如果在timer1.enabled上面添加timer1.interval = 60000，它应该在1分钟后触发计时器事件。

您可以在VB6 Timer interval property

找到更多相关信息

Answer 2

在Form_Load（）中设置Label1标题的初始值。确保正确设置定时器的间隔。在Timer1_Timer（）事件中，更新Label1的标题。为了确保显示绝对正确的值，您不应该假设计时器在每个间隔都完美地触发。而是在Form_Load（）中，使用当前时间设置模块级变量。当计时器触发时，获取当前时间（计时器触发时）与模块级变量之间的差值。通过此差异递增标签的初始值（在您给出的示例中为“2:00:00 PM”）并更新标签以显示新值。