-piccola correzione parametriccompo

SceneUserControl/SceneUserControlVM.vb

@@ -212,14 +212,33 @@ Public Class GenericParam
       End Set
    End Property
 
+   Private m_TypeValue As ParamType
+   Public Property TypeValue As Integer
+      Get
+         Return m_TypeValue
+      End Get
+      Set(value As Integer)
+         m_TypeValue = value
+         NotifyPropertyChanged(NameOf(TypeValue))
+      End Set
+   End Property
+
 #End Region    ' Fields & Properties
 
 #Region "CONSTRUCTOR"
 
    Sub New(sName As String, Optional Visibility As Visibility = Visibility.Visible, Optional bIsEnabled As Boolean = True)
       m_Name = sName
-      nVisibility = Visibility
-      IsEnabled = bIsEnabled
+      m_TypeValue = ParamType.STR
+      m_nVisibility = Visibility
+      m_IsEnabled = bIsEnabled
+   End Sub
+
+   Sub New(sName As String, TypeValue As Integer, Optional Visibility As Visibility = Visibility.Visible, Optional bIsEnabled As Boolean = True)
+      m_Name = sName
+      m_TypeValue = TypeValue
+      m_nVisibility = Visibility
+      m_IsEnabled = bIsEnabled
    End Sub
 
 #End Region ' Constructor
@@ -249,8 +268,8 @@ Public Class _TextBoxParam
 
 #Region "CONSTRUCTOR"
 
-   Sub New(sName As String, sValue As String, Optional nVisibility As Visibility = Visibility.Visible, Optional bIsEnabled As Boolean = True)
-      MyBase.New(sName, nVisibility, bIsEnabled)
+   Sub New(sName As String, sValue As String, TypeValue As Integer, Optional nVisibility As Visibility = Visibility.Visible, Optional bIsEnabled As Boolean = True)
+      MyBase.New(sName, TypeValue, nVisibility, bIsEnabled)
       m_sValue = sValue
    End Sub
 
@@ -289,8 +308,8 @@ Public Class _TextBlockParam
 
 #Region "CONSTRUCTOR"
 
-   Sub New(sName As String, sValue As String, Optional nVisibility As Visibility = Visibility.Visible, Optional bIsEnabled As Boolean = True)
-      MyBase.New(sName, nVisibility, bIsEnabled)
+   Sub New(sName As String, sValue As String, TypeValue As Integer, Optional nVisibility As Visibility = Visibility.Visible, Optional bIsEnabled As Boolean = True)
+      MyBase.New(sName, TypeValue, nVisibility, bIsEnabled)
       m_MsgValue = sValue
    End Sub
 
@@ -404,7 +423,7 @@ Public Class _CheckBoxParam
 #Region "CONSTRUCTOR"
 
    Sub New(sName As String, sValue As String, Optional nVisibility As Visibility = Visibility.Visible, Optional bIsEnabled As Boolean = True)
-      MyBase.New(sName, nVisibility, bIsEnabled)
+      MyBase.New(sName, ParamType.BOOL, nVisibility, bIsEnabled)
       m_MsgValue = sValue
    End Sub