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

Answer 3

试

total.Text = DateTime.Now.ToString()

或

Dim theDate As DateTime = System.DateTime.Now
total.Text = theDate.ToString()

您将Start声明为Integer，而您尝试在其中添加DateTime，这是不可能的。

Answer 4

使用Date.Now代替DateTime.Now

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

4 个答案: