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

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_OpenCancel As Integer Me.Caption = "Dữ liệu đã bị khóa !" Me.Tim

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