RuntimeException.ErrorNumber
From Real Software Documentation
Property (As Integer)
Used to contain an error number that describes the runtime error.
Example
The following example displays a message box if, for example, you try to create more than one KeyChainItem for the same application.
Dim NewItem as KeyChainItem
If System.KeyChainCount > 0 then
NewItem = New KeyChainItem
'Indicate the name of the application
NewItem.ServiceName = "MyApplication"
'Create a new keychain item for the application and assign the password
System.KeyChain.AddPassword NewItem, "SecretPassword"
Else
Beep
MsgBox "You don't have a key chain."
End if
Exception err as KeyChainException
MsgBox err.Message+". Error Code: "+Str(err.errorNumber)
If System.KeyChainCount > 0 then
NewItem = New KeyChainItem
'Indicate the name of the application
NewItem.ServiceName = "MyApplication"
'Create a new keychain item for the application and assign the password
System.KeyChain.AddPassword NewItem, "SecretPassword"
Else
Beep
MsgBox "You don't have a key chain."
End if
Exception err as KeyChainException
MsgBox err.Message+". Error Code: "+Str(err.errorNumber)
