不出现vb给的出错对话框并且不中止程序.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 9 行

可 以 使 用 VB的 出 错 处 理 语 句 On Error。 下 面 是 一 个 例 子 ： 
    Private Sub Command1_Click() 
     On Error GoTo ErrOpen 
     Picture1.Picture = LoadPicture(Text1.Text) 
     Exit Sub ' 此 句 不 可 少 
    ErrOpen: ' 这 是 出 错 处 理 部 分 
     MsgBox "不 是 合 法 的 图 形 文 件 !", vbInformation 
    End Sub 
<END>