Prise en charge des erreurs d'une classe héritée

Bonjour,

Je voudrais créer une classe dérivée d'un Dictionnaire qui serait capable de gérer les erreurs du type "KeyNotFoundException"

Du genre:

Code:

---

1 2 3 4 5 6

Class MyDictionary Inherits Dictionary(Of String, String) Public Sub New()   End Sub End Class

---

De telle façon que si j'ai dans mon code

Code:

---

1 2 3 4

Dim Dico as new MyDictionary Dico.Add("A"," c'est un A") Dico.Add("B"," c'est un B") Dico.Add("C"," c'est un C")

---

et que je fasse par exemple:

Code:

---

MsgBox(Dico("1"))

---

Il puisse traiter cette "erreur" sans générer d'exception et retourner une chaine vide par exemple

Donc peut-on "intercepter" l'erreur KeyNotFoundException dans la classe MyDictionary avec quelque chose comme

Code:

---

1 2 3 4 5

Sub ErrorHandling(ErrorCode as ExceptionCode) Handles MyBase.Exception If ErrorCode=KeyNotFoundException then Value="" End If End Sub

---

Bien sûr on peut gérer ça avec des Try/End Try mais j'aimerai assez m'en passer car j'ai beaucoup de Dico("QuelqueChose") à traiter

Merci

Olivier

Bonjour,

Si la classe dont tu dérives gère l'erreur que tu veux, ses classes dérivées la gèrent aussi. Mais qu'il s'agisse de dérivation ou pas, pour qu'une "variable" (je devrais plutôt dire "instance") d'une classe transmette les signaux d'erreur contrôlés dans ses codes, il faut la déclarer WithEvents.

C'est pourquoi je te propose d'essayer :

Code:

---

1 2 3 4

Dim WithEvents Dico as new MyDictionary ' déclaration globale, pas dans une Sub ni une Function Dico.Add("A"," c'est un A") Dico.Add("B"," c'est un B") Dico.Add("C"," c'est un C")

---

Cdt, :)

Merci mais quid de la fonction qui va "intercepter" l'exception KeyNotFoundException ?
Celle ci devrait se trouver au niveau de la classe au lieu de gérer les instances.

L'interception des erreurs ne devrait-elle pas se faire là où est présent le risque ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Try MsgBox(Dico("1")) Catch ex as KeyNotFoundException ' ....   End Try     ' ou plus implement :   Try MsgBox(Dico("1")) Catch ex as KeyNotFoundException ' ....   End Try

---

Sans certitude ... :(

Faudra que je teste, mais ce ne sera pas avant ce soir ou demain matin. Fais-moi savoir si tu as résolu entre-temps.

Très bonne journée,

:D

C'est justement ce que...je ne veux pas faire. Je veux récupérer une valeur par défaut sans avoir d'exception à gérer. Merci en tous cas

Ok, si tu ne veux pas gérer l'erreur dans ton application, peut-être veux-tu bien la gérer dans ta classe ?

En annexe, mon projet de test où j'ai écrit ta classe comme ceci : Pièce jointe 506120

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Public Class MonDico   Inherits Dictionary(Of String, String)   Public Sub New() MyBase.New() End Sub   Public Overloads Property Item(ByVal Index As String) As String Get Try Return MyBase.Item(Index) Catch Return Index & " non trouvé" End Try End Get Set(ByVal Value As String) MyBase.Item(Index) = Value End Set End Property   End Class

---

Pour ne pas utiliser la Property Item, il faut surcharger l'opérateur indexeur (si c'est possible en VB, il faut que je vérifie ... ) mais ça conduira quand même à intercepter l'erreur dans ta classe dérivée ... :D

Pièce jointe 506122

Suite ...

L'opérateur () ne peut pas être surchargé en VB.
Mais il est possible de déclarer Default la surcharge de la Property Item. On peut alors utiliser indifféremment Dico(Index) et Dico.Item(Index).

Il n'y a qu'une ligne à changer dans ma classe MonDico de tout à l'heure :
Default Public Overloads Property Item(ByVal Index As String) As String .

Dans le test, on peut uiliser :

Code:

---

1 2 3

MessageBox.Show(Dico.Item(TBATrouver.Text)) ' ou MessageBox.Show(Dico(TBATrouver.Text))

---

Bon week-end
:D

normalement les gens font

Code:

---

1 2	if not dic.contains("a") return ' ou autre else ...

---

et n'ont pas d'erreur ...

après si tu ne veux pas t'embeter à hériter (of T, T tans qu'à faire !) il y a le ConcurrentDictionary qui a un TryGetValue, normalement ca sert dans du concurrentiel, mais ca peut te convenir quand même ...

Merci Phil Rob!

Ca remplit parfaitement ce que je voulais faire.

Cordialement

Olivier