WD2000: Làm thế nào để thực hiện một sự chậm trễ trong Visual Basic cho ứng dụng

Phương pháp 1: Sử dụng một sản phẩm nào cho... Tiếp theo vòng lặp

Bất lợi đến phương pháp này là không có cách nào trực tiếp để xác định số lượng chính xác thời gian chương trình chạy vòng lặp. Khoảng thời gian phụ thuộc vào tốc độ của máy tính của bạn. Mã sau chạy một vòng lặp không có gì nhưng mất một chút thời gian.

Sub MyDelayMacro

   For iCount = 1 to 1000
   Next iCount

End Sub

Phương pháp 2: Sử dụng cuộc gọi API để tạm ngưng thực hiện từ

Sử dụng cuộc gọi API để tạm ngưng thực hiện từ trong một khoảng thời gian cố định.

Kernel32 có một chức năng tạm dừng thực hiện một chương trình cho một số tiền thời gian được chỉ định trong mili giây. Để bạn có thể sử dụng chức năng, nó trước tiên phải được khai báo trong phần khai báo chung của mô-đun mà nó sẽ được sử dụng:

   Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
   (ByVal dwMilliseconds As Long)

Sử dụng cú pháp sau để gọi các chức năng ngủ :

Sub Sleep()
   Sleep 1000   'Implements a 1 second delay
End Sub

Phương pháp 3: Sử dụng phương pháp OnTime

Sử dụng phương pháp OnTime để đặt một khoảng thời gian tạm dừng. Phương pháp OnTime sử dụng cú pháp sau:

biểu thức. OnTime (khi tên, khả năng chịu)Vì tham đối tên yêu cầu tên macro để chạy, bạn phải tạo hai macro: macro đầu tiên để chứa các cuộc gọi phương pháp OnTime và các lệnh liên quan đến macro của bạn và macro thứ hai để chạy khi thời gian quy định đã vượt qua. Macro thứ hai có thể là một macro "giả" không có gì.

Ví dụ này chạy macro có tên "MyDelayMacro" 15 phút thời gian chạy mẫu.

Sub MyMainMacro()

   ' Pause for 15 seconds.
   Application.OnTime When:=Now + TimeValue("00:00:15"), _
      Name:="MyDelayMacro"

End Sub

Public Sub MyDelayMacro()

   ' Place your delayed macro commands here.
   MsgBox "This macro runs after 15 seconds."

End Sub

Để biết thêm thông tin về cách sử dụng phương pháp OnTime trong Visual Basic Editor, bấm Microsoft Visual Basic giúp trên menu Trợ giúp , gõ OnTime phương pháp hỗ trợ Office hoặc thuật sĩ trả lời và sau đó bấm Tìm kiếm để xem chủ đề.