Discussion :

[zitoune92]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Phil Rob]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[zitoune92]

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.

[Phil Rob]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[zitoune92]

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

[Phil Rob]

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 : HeritageDico.zip

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[Phil Rob]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
       MessageBox.Show(Dico.Item(TBATrouver.Text))
' ou
        MessageBox.Show(Dico(TBATrouver.Text))

Bon week-end

[Pol63]

normalement les gens font

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[zitoune92]

Merci Phil Rob!

Ca remplit parfaitement ce que je voulais faire.

Cordialement

Olivier