Question

vb程序中图片的问题pic1.Picture = LoadPicture(openfilename)

好中用pic1.Picture = LoadPicture(openfilename)这句话显示图片，有的时候，图片文件并不是一个图片，就会显示实时错误381的报警，生成exe后只要那个图片有问题，程序就直接退出了，怎么处理

Answer 1

用错误陷阱

Private Sub Command1_Click()

    On Error GoTo ERRPROC        '指示如果发生错误就跳到ERRPROC:这句
    
    pic1.Picture = LoadPicture("dsf")
    
    Exit Sub   '必须加这句，否则无论如何都会“报错”
    
ERRPROC:
    
    If Err.Number = 381 Then
        MsgBox "不是图片文件或文件损坏"   '你确定已经知道的原因，可以自己报告错误
    Else
        MsgBox Err.Description            '你不知道的原因，可以直接把系统的信息弹出去
    
    End If

End Sub

Answer 2

on error goto xxx
根据错误原因进行程序处理就可以了。

另：如果这个picture是固定不变的话，再给你一个思路，直接在pic1的属性栏里面修改图片，或者把图片放到res文件里面。如果图片是变化的，则只能on error goto xxx进行处理了。

Answer 3

Private Sub Command1_Click()

On Error GoTo ERRPROC '指示如果发生错误就跳到ERRPROC:这句

pic1.Picture = LoadPicture("dsf")

Exit Sub '必须加这句，否则无论如何都会“报错”

ERRPROC:

If Err.Number = 381 Then
MsgBox "不是图片文件或文件损坏" '你确定已经知道的原因，可以自己报告错误
Else
MsgBox Err.Description '你不知道的原因，可以直接把系统的信息弹出去

End If

End Sub