Dario Sassi
3c4cee8bd7
- aggiunta gestione più tavole con relative sovratavole - riportata correzione a movimento pezzi con ventose da OmagCUT.
82 lines
1.7 KiB
VB.net
82 lines
1.7 KiB
VB.net
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class SelectTableWindowVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Public Enum TableNumOpt As Integer
|
|
TWO = 2
|
|
THREE = 3
|
|
End Enum
|
|
|
|
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
|
|
|
|
#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 TableNumOpt)
|
|
If nTableNum = TableNumOpt.TWO Then
|
|
m_Table3_Visibility = Visibility.Collapsed
|
|
Else
|
|
m_Table3_Visibility = Visibility.Visible
|
|
End If
|
|
NotifyPropertyChanged("Table3_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
|