Đá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
  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
  Query hiện lên trên form? feeling 4 167 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  Chỉ hiện form feeling 2 118 05-10-16, 02:15 PM
Bài mới nhất: jeck09nt
  Click đúp chuột hiện form và cập nhật dữ liệu theo số phiếu Ranju 1 133 05-10-16, 11:02 AM
Bài mới nhất: lmthu
  [Help] Hiện các nội dung các file văn bản và hình ảnh trên Form thdanh 2 144 22-07-16, 10:26 PM
Bài mới nhất: ongke0711

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ơ