Travaillant actuellement pour un client d??sirant utiliser un composant .NET depuis Office 2000, il a donc fallu s’attaquer ?? COM Interop. Et, bien que la documentation le dise, il est possible d’avoir quelques surprises lorsqu’il s’agit de g??rer les exceptions et les erreurs COM.<\/P>
\n
Prenons donc le code suivant :<\/P>
\n
[ComVisible(true<\/SPAN>)] public<\/SPAN> class<\/SPAN> myException : ApplicationException Du c??t?? client, par exemple sous Excel, en ajoutant la bonne r??f??rence sur notre composant COM ??crit en .NET, ??crivons le code suivant :<\/FONT><\/SPAN><\/P> Sub<\/SPAN> Test() Le seul moyen de fixer le num??ro d’erreur qui sera retourn?? au client COM est de le faire dans le constructeur de l’exception, comme on peut le voir dans le code du composant COM. Si on ex??cute le code VB, aucune erreur ne sera retourn??e. Le code situ?? sous l’??tiquette err_handling n’est pas ex??cut??. Surprise, non ?<\/FONT><\/SPAN><\/P>
public<\/SPAN> int<\/SPAN> myMethod()
{
\/\/ snip<\/SPAN>
throw<\/SPAN> new<\/SPAN> myException(“Description”<\/SPAN>, 2500);
\/\/ snip<\/SPAN>
\/\/ Do something here<\/SPAN>
return<\/SPAN> 0;
}<\/SPAN><\/P>
\n
{
\/\/ COM Error base number is 0x80040000<\/SPAN>
private<\/SPAN> const<\/SPAN> int<\/SPAN> kCOMErrorBaseNumber =<\/SPAN> unchecked<\/SPAN>((int<\/SPAN>) 0x80040000);
public<\/SPAN> myException() : base<\/SPAN>(){}
public<\/SPAN> myException(string<\/SPAN> strMessage, int<\/SPAN> ErrorCode) : base<\/SPAN>(strMessage)
{
\/\/ HResult = kCOMErrorBaseNumber + ErrorCode);<\/SPAN>
HResult =<\/SPAN> ErrorCode);
}
}<\/SPAN><\/P>
\n
\n
On<\/SPAN> Error<\/SPAN> GoTo<\/SPAN> err_handling
Dim<\/SPAN> a As<\/SPAN> New<\/SPAN> myDotNetComponent
Dim<\/SPAN> b As<\/SPAN> Long<\/SPAN>
b =<\/SPAN> a.myMethod()
‘ Do something<\/SPAN>
Exit<\/SPAN> Sub<\/SPAN>
err_handling:
MsgBox<\/SPAN> Err<\/SPAN>.Number<\/SPAN>
End<\/SPAN> Sub<\/SPAN><\/SPAN><\/P><\/SPAN>
\n
\n