33b90967c6
- gestita visibilita' contemporanea di InputPanele MessagePanel
44 lines
1.1 KiB
VB.net
44 lines
1.1 KiB
VB.net
Imports System.Windows.Threading
|
|
Imports EgtWPFLib5
|
|
Imports EgtUILib
|
|
Imports System.Collections.ObjectModel
|
|
Imports System.IO
|
|
Imports System.Globalization
|
|
|
|
Public Class ProjectVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Creo riferimento a questa classe in Map
|
|
Map.SetRefProjectVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "METHODS"
|
|
|
|
|
|
#End Region ' METHODS
|
|
|
|
End Class
|
|
|
|
Public Class VisibilityToRowConverter
|
|
Implements IValueConverter
|
|
|
|
Public Function Convert(ByVal value As Object, ByVal targetType As Type, ByVal parameter As Object, ByVal culture As CultureInfo) As Object Implements IValueConverter.Convert
|
|
If IsNothing(value) Then Return 2
|
|
Return If(value = Visibility.Visible, 1, 2)
|
|
End Function
|
|
|
|
Public Function ConvertBack(ByVal value As Object, ByVal targetType As Type, ByVal parameter As Object, ByVal culture As CultureInfo) As Object Implements IValueConverter.ConvertBack
|
|
Throw New System.NotImplementedException()
|
|
End Function
|
|
End Class
|