Bonjour,

Je crée un composant global, une instance de classe Personne, et je fais un DataBinding.add() entre mon composant global, et une propriete à moi de mon formulaire. Le probleme est que le SET de ma propriété est éxécutée 2 fois après avoir fais le DataBinding ? ? ? J'aimerais savoir pourquoi . Merci

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Public Class Form2
    Implements System.ComponentModel.INotifyPropertyChanged
 
#Region "*** MEMBRES PUBLICS "
 
    Public Event PropertyChanged(ByVal sender As Object, ByVal e As System.ComponentModel.PropertyChangedEventArgs) Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
 
#End Region
 
#Region "*** PROPRIETES "
 
    Private _LastName As String
    Public Property LastName() As String
        Get
            Return _Lastname
        End Get
        Set(ByVal value As String)
            Me._LastName = value
            Me.TextBox1.Text = value
            RaiseEvent PropertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs("LastName"))
        End Set
    End Property
 
    Private _FirstName As String
    Public Property FirstName() As String
        Get
            Return _FirstName
        End Get
        Set(ByVal value As String)
            Me._FirstName = value
            Me.TextBox2.Text = value
            RaiseEvent PropertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs("FirstName"))
        End Set
    End Property
 
    Private _Anniversaire As Date
    Public Property Anniversaire() As Date
        Get
            Return _Anniversaire
        End Get
        Set(ByVal value As Date)
            Me._Anniversaire = value
            Me.TextBox3.Text = value.ToString
            RaiseEvent PropertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs("Anniversaire"))
        End Set
    End Property
 
#End Region
 
#Region "*** CONSTRUCTEURS "
 
    Public Sub New()
 
        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
        SetBinding()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
 
 
    End Sub
 
#End Region
 
#Region "*** METHODES "
 
    Private Sub SetBinding()
 
        With Me.DataBindings
 
            .Clear()
 
            ' my_personne est une instance global d'une classe Personne
            ' comportant un Nom, un Prenom, une Date de naissance
            .Add("LastName", my_personne, "Nom")
            .Add("FirstName", my_personne, "Prenom")
            .Add("Anniversaire", my_personne, "Anniversaire")
 
        End With
 
 
 
 
 
    End Sub
 
#End Region
 
End Class