Đá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
  [Hỏi] Có chăng event rời bản ghi hiện hành ???? vkaccess 2 145 07-12-17, 03:56 AM
Bài mới nhất: vkaccess
  [Hỏi] Form access hiện thì trắng khi xem ở chế độ Forrm View subasatran 1 88 29-11-17, 12:57 AM
Bài mới nhất: maidinhdan
  Combobox không hiện như rowsource value list thanhhau828 7 216 22-11-17, 11:05 AM
Bài mới nhất: ongke0711
  Làm sao để Form nhập dữ liệu cho bảng mở ra, luôn ở dòng hiện hành (mới)? pvhung76 3 157 16-11-17, 11:14 PM
Bài mới nhất: ongke0711
  Hiện thông báo khi tìm file hình babyrock2009 2 185 04-09-17, 11:06 AM
Bài mới nhất: lmthu

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ơ