Thời gian tắt Form

[Hoacomay96]

Đoạn code sau của bác Voda làm cho form bất kỳ nằm trong khoảng thời gian Time value đều tắt. Ví dụ khi em mở form1 và đặt sau 5 giây là tắt form1 và thoát chương trình, nhưng sau 2 giây em mở sang form2 thì nó tắt cả form2 và thoát luôn chương trình. Các huynh xem chỉnh giúp em sao cho khoảng thời gian đó chỉ tắt form1 thôi còn khi mở sang form khác thì hết tác dụng tắt form.

Private Sub UserForm_Activate()
If TextBox1.Value = "" Then
Application.OnTime Now + TimeValue("00:00:05"), "dong_form"
End If
End Sub

 

[ongtrungducmx25]

cái này làm cho vui thôi bạn ơi đâu có ứng dụng gì đâu nhé!

 

[Hoacomay96]

Để giói hạn khoảng thời gian nhập liệu bác ạ. Các bác có cách nào chỉ giúp em ?

 

[yeudoi]

Cái này bạn đưa vào

UserForm_Activate

vì vậy nó chỉ có tác dụng với form đó thôi chứ làm gì có mở form khác nó lại tắt chứ.

 

[voda]

-Câu lệnh: Application.OnTime Now + TimeValue("00:00:05"), "dong_form"qui định thời gian chờ để chạy một macro. Trong trường hợp này, thủ tục dong_form sẽ được chạy sau 5 giây kể từ lúc Form chứa code kích hoạt. Vì vậy, cần xem lại trong thủ tục dong_form, bạn viết những gì. Kiểm tra và chỉnh lại thủ tục này theo ý muốn. Bạn cũng cần kiểm tra lại code trong Form 2. Cũng có khả năng trong form này chứa code để tự tắt.
-Sau đây là một đoạn code cũng để giới hạn thời gian nhập liệu. Bạn có thể tham khảo

Private Sub UserForm_Activate()
Dim Start
Start = Timer
Do While Timer < Start + 30
  DoEvents
Loop
If TextBox1.Text = "" Then End
End Sub

 

[Hoacomay96]

Forrm2 của em không có code để tự tắt. Vậy mã lệnh đó dùng để chờ thời gian thực thi chạy 1 macro, nhưng trong khoảng thời gian đó em chạy 1 lệnh khác trên forrm1 (mở forrm2) mà hết thời gian đó nó vẫn tắt forrm2. Ý em là đã thực thi 1 lệnh khác thì lệnh tắt UserForm_Activate hết tác dụng trong khảng thời gian chờ đó.