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

Chia sẻ: Lê Hùng Quốc | Ngày: | Loại File: DOC | Số trang:2

Thêm vào BST

Báo xấu

1.094
lượt xem 102
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Tạo chữ chạy trong access. 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

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Cách tạo dòng chữ chạy trên form hoặc trên thanh tiêu đề của form

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