Cách tạo dòng chữ chạy trên form hoặc trên thanh tiêu đề của form pot

1. cách tạo dòng chữ chạy trên form hoặc trên thanh tiêu đề của form
dùng 2 sự kiện của Form: Open và Timer
Private Sub Form_Open(Cancel As Integer)
Me.Caption = "Dữ liệu đã bị khóa !"
Me.TimerInterval = 600
End Sub
Private Sub Form_Timer()
If Me.Caption = Space(1) Then
Me.Caption = "Dữ liệu đã bị khóa !"
Else
Me.Caption = Space(1)
End If
End Sub
cach 2:
Tạo Dòng Chữ chạy trên form
Hỏi
Tạo dòng chữ chạy trên Form của Access: Cũng như mong muốn ở trên, trên 1
Form bất ký mình muốn chạy một dòng chữ để cần thông tin về vấn đề nào đó ví
dụ như là "Chương trình này được tạo bởi "
Đáp:
Trích:
Nguyên văn bởi HungTano
Hùng Tano
+ Bạn tạo 1 label , tên : LblWelcome - 1 nút lịnh, tên CmdRun
Nhập các đoạn code sau :
Private Sub CmdRun_Click()
LblWelcome.Caption = "This program is designed by " & Space(3)
Me.TimerInterval = 200
End Sub
Private Sub Form_Timer()
Dim x, y As String

x = Left(LblWelcome.Caption, 1)
y = Right(LblWelcome.Caption, Len(LblWelcome.Caption) - 1)
LblWelcome.Caption = y + x
End Sub