Imports EgtUILib
Imports EgtWPFLib5

Public Class SelectTableWindowVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Friend Event m_CloseWindow(DialogResult As Integer)

   Private m_Table3_Visibility As Visibility
   Public Property Table3_Visibility As Visibility
      Get
         Return m_Table3_Visibility
      End Get
      Set(value As Visibility)
         m_Table3_Visibility = value
      End Set
   End Property

   Private m_Table4_Visibility As Visibility
   Public Property Table4_Visibility As Visibility
      Get
         Return m_Table4_Visibility
      End Get
      Set(value As Visibility)
         m_Table4_Visibility = value
      End Set
   End Property

#Region "Messages"

   Public ReadOnly Property Title As String
      Get
         Return EgtMsg(91123)      'Tavola
      End Get
   End Property

   Public ReadOnly Property WndMsg As String
      Get
         Return EgtMsg(91111)      'Tavola da usare ?
      End Get
   End Property

#End Region

   ' Definizione comandi
   Private m_cmdTable As ICommand

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New(nTableNum As Integer)
      Select nTableNum 
         Case 2
            m_Table3_Visibility = Visibility.Collapsed
            m_Table4_Visibility = Visibility.Collapsed
         Case 3
            m_Table3_Visibility = Visibility.Visible
            m_Table4_Visibility = Visibility.Collapsed
         Case 4
            m_Table3_Visibility = Visibility.Visible
            m_Table4_Visibility = Visibility.Visible
      End Select
      NotifyPropertyChanged("Table3_Visibility")
      NotifyPropertyChanged("Table4_Visibility")
   End Sub

#End Region    ' CONSTRUCTOR

#Region "COMMANDS"

#Region "Table"

   Public ReadOnly Property Table_Command As ICommand
      Get
         If m_cmdTable Is Nothing Then
            m_cmdTable = New Command(AddressOf Table)
         End If
         Return m_cmdTable
      End Get
   End Property

   Public Sub Table(ByVal param As Object)
      RaiseEvent m_CloseWindow(CInt(param))
   End Sub

#End Region     ' DrawCommand

#End Region    ' COMMANDS

End Class