Dario Sassi
fbfaad64cf
- correzioni per spostamento pezzi tra tavole con e senza rotazioni (per immagine lastra).
94 lines
2.2 KiB
VB.net
94 lines
2.2 KiB
VB.net
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
|