• Tạo Dòng Chữ chạy trên form
  • 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...040