Nicola Pievani
18 lines
779 B
VB.net
18 lines
779 B
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)
|
|
Return If(Directory.Exists(sProjectName), Visibility.Visible, Visibility.Collapsed)
|
|
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
|