Nicola Pievani
6a36a13211
- correzione dell'errore nel caricamento dei parametri, - inserimento di costanti.
24 lines
1.0 KiB
VB.net
24 lines
1.0 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
|
|
Public Class TemplateListConverter
|
|
Implements IValueConverter
|
|
|
|
Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
|
|
Dim TemplateList As ObservableCollection(Of String) = DirectCast(value, ObservableCollection(Of String))
|
|
For Index = TemplateList.Count - 1 To 0 Step -1
|
|
Dim Template As String = TemplateList(Index)
|
|
If Not Map.refPartPageVM.CurrPart.TypePart.Contains(ConstGen.PART_FRAME) Then
|
|
If Template.ToLower.Contains(FRAME_FOLDER) Then
|
|
TemplateList.Remove(Template)
|
|
End If
|
|
End If
|
|
Next
|
|
Return TemplateList
|
|
End Function
|
|
|
|
Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
|
|
Throw New NotImplementedException
|
|
End Function
|
|
|
|
End Class
|