Tùy chọn
Tạo Dòng Chữ chạy trên form
- Tạo Dòng Chữ chạy trên form
-
Tạo Dòng Chữ chạy trên form
Noname > 09-08-10, 01:22 AM
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...."
Trích dẫn: 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 -
RE: Tạo Dòng Chữ chạy trên form
phanthang > 25-12-10, 02:29 AM
(09-08-10, 01:22 AM)Noname Đã viết: Hỏi
bạn có thể hướng dẫn cụ thể được không mình làm nhưng không được
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...."
Trích dẫn: 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
-
RE: Tạo Dòng Chữ chạy trên form
Noname > 25-12-10, 09:19 AM
vậy là cụ thể lắm rồi, còn gì nữa.
Tạo 1 lable
Tạo 1 nút nhấn
Các sự kiện tương ứng của nút nhấn vá form!
-
RE: Tạo Dòng Chữ chạy trên form
mrchau911 > 25-12-10, 11:24 AM
là thế này . bạn tạo 1 lable đặt tên: LblWelcome
sau đó tạo 1 cái command . chú ý khi tạo command bạn clik bỏ chiếc đũa thần đi . vì mình còn phải dùng code cho nó
tạo command xong . bạn nhấn F4 để đặt tên : CmdRun
đặt tên xong bạn tìm chứ on click bấm vào [...] hiện lên chứ Ex..... thì nhấn vào
công việc còn lại là coppy đoạn mã từ web vào code . save lại
chay form để xem được kết quả
chúc bạn may mắn
-
RE: Tạo Dòng Chữ chạy trên form
quangquy12 > 26-12-10, 03:09 AM
sao minh lam giong ban sao ko dc nhi
no bao loi dong code LblWelcome.Caption = "This program is designed by ..." & Space(3) -
RE: Tạo Dòng Chữ chạy trên form
Noname > 26-12-10, 09:10 AM
post 1 chương trình nhỏ demo phần làm của bạn lên mình xem thử! -
RE: Tạo Dòng Chữ chạy trên form
mrchau911 > 26-12-10, 10:32 AM
biết rồi . tại ku đặt tên cai Lable bị sai ấy . lúc đầu tớ cũng bị thế
xem lại phần đặt tên nhé . good luck :d
http://www.mediafire.com/?es1k2cbfyvsw2c1
mình làm rồi nè down về xem lại :d -
RE: Tạo Dòng Chữ chạy trên form
quanghoasla > 20-05-11, 02:41 PM
Bài viết trên rất hay. mình xin được đóng góp ý kiến bổ sung.mình sẽ không dùng nút cmd nữa. thay vì dùng nút comand click thì mình có thể dùng sự kiện onload trên form. mình xin tác giả được edit code như sau:
Private Sub Form_Load()
LblWelcome.Caption = " Chuc Ban May Man " & 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
-
RE: Tạo Dòng Chữ chạy trên form
ngamyeuem > 21-05-11, 11:43 AM
Các bạn thử tham khảo cái này xem có được không nha:
http://www.mediafire.com/?9osabdl2nddxbn9
sorry link này mới đúng, các bạn thông cảm nha:
http://www.mediafire.com/?us38llr63w70yb6 -
RE: Tạo Dòng Chữ chạy trên form
sucu147 > 16-02-12, 01:55 AM
Cho hỏi tý các bác ạ em tạo được dòng chữ chạy rồi mà sao nó cứ chớp chóp ,em co để backround lun khong biết có phải do cai đó nên nó mới chớp không
CHớp giống như nhấn f5 trên màn hình windows ấy