Tạo dòng chữ chạy liên tục

[alias_va]

Tên Hàm:
Tạo dòng chữ chạy liên tục

Mô Tả:
Thật ra chuyện này cũng dễ hiểu, bạn chỉ cần cắt chữ ở đầu đoạn văn bản và gắn nó vào cuối đoạn văn bản, làm liên tục như vậy sẽ tạo cho người dùng có cảm giác là dòng chữ đang chạy.
Ví Dụ:
Bạn hãy mở 1 form mới, trên đó tạo 1 textbox (Text1), gán 1 dòng văn bản vào thuộc tính text của textbox, tạo 1 Timer (timer1).
Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Và Timer sẽ xử lý các lệnh theo yêu cầu của bạn mỗi khi nó phát sinh 1 sự kiện thời gian.
Private Sub Timer1_Timer()
Dim x As String
Dim y As String
'gán x = 1 ký tự đầu dòng văn bản
x = Left(Text1.Text, 1)
'gán y là phần còn lại
y = Right(Text1.Text, Len(Text1.Text) - 1)
'Hiển thị trở lại textbox theo thứ tự ngược lại.
Text1.Text = y + x
End Sub

(Theo : http://www.caulacbovb.com)

View more random threads:

• Hỗ trợ code tạo mục lục.
• Chạy tự động macro khi mở file excel & Sử dụng Visual Basic tô màu ô tương ứng khi double click cell
• Xóa vùng các dòng một khi 1 ô trong vùng đạt điều kiện (cần xóa)
• Cách chuyển dữ liệu từ máy chấm công sang bảng chấm công có sẵn.
• Data Validation trong Excel 2003
• Anh chị viết giúp em đoạn code cho file đính kèm
• Chia Sheet Tổng Thành Nhiều Sheet theo điều kiện từ cột
• [HELP] Tổng hợp và tính tổng dữ liệu của nhiều file vào 1 file TONG HOP
• Dùng CommandButton trên Form để di chuyển đến các sheet
• Giúp mình lỗi file excel này với.

[viettelservice]

Ðề: Tạo dòng chữ chạy liên tục

Chào bạn, tôi mới gia nhập vào diễn đàn. Thấy bài của bạn viết nhưng thực hiện không được, nhờ bạn chỉ rỏ thêm.
chào

[hungosp]

Ðề: Tạo dòng chữ chạy liên tục

Chào bạn, tôi mới gia nhập vào diễn đàn. Thấy bài của bạn viết nhưng thực hiện không được, nhờ bạn chỉ rỏ thêm.
chào

Cái này hình như làm trong VB thì phải. Không thấy chủ Topic chỉ rõ trong excel.

[tantran24]

Ðề: Tạo dòng chữ chạy liên tục

Bạn vui lòng hướng dẫn cụ thể hơn được không vậy. Mình xin cám ơn !

[hungneu]

Ðề: Tạo dòng chữ chạy liên tục

Đề nghị ********* có vị dụ minh họa được không.

[tvhp2015]

Ðề: Tạo dòng chữ chạy liên tục

Tên Hàm:
Tạo dòng chữ chạy liên tục

Mô Tả:
Thật ra chuyện này cũng dễ hiểu, bạn chỉ cần cắt chữ ở đầu đoạn văn bản và gắn nó vào cuối đoạn văn bản, làm liên tục như vậy sẽ tạo cho người dùng có cảm giác là dòng chữ đang chạy.
Ví Dụ:
Bạn hãy mở 1 form mới, trên đó tạo 1 textbox (Text1), gán 1 dòng văn bản vào thuộc tính text của textbox, tạo 1 Timer (timer1).
Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Và Timer sẽ xử lý các lệnh theo yêu cầu của bạn mỗi khi nó phát sinh 1 sự kiện thời gian.
Private Sub Timer1_Timer()
Dim x As String
Dim y As String
'gán x = 1 ký tự đầu dòng văn bản
x = Left(Text1.Text, 1)
'gán y là phần còn lại
y = Right(Text1.Text, Len(Text1.Text) - 1)
'Hiển thị trở lại textbox theo thứ tự ngược lại.
Text1.Text = y + x
End Sub

(Theo : http://www.caulacbovb.com)

Mình không bít làm thế nào, Bạn có thể chỉ rõ hơn được không?
Cám ơn nhìu lắm!:liengdep:

[bebannha]

Ðề: Tạo dòng chữ chạy liên tục

Cái code trên là dùng trong VB nhưng trong VBA thì cũng dùng gần tương tự.

[vanthi1991]

Ðề: Tạo dòng chữ chạy liên tục

Cái code trên là dùng trong VB nhưng trong VBA thì cũng dùng gần tương tự.

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

[noithatductinh]

Ðề: Tạo dòng chữ chạy liên tục

Bạn tham khảo bài này nhé
http://**************/forum/showthread.php?t=117366

[paliauthentic]

Ðề: Tạo dòng chữ chạy liên tục

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:

[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] 

[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 WithEnd 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!