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
| Public Class Car
Inherits BaseContent
'Public Event CarChanged(Sender As Object, ByVal e As CarsEventArgs)
Private _Catégorie As String
Private _Marque As String
Private _CarsParent As Cars
<XmlIgnore>
Public Property Parent() As Cars
<XmlIgnore>
Public Shared Property GlobalCarNotifier() As GlobalNotifierCar
'Private Sub New()
' MyBase.New()
'End Sub
Public Sub New(CarName As String)
MyBase.New(CarName)
InitializeComponent()
End Sub
Public Sub New(CarName As String, Original As Boolean)
MyBase.New(CarName, Original)
InitializeComponent()
End Sub
Private Sub InitializeComponent()
AddHandler MyBase.PropertyChanged, AddressOf PropertyChanged
End Sub
Private Shadows Sub PropertyChanged(sender As Object, e As PropertyChangedEventArgs)
GlobalNotifierCar.NotifyPropertyChanged(sender, e)
End Sub
Public Property Catégorie() As String
Get
Return _Catégorie
End Get
Set(ByVal value As String)
_Catégorie = value
NotifyPropertyChanged()
End Set
End Property
Public Property Marque() As String
Get
Return _Marque
End Get
Set(ByVal value As String)
_Marque = value
NotifyPropertyChanged()
End Set
End Property
....etc
End Class |
Partager