PDA

View Full Version : [q]



Raidernet
28-06-2003, 22:51
Xin hỏi có bạn nào biết cách tạo hàng chữ chạy qua liên tục không ?

nganha
29-06-2003, 11:28
Dùng Control Timer, trong sự kiện Timer của control này thì thay đổi chuỗi cần hiển thị (kết hợp với các hàm xử lý chuỗi như hàm Mid), sẽ làm cho ta có cảm giác chữ chạy từ phải qua trái.

attilathehun
29-06-2003, 11:32
Sub Timer()...
me.cls
me.currentx=me.currentx+1
me.print text
End Sub