Question

vb 怎样判断一张图片是否有效

vb 怎样判断一张图片是否有效

Answer 1

调用函数IsUseful即可，例：
MsgBox IsUseful("C:\1.bmp") '若有效就显示True，否则显示False

private function isuseful(picpath as string) as boolean
on error goto er
isuseful = true
dim p as stdpicture
set p = loadpicture(picpath)
set p = nothing
exit function
er: isuseful = false
end function

Answer 2

on error goto err
picture1.picture=loadpicture("图片")
exit sub
err:
debug.print "不是有效图片"

Answer 3

1楼正解！