Hiện thông báo khi tìm file hình

Trang chủ
Hiện thông báo khi tìm file hình
Hiện thông báo khi tìm file hình

babyrock2009 > 30-08-17, 12:57 PM

Mình có 1 form hiển thị hình ảnh lên form
Hình ảnh lấy đường dẫn là \manv.jpg
Nếu có hình trong thư mục thì ok view lên nhưng trường hợp chưa có hình nó sẽ báo lỗi như hình này
undefined

Mình muốn khi ko có hình nó sẽ hiện msgbox lên thông báo chưa có hình thì ko biết làm sao cả
RE: Hiện thông báo khi tìm file hình

tranthanhan1962 > 31-08-17, 10:23 AM

Giả sử đường dẫn ảnh là C\manv.jpg. Bạn thử xử lý bằng đaon mã này xem

Mã:
Dim PictureFile as string Picturefile = "C\manv.jpg" if len(dir(picturefile)) > 1 then Me.imgIMAGE.Picture = picturefile Else Me.imgIMAGE.Picture = "" End if
RE: Hiện thông báo khi tìm file hình

lmthu > 04-09-17, 11:06 AM

Có 2 cách:
1. Khi có lỗi phát sinh thì cứ bỏ qua chạy tiếp tục không làm treo hệ thống
Tại dòng đầu tiên của thủ tục hoặc hàm bạn gõ vào mã lệnh:
On error resume next
2. Bật msgbox thông báo khi có lỗi phát sinh
Tại dòng đầu tiên của thủ tục hoặc hàm bạn gõ vào mã lệnh:
On error go to <Label error>
'Label error: nhãn lỗi tương ứng với 1 đoạn mã xử lý
VD:
Sub ShowPicture()
On error go to Baoloi
Baoloi:
If Err.Number()<>0 then
Msgbox "Không tìm thấy tập tin...!"
End if
End Sub
Bài trước Bài tiếp