Nicola Pievani
27 lines
1.1 KiB
VB.net
27 lines
1.1 KiB
VB.net
Imports System.IO
|
|
|
|
Public Class ProjectVisibilityConverter
|
|
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 Local_Project As New Project
|
|
'Local_Project = DirectCast(value, Project)
|
|
Dim sProjectName As String = CStr(value)
|
|
Dim VisibilityDoorList As Visibility = Visibility.Visible
|
|
If Not IsNothing(Map.refAssemblyManagerVM) AndAlso Map.refAssemblyManagerVM.VisibilityDoorList <> Visibility.Visible Then
|
|
Return Visibility.Collapsed
|
|
End If
|
|
If Directory.Exists(sProjectName) Then
|
|
VisibilityDoorList = Visibility.Visible
|
|
Else
|
|
VisibilityDoorList = Visibility.Collapsed
|
|
End If
|
|
Return VisibilityDoorList
|
|
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
|