-
RE: Tạo Dòng Chữ chạy trên form
pthamnb > 16-04-12, 09:09 AM
Thật lạ.
Không hiểu sao mình dùng cùng code tạo chữ chạy giống nhau
nhưng máy ở nhà thì chạy ngon lành nhưng đến máy trường thì ko hề có động tĩnh gì.
sao thế nhỉ. có ai biết chỉ giùm mình với
Đây là code (Tất cả tên Lable đều đúng)
khi chạy thường hay báo lỗi ở dòng Private Sub Form_Load()
Option Compare Database
Private Sub Form_Load()
Lblcc.Caption = "day la chuong trinh quan li thanh vien "
Me.TimerInterval = 200
End Sub
Private Sub Form_Timer()
Dim x, y As String
x = Left(Lblcc.Caption, 1)
y = Right(Lblcc.Caption, Len(Lblcc.Caption) - 1)
Lblcc.Caption = y + x
End Sub -
RE: Tạo Dòng Chữ chạy trên form
uronmapu > 10-06-12, 11:04 PM
Tạo chữ chạy luôn mà không nhấn gì cả thì như thế nào ạ -
RE: Tạo Dòng Chữ chạy trên form
ledangvan > 11-06-12, 10:35 AM
(10-06-12, 11:04 PM)uronmapu Đã viết: Tạo chữ chạy luôn mà không nhấn gì cả thì như thế nào ạ
Gửi bạn File chạy chữ luôn mà không nhấn gì cả ... http://www.mediafire.com/?7byi1p0r84razpm -
RE: Tạo Dòng Chữ chạy trên form
uronmapu > 11-06-12, 11:20 AM
Tuyệt vời, cảm ơn bạn nhiều lắm
Bạn xem 3 vấn đề sau có giải quyết được ko giúp mình với
http://thuthuataccess.com/forum/thread-5234.html
http://thuthuataccess.com/forum/thread-140.html
http://thuthuataccess.com/forum/thread-3282.html
Thanks, -
RE: Tạo Dòng Chữ chạy trên form
uronmapu > 11-06-12, 01:24 PM
(11-06-12, 10:35 AM)ledangvan Đã viết:
(10-06-12, 11:04 PM)uronmapu Đã viết: Tạo chữ chạy luôn mà không nhấn gì cả thì như thế nào ạ
Gửi bạn File chạy chữ luôn mà không nhấn gì cả ... http://www.mediafire.com/?7byi1p0r84razpm
Mà mình không muốn tạo cái tblthongtin như bạn làm, tạo luôn trong form được ko bạn?
Ví dụ cho chạy text: CHAO MUNG DEN VOI THU THUAT ACCESS -
RE: Tạo Dòng Chữ chạy trên form
ledangvan > 11-06-12, 01:43 PM
(11-06-12, 01:24 PM)uronmapu Đã viết:
(11-06-12, 10:35 AM)ledangvan Đã viết:
(10-06-12, 11:04 PM)uronmapu Đã viết: Tạo chữ chạy luôn mà không nhấn gì cả thì như thế nào ạ
Gửi bạn File chạy chữ luôn mà không nhấn gì cả ... http://www.mediafire.com/?7byi1p0r84razpm
Mà mình không muốn tạo cái tblthongtin như bạn làm, tạo luôn trong form được ko bạn?
Ví dụ cho chạy text: CHAO MUNG DEN VOI THU THUAT ACCESS
Quá đơn giản, bạn vào Properti... chọn Even -> On load và sửa bỏ đoạn code ở dòng đầu tiên :
& " - " & DLookup("ten", "tblthongtin") -
RE: Tạo Dòng Chữ chạy trên form
uronmapu > 11-06-12, 02:09 PM
Mình đã thấy thêm code bên dưới
Mã:Private Sub Form_Load()
Me.TimerInterval = 150
End Sub
Private Sub Form_Timer()
Dim x As String, y As String
x = Left(Label0.Caption, 1)
y = Right(Label0.Caption, Len(Label0.Caption) - 1)
Label0.Caption = y + x
End Sub
'Chữ chạy ngon từ phải qua trái
'Muốn chữ chạy ngược lại thì đổi left cho right, right cho left và đổi câu lệnh cuối thành
'Label0.Caption = x+y (Ở trên là y+x)
Cảm ơn nhé -
RE: Tạo Dòng Chữ chạy trên form
thquanks > 26-07-13, 12:17 PM
Bạn sử dụng Acess mấy, mình dùng 2007 ko thấy gì cả ???? -
RE: Tạo Dòng Chữ chạy trên form
thuydungtht > 03-04-14, 03:09 PM
e mới học access nên ko bit nhưng từ ma mọi người nói tới.theo dõi và tìm mại để thực hiện ko được.có thể quay lại cho e xem với được ko,e cũng đang cần lắm...