cuongvan09 > 08-04-12, 12:02 PM
cuongvan09 > 08-04-12, 06:04 PM
Private Sub Form_Timer()
L1.Caption = "Bây giờ là " & Format(Time, "HH:MM:SS") & " ngày "& Format(Date, "DD/MM/YYYY")
End Sub
Private Sub Form_Load()
Me.TimerInterval = 100
End Sub
quan_pc > 08-04-12, 10:01 PM
(08-04-12, 06:04 PM)cuongvan09 Đã viết: Để hiển thị ngày giờ hệ thống trên Form main rất đơn giản. Trước tiên, bạn hãy kẻ một label có tên là L1, sau đó viết thủ tục Form_Timer(), Form_load() như sau:
Private Sub Form_Timer()
L1.Caption = "Bây giờ là " & Format(Time, "HH:MM:SS") & " ngày "& Format(Date, "DD/MM/YYYY")
End Sub
Private Sub Form_Load()
Me.TimerInterval = 100
End Sub
hoanglonglangtu > 09-04-12, 08:25 AM