Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Chờ đợi khi thực hiện lệnh
#1
Đôi khi, để chờ chương trình làm việc và biết chương trình đang xử lý đến đâu, bạn có thể thiết kế thêm vào form như sau:
Vẽ 2 box (Box1, Box2)
Vẽ 1 text (Tyle)
Chọn Back color cho box1
Tạo cmd xử lí (Ví dụ cmd1)
ở sự kiện click
Dim i As Long
Box2.Visible = True
Box1.Visible = True
Tyle.Visible = True
Box1.Top = Box2.Top
Box1.Left = Box2.Left
Box1.Height = Box2.Height
i = 1
Box1.Width = (Box2.Width) * i / 3
Tyle.Value = 100 * (i / 3)
Me.Requery
Me.Refresh
Me.Repaint
Sleep (1000) ' thuc hien lenh 1
i = 2
Box1.Width = (Box2.Width) * i / 3
Tyle.Value = 100 * (i / 3)
Me.Requery
Me.Refresh
Me.Repaint
Sleep (1000) ' Thuc hien lenh 2
i = 3
Box1.Width = (Box2.Width) * i / 3
Tyle.Value = 100 * (i / 3)
Me.Requery
Me.Refresh
Me.Repaint
Sleep (1000) ' thuc hien lenh 3
......

MsgBox "Xong roi"
Box2.Visible = False
Box1.Visible = False
Tyle.Visible = False
demo
Chữ ký của Nguyendinhthanh My site: Tài liệu
ღღღღღTài sản của Nguyendinhthanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cafe Via He , Noname , haquocquan , hieuvn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hiện nội dung record của subform lên main form hueqlhc 9 2,710 02-08-17, 04:36 PM
Bài mới nhất: tvn_hut
  [Hỏi] Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian truongtrungviet 14 610 02-07-17, 05:01 PM
Bài mới nhất: maidinhdan
  [Hỏi] Tại saoform không hiện thị được dấu phân cách hàng ngàn thanhhao 6 208 26-06-17, 11:45 AM
Bài mới nhất: tranthanhan1962
  Hướng Dẫn xin các acc chỉ dùm e sữa lại cấu trúc lệnh kế tiếp mà không được conmaleTK21 3 152 22-06-17, 11:00 PM
Bài mới nhất: tranthanhan1962
  Code cho nút lệnh Mới trên Form feeling 3 320 10-05-17, 04:38 PM
Bài mới nhất: tranthanhan1962

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ơ