chữ chạy từ dưới lên

[vandung91]

Ðề: chữ chạy từ dưới lên

Khi bạn đánh nhiều chữ vào text box không nhất thiết phải thay đổi kích thước form. Ngoài việc thay đổi thuộc tính Top ở sự kiện On Timer, bạn kết hợp thay đổi cả thuộc tính Height của text box một cách hợp lý nữa thì sẽ được 1 form ưng ý.

[alias_va]

Ðề: chữ chạy từ dưới lên

Các bác làm rất hay, em thích lắm. Nhưng khi down file về máy em, thì không chạy được. Các bác chỉ em với.....
Em cũng làm chữ chạy trên form bằng code sau:
Private Sub Form_Timer()
Dim x, y As String
x = Left(lb.Caption, 10)
y = Right(lb.Caption, Len(lb.Caption) - 10)
lb.Caption = y + x
End Sub

Nhưng nó chỉ chạy được có 1 lần duy nhất, khi tắt access đi, rồi mở form lại thì không chạy được nữa.
Giúp em với
email của em khanghi4288@gmail.com

---------- Post added at 05:25 ---------- Previous post was at 05:21 ----------

Ngoài ra, em cũng thử làm theo cách tạo một nút lệnh, và một textbox, rồi sử dụng code

Private Sub com_Click()
lb.Caption = " chao ban ...... " & Space(3)
Me.TimerInterval = 200
End Sub

Private Sub Form_Timer()
Dim x, y As String
x = Left(lb.Caption, 1)
y = Right(lb.Caption, Len(lb.Caption) - 1)
lb.Caption = y + x
End Sub


Kết quả cũng tương tự (chỉ chạy được một lần duy nhất, lần sau không chạy được nữa)