Discussion :

[Immobilis]

Bonjour,

J'ai mis débutant parce que je débute en VB.Net....

J'ai des objets créés avec un Entity Data Model. Pour compléter ces objets, j'ai créé une classe partielle. Je voudrai que ces objets implémentent une interface métier.

En C# c'est assez facile. Si l'entité MonObjet existe dans le modèle, il suffit de faire

Code :

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

public partial class MonObjet : IMonInterface { }

.
Par contre, en VB, si les propriétés existent déjà dans le modèle, VS impose la "redéclaration" des propriétés de l'interface. Voici le message d'erreur:

Erreur 1 Class 'MonObjet' doit implémenter 'Property Description As String' pour l'interface 'IMonInterface'. La propriété d'implémentation doit avoir des spécificateurs 'ReadOnly' ou 'WriteOnly' correspondants.

Peut-on eviter cela?

Merci de votre aide.

[BenoitM]

Code :

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

1
2
3
4
Public Property Description As String Implements IMonInterface.Description
Get 
Set
End Property

[tomlev]

Ce n'est pas lié aux classes partielles en fait... C'est parce qu'en VB un membre qui implémente une interface doit le déclarer. Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
Interface IFoo
    Property Bar As String
End Interface
 
Partial Class Foo
 
    Public Property Bar As String Implements IFoo.Bar
 
End Class

Puisque le designer ne connait pas ton interface, il ne génère pas le Implements IFoo.Bar, il fait juste ça :

Code :

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

1
2
3
4
5
Partial Class Foo
 
    Public Property Bar As String
 
End Class

Donc l'autre partie de la classe partielle, il faut donc que tu spécifies une implémentation pour l'interface. Tu peux le faire avec une propriété privée pour ne pas encombrer l'API publique :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Partial Class Foo
    Implements IFoo
 
    Public Property BarImpl As String Implements IFoo.Bar
        Get
            Return Me.Bar
        End Get
        Set(ByVal value As String)
            Me.Bar = value
        End Set
    End Property
 
End Class

[Immobilis]

il faut donc que tu spécifies une implémentation pour l'interface.

Argh...

Je commence à detester le VB.

Merci

[tomlev]

Je commence à detester le VB.

Bienvenue au club