Bonjour
J'ai l'interface IGedcomView définie comme cela:
Puis dans un autre fichier une class SummaryView définie:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Public Interface IGedcomView Property Database() As GedcomDatabase Property Record() As GedcomRecord ReadOnly Property Husband() As GedcomIndividualRecord .... Event DeleteIndividual As EventHandler(Of IndividualArgs) Sub ClearView() ... Sub SaveView() ... End Interface
Sur la ligne de code Implements IGedcomView j'ai une erreur m'indiquant que la classe SumaryView doit implémenter ReadOnly Propert Husband pôur l'interface IGedcomView. La propriété d'implémentation doit avoir des spécificateurs 'ReadOnly' ou 'WriteOnly' correspondants.
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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51 Public Partial Class SummaryView Implements IGedcomView Private _database As GedcomDatabase Private _record As GedcomRecord Public Sub New() InitializeComponent() End Sub Public Property Database() As GedcomDatabase Implements IGedcomView.Database Get Return _database End Get Set _database = value End Set End Property Public Property Record() As GedcomRecord Implements IGedcomView.Record Get Return _record End Get Set If value IsNot Nothing AndAlso _database Is Nothing Then Throw New Exception("Database must be set before Record") End If _record = value End Set End Property Public ReadOnly Property Husband() As GedcomIndividualRecord Implements IGedcomView.Husband Get Return Nothing End Get End Property Public Event DeleteIndividual As EventHandler(Of IndividualArgs) Public Sub ClearView() Implements IGedcomView.ClearView End Sub Public Sub SaveView() Implements IGedcomView.SaveView End Sub End Class
Ce qui est le cas.
Donc pourquoi cette alerte?
A la compilation j'ai de plus une erreur m'indiquant que la Class SummaryView doit implémenter Event DeleteIndividual pour l'interface.
Ce qui est également le cas.
Ou est mon erreur?
Merci de votre aide.
Bernard
Partager