Tác giả: XuanHa
Mô tả: Lấy ngày giờ hệ thống không dùng Timer, không dùng hàm API
Mã: Chọn hết
Private Sub Form_Click()
Dim i%
Do
Me.Caption = Now: DoEvents
Loop Until i > 0
End Sub
Mã: Chọn hết
Private Sub Form_Click()
Dim i%
Do
Me.Caption = Now: DoEvents
Loop Until i > 0
End Sub
xuanha đã viết:Mã: Chọn hết
Private Sub Form_Click()
Dim i%
Do
Me.Caption = Now: DoEvents
Loop Until i > 0
End Sub
truongphu đã viết:Sao tôi đọc code mà chẳng hiểu tí gì?![]()
Mong tác giả giải thích rõ thêm
xuanha đã viết:truongphu đã viết:Sao tôi đọc code mà chẳng hiểu tí gì?![]()
Mong tác giả giải thích rõ thêm
Bác lại cười em rồi! Em xin giải thích về ý ngĩa của đoạn code trên
Dim i%: i có giá trị bằng 0
Do
Me.Caption = Now: DoEvents
Loop Until i > 0: Kết thúc khi i có giá trị lớn hơn không (điều này sẽ không bao giờ xảy ra với đoạn code này do, vậy vòng lặp luôn luôn được thực hiện, đồng thời sẽ caption của form luôn luôn = Now ở thời điểm hiện tại).
Với vòng lặp trên thì cũng không cần phải sử dụng biến i, có thể làm như sau:
Do
Me.Caption = Now: DoEvents
Loop Until len(Now)= 0
Và dưới đây là đoạn code dòng chữ chạy em làm trên Word
dazzlingvit đã viết:Trong quá trình thực hiện cái này, chương trình cũng đứng im luôn à? Nếu thế thì có ích gì ở đây?
dazzlingvit đã viết:Nếu thế thì có ích gì ở đây?
dtbinhtomay đã viết:Do
Me.Caption = Now: DoEvents
Loop
Mã: Chọn hết
label1.caption = now
Mã: Chọn hết
Label1.caption = Date
Label2.caption = Time
Quay về “[VB] Chuỗi và Thời gian”
Đang xem chuyên mục này: Không có thành viên nào trực tuyến. và 0 khách