Đánh giá chủ đề:
  • 5 Votes - 1.8 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tạo Dòng Chữ chạy trên form
#1
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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn domfootwear
#2
(09-08-10, 01:22 AM)Noname Đã viết: 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
bạn có thể hướng dẫn cụ thể được không mình làm nhưng không được
Reply
Những người đã cảm ơn
#3
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! big hug
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
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ắnHeart
ღღღღღTài sản của mrchau911 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , haquocquan , pthamnb , hugox03
#5
sao minh lam giong ban sao ko dc nhi
no bao loi dong code LblWelcome.Caption = "This program is designed by ..." & Space(3)
Chữ ký của quangquy12 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#6
post 1 chương trình nhỏ demo phần làm của bạn lên mình xem thử!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
biết rồi . tại ku đặt tên cai Lable bị sai ấy . lúc đầu tớ cũng bị thế big green
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
ღღღღღTài sản của mrchau911 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , hugox03
#8
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
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , Huỳnh Thị Ái Phương
#9
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
Chữ ký của ngamyeuem Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#10
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
Chữ ký của sucu147 Xin chào, mình là sucu147, Tham gia http://thuthuataccess.com/forum từ ngày 13-02 -12.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Refresh Form và tiếp tục hoạt động Godspear 2 82 Hôm qua, 12:48 PM
Bài mới nhất: Godspear
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 38 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 195 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 166 09-11-16, 09:49 PM
Bài mới nhất: toancvp

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ