Chữ chạy trên form

[Hoacomay96]

Các huynh cho em hỏi với , em có xem bài viết về cách tạo chữ chạy trên ô cell nhưng cách tạo dòng chữ chạy ở 1 hôp textbox hoặc 1 nhãn lable trên form, và quy định thời gian hiển thị của form trên màn hình như thế nào ạ?

 

[dat2007]

Bạn xem trong File đính kèm

Nguồn: http://www.ozgrid.com/forum/showthread.php?t=25801&highlight=scrolling

 

[Hoacomay96]

Cảm ơn bạn bác dat2007, còn về phần đặt thời gian hiển thị của form như thế nào ạ ? em có 3 form trong file cell nhưng khi mở 1 form mới từ form này thì cái form cũ cứ hiện mãi không tắt cho dù em đã đặt nó là hide rồi. vậy điều khiển nó như thế nào? trong acess thì có chức năng đặt thời gian mà ?

 

[voda]

Muốn form hiển thị trong khoảng thời gian định sẵn, bạn chép đoạn code sau vào form:

Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:[B][COLOR="Red"]05[/COLOR][/B]")
UserForm1.Hide

Số đánh dấu là số giây form hiển thị

 

[Hoacomay96]

Nếu Form đó không phải là Activate thì có thể làm thế này không bác:
UserForm1.select
Application.Wait Now + TimeValue("00:00:05")
được kkhông bác voda ?

 

[voda]

-Bạn phải đưa câu lệnh :Application.Wait Now + TimeValue("00:00:05") vào trong một sự kiện nào đó. Ví dụ như: Workbook_Open(),Worksheet_Activate(),UserForm_Activate(),Command_Click()...tùy vào thiết kế chương trình.
-Câu lệnh trên tạo ra thời gian chờ để thực hiện câu lệnh tiếp theo. Nên muốn form hiển thị trong 5 giây rồi tắt, bạn phải viết như sau:

Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:05")
UserForm1.Hide
End Sub

Chú ý câu lệnh dưới, chương trình sẽ thực hiện sau 5 giây.

 

[Hoacomay96]

Bác Voda oi các câu lệnh trên của bábc em đã áp dụng được nhưng form đó không cho em làm thao tác gì trên đó cả ví dụ như nhập thông số vào hộp texbox hoặc chọn 1 lệnh.em muốn từ 1 form đang hoạt động em chọn nút lệnh mở 1 form khác thì sau 3 giây form cũ sẽ tắt, form mới hiện ra

 

[voda]

-Bạn làm theo cách này thử có được không: Giả sử form cũ tên userform1, form mới tên userform2. Bạn chép đoạn lệnh trên vào form userform2 để khi form mới này được kích hoạt, sau 5 giây form cũ sẽ tắt đi.

 

[Hoacomay96]

Bác Dat2007 cho em hỏi với. Cái file Scroll_Txt của bác em không làm thế nào cho nó dừng được, và thay đổi thời gian của nó. Vậy làm sao tạo được 1 nút lệnh bắt nó dừng khi nó đang chạy, và tăng giảm thời gian chu kỳ chạy của nó ?

 

[adult]

kêu kernel thì không chiếm bộ nhớ nhiều ,sử dụng rất ok nếu tất cả các form đều có chữ chạy.Bạn hãy thử áp dụng đoạn code trên vào nhiều form, thì sẽ thấy kết quả là những form nào có chèn chữ chạy thì hiện ok, còn form nào kô chèn thì y như rằng bị treo excel
Còn chúng ta dùng code kêu shell explorer thì tốn quá nhiều bộ nhớ , nhưng khi click vào bảng tính excel (bất cứ sheet nào) thì các phím lên xuống ,qua trái phải bị đơ, kô có tác dụng.
Không biết các bạn nào có code sử dụng ok thì share cho mình với,thanks nhé

 

[nguVBA]

mình cũng bị trường hợp như adult. Sử dụng nhiều form trên cùng file excel thì code trên gây lỗi những form không có chữ chạy. Form có chữ chạy thì sử dụng không có vấn đề gì