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
| Imports System.ComponentModel
Imports System.Collections.ObjectModel
Public Class BaseVM
Implements INotifyPropertyChanged
Public Event PropertyChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Public Sub RaisePropertyChanged(nomProp As String)
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(nomProp))
End Sub
End Class
Public Class ViewModel
Inherits BaseVM
Public Sub New()
mArr = New ObservableCollection(Of Model)() From {
New Model() With {.Nom = "Text0", .ForeColor = Colors.Red, .BackColor = Colors.Yellow},
New Model() With {.Nom = "Text1", .ForeColor = Colors.Magenta, .BackColor = Colors.LightSteelBlue},
New Model() With {.Nom = "Text2", .ForeColor = Colors.WhiteSmoke, .BackColor = Colors.LightSeaGreen},
New Model() With {.Nom = "Text3", .ForeColor = Colors.Gold, .BackColor = Colors.LightSeaGreen},
New Model() With {.Nom = "Text4", .ForeColor = Colors.LightSteelBlue, .BackColor = Colors.Navy}
}
End Sub
Private mArr As ObservableCollection(Of Model)
Public Property Arr() As ObservableCollection(Of Model)
Get
Return mArr
End Get
Set(ByVal value As ObservableCollection(Of Model))
mArr = value
RaisePropertyChanged("Arr")
End Set
End Property
End Class |
Partager