With dgrx
.AutoGenerateColumns = True
End With
Dim kvpValue As KeyValuePair(Of String, Value)
Dim icData As ItemCollection = dgrx.Items
Dim l As List(Of KeyValuePair(Of String, Value)) = New List(Of KeyValuePair(Of String, Value))
'Dim fNewValue As Single
Dim usr As UnsignedRational
Dim e() As UnsignedRational.Element
For Each kvpValue In ixExifInfo
l.Add(item:=kvpValue)
Next
With dgrx
.ItemsSource = l
.Items.Refresh()
End With
Private Sub dgrx_AutoGeneratingColumn(sender As Object,
e As System.Windows.Controls.DataGridAutoGeneratingColumnEventArgs) Handles dgrx.AutoGeneratingColumn
Select Case e.Column.Header.ToString
Case "Key"
With e.Column
.Header = "Name"
End With
Case "Value"
With e.Column
.Header = "Wert"
.IsReadOnly = False
.CanUserSort = True
.CanUserResize = True
.CanUserReorder = True
End With
Case Else
e.Cancel = True
End Select
End Sub
|
|
|
Select Case e.Column.Header.ToString
Case "DisplayName"
With e.Column
.Header = "Name"
.DisplayIndex = 0
End With
Case "DisplayValue"
With e.Column
.Header = "Wert"
.IsReadOnly = False
.CanUserSort = True
.CanUserResize = True
.CanUserReorder = True
End With
Case "Wert" 'der Event-Handler wird für die Column auch aufgerufen und da darf nicht gecanelt werden....
Case "Name" 'hier dasselbe
Case Else
e.Cancel = True
End Select
End Sub
|
|
|
Der erste Teil wird quasi zum Befüllen mit Daten aufgerufen.
Neue Datensätze werden zu keinem Zeitpunkt hinzugefügt.
Mit With dgrx
.ItemsSource = l
wird die List als ItemsSource hinzugefügt.
Es werden keine neuen Datensätze hinzugefügt.
Irgendwann später werden komplett andere Datensätze angezeigt, und dafür wird exakt derselbe komplette Code nochmals aufgerufen.
usr und e() sind in ausgeschnittenem Code, der meiner Meinung nicht relevant ist. Da wird nur vor dem l.Add(kvpValue) das kvpValue modifiziert, eher aus darstellerischen Gründen.