Thứ Hai, 9 tháng 11, 2009

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

[right] Nguồn Từ : Khoa Học Phổ Thông.
Website : http://www.khoahocphothong.net [/right]

3 nhận xét:

  1. loi ngay dogn nay la sao ban ak"Me.TimerInterval = 200"

    Trả lờiXóa
  2. loi ngay dogn nay la sao ban ak"Me.TimerInterval = 200"

    Trả lờiXóa
  3. loi ngay dogn nay la sao ban ak"Me.TimerInterval = 200"

    Trả lờiXóa