VBプログラマ質問スレ（Ver.6.0 まで） part61
■ このスレッドは過去ログ倉庫に格納されています
0662デフォルトの名無しさん
2013/02/11(月) 19:48:45.33Public Sub Hoge()
Err.Raise vbObjectError + 1001
End Sub
'Form1.frm
Private Sub Command1_Click()
On Error GoTo myerror
Dim c As New Class1
Call c.Hoge
Exit Sub
myerror:
Dim e
e = Err.Number - vbObjectError
MsgBox "Errorだよ" & e
End Sub
■ このスレッドは過去ログ倉庫に格納されています