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