Make DIGITAL CLOCK by VB Net_Làm đồng hồ số với VB.Net, bằng 1 Timer và 2 Label
' Khai báo khi form load thì Timer được kích hoạt
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Start()
End Sub
' Ngày giờ và thời gian sẽ hiển thị bằng 2 Label, theo định dạng như dưới đây
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
lable1Date.Text = Date.Now.ToString("dd - MM - yyyy")
lable2Time.Text = Date.Now.ToString("hh - mm - ss")
End Sub
Nguồn: Sharecode.vn