Ðề: Tạo dòng chữ chạy liên tục
Gửi bởi
anhtotbung35
Vậy thì phải viết code như thế nào vậy bạn.
Mình cũng sưu tầm được một dạng như vậy, nhưng nó lấy các tham chiếu trên Cell của excell.
http://www.******************/forum/showthread.php?9802-Chữ-chạy-trên-form
Thật đơn giản nếu biết dùng hàm Sleep
Cách làm như sau:
- Gõ text gì đó vào cell A1, chẳng hạn là chuổi: Cộng hòa xã hội chủ nghĩa Việt Nam
- Lưu ý: gõ xong chuổi, gõ thêm phím SpaceBar 20 lần để tạo 20 khoảng trắng sau chuổi
- Vẽ 1 CommandButton (nút thuộc thanh Control ToolBox)
- Double Click vào nút để mở cửa số lập trình
- Chèn code này vào:
Mã nguồn PHP:
[COLOR=#000000]
[/COLOR][COLOR=#007700]Private Declare [/COLOR][COLOR=#0000BB]Sub Sleep Lib [/COLOR][COLOR=#DD0000]"kernel32" [/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ByVal dwMilliseconds [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700])[/COLOR]
Mã nguồn PHP:
[COLOR=#000000]
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub CommandButton1_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]Dim Text [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String
Text [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A1"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value
With CommandButton1
[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Caption [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]IIf[/COLOR][COLOR=#007700](.[/COLOR][COLOR=#0000BB]Caption [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"Start"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"Stop"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"Start"[/COLOR][COLOR=#007700])
Do While .[/COLOR][COLOR=#0000BB]Caption [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"Stop"
[/COLOR][COLOR=#0000BB]Text [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Text[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Text[/COLOR][COLOR=#007700])) & [/COLOR][COLOR=#0000BB]Left[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Text[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A1"[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Text
Sleep 100
DoEvents
Loop
End With
End Sub
[/COLOR]
- Bấm Alt + Q để trở về bảng tính
- Bấm nút Exit Design Mode (nút có hình cây thước Ê ke) để thoát khỏi chế độ Edit
- Bấm CommandButton và xem kết quả
- Bấm vào CommandButton lần nữa để ngừng chạy
- Có thể chỉnh tốc độ ở đoạn Sleep 100. Số này càng nhỏ thì tốc độ chạy càng nhanh
-----------------------------
Thật đơn giản, đúng không?
Viết code cho text chạy trên Form cũng làm y chang vậy!
Hà Lan thuộc địa phận Tây Âu và hướng ra phía Đại Tây Dương nên Hà Lan sở hữu khí hậu ôn đới đại dương với mức nhiệt độ trung bình dao động từ 10-25 độ C. Mùa xuân ở Hà Lan...
Du lịch Hà Lan lãng mạn như phim ngôn tình