Ðề: 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!
Một công ty chuyên sản xuất đồ chơi tình dục ở Mỹ vừa tạo ra một sản phẩm độc đáo dành cho nữ. Nó có thể phát hiện sở thích người dùng, cung cấp những đề xuất cấp thiết để nâng cao chất lượng đời...
Dụng cụ tình dục độc đáo dành cho chị em phát hiện sở thích người dùng