NGWS SDK Documentation  

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