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

[hocketoan]

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)

 

[thaotien]

Ðề: 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

 

[accountanthy]

Ðề: 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.

 

[jimto]

Ðề: 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 !

 

[BPvn]

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

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

 

[boulevard]

Ðề: 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!

 

[yeudoi]

Ðề: 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ự.

 

[anhtotbung35]

Ðề: 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.giaiphapexcel.com/forum/showthread.php?9802-Chữ-chạy-trên-form

 

[n.d.tuan]

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

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

 

[atmt17]

Ðề: 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.giaiphapexcel.com/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:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub CommandButton1_Click()
  Dim Text As String
  Text = Range("A1").Value
  With CommandButton1
    .Caption = IIf(.Caption = "Start", "Stop", "Start")
    Do While .Caption = "Stop"
      Text = Mid(Text, 2, Len(Text)) & Left(Text, 1)
      Range("A1") = Text
      Sleep 100
      DoEvents
    Loop
  End With
End Sub

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

 

[huunhanltqb]

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

thấy cũng hay hay
thanks

 

[Do Thanh Ha]

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

chào các bạn!
Mình nhờ các bạn chỉ cho mình cách canh lề trên và dưới trong word.
Cảm ơn nhiều