Đá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
  Code cho nút lệnh Mới trên Form feeling 3 177 10-05-17, 04:38 PM
Bài mới nhất: tranthanhan1962
  Hiển thị theo tùy chọn feeling 4 119 27-04-17, 01:14 PM
Bài mới nhất: tranthanhan1962
  [Help] Hỏi về hiển thị thông tin trên ô combobox hoangktxd 7 274 26-04-17, 05:31 PM
Bài mới nhất: tranthanhan1962
  Cập nhật người dùng lên form hiển thị kutieu2016 2 139 15-04-17, 09:13 PM
Bài mới nhất: kutieu2016
  [Help] Thay đổi hiện thị trên from dữ liệu ngày tháng lấy từ query. HoangManh 10 296 16-03-17, 07:54 PM
Bài mới nhất: HoangManh

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ơ