获取当前时间以在Label中显示.VB.net

Question

我正在尝试为工作构建一个Break跟踪器,我想要一个按钮来在标签中显示当前时间.我尝试了多种解决方案,这就是我已经走了多远.

Sub AddButtonClick(sender As Object, e As EventArgs)        
        Dim Start as Integer
        System.DateTime.Now = Start
        total.Text = Start      
End Sub

当我这样做时,我得到的错误是"现在"属性是只读的.

Answer 1

这里有几个问题:

• 你的任务是错误的方式; 你试图分配一个值DateTime.Now而不是Start
• DateTime.Now是一个类型的值DateTime,而不是Integer,所以无论如何分配都不会起作用
• Start无论如何都不需要变量; 它没有好处
• total.Text属于类型的属性String- 不是DateTime 或 Integer

(其中一些只会在执行时显示,除非你有Option Strict,你真的应该.)

你应该使用:

total.Text = DateTime.Now.ToString()

...如果您希望以特定格式显示结果,则可能指定文化和/或格式说明符.

Answer 2

试试这个...

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    
    Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Label12.Text = TimeOfDay.ToString("h:mm:ss tt")
End Sub