This is preliminary documentation and subject to change.
To comment on this topic, please send us email at ngwssdk@microsoft.com. Thanks!
Raise Method Example
This example uses the
Err object's
Raise method to generate an error within an Automation object written in Visual Basic. It has the programmatic ID
MyProj.MyObject
. On the MacIntosh, the default drive name is "HD" and portions of the pathname are separated by colons instead of backslashes.
Const MyContextID = 1010407 ' Define a constant for contextID.
Function TestName(CurrentName, NewName)
If Instr(NewName, "bob") Then ' Test the validity of NewName.
' Raise the exception
Err.Raise
vbObjectError + 513,
"MyProj.MyObject",
_
"No ""bob"" allowed in your name",
"c:\MyProj\MyHelp.Hlp",
_
MyContextID
End If
End Function