Demetrio Cassarino
116 lines
3.2 KiB
VB.net
116 lines
3.2 KiB
VB.net
Public Class SceneButtonV
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_refSceneButtonVM As SceneButtonVM
|
|
Public m_PairUC As SceneUserControlV
|
|
Public m_RotateUC As SceneUserControlV
|
|
Public m_SelOptionUC As SelOptionV
|
|
Public m_MoveUC As SceneUserControlV
|
|
Public m_SceneUserControlV As SceneUserControlV
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' La chiamata è richiesta dalla finestra di progettazione.
|
|
InitializeComponent()
|
|
|
|
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
|
|
m_refSceneButtonVM = Map.refSceneButtonVM
|
|
Map.SetRefSceneButtonVM(m_refSceneButtonVM)
|
|
SolidManagerM.ManageUndoRedo()
|
|
Me.DataContext = m_refSceneButtonVM
|
|
Map.SetRefSceneButtonV(Me)
|
|
AddHandler Me.Loaded, AddressOf SceneButtonV_Loaded
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
#Region "METHODS"
|
|
|
|
Public Sub Sizing()
|
|
Me.Width = Map.refMainWindowV.ActualWidth
|
|
Me.Height = Map.refMainWindowV.ActualHeight
|
|
End Sub
|
|
|
|
Private Sub SceneButtonV_Loaded(sender As Object, e As RoutedEventArgs)
|
|
Sizing()
|
|
End Sub
|
|
|
|
Public Sub LoadPairUC()
|
|
If IsNothing(m_PairUC) Then
|
|
m_PairUC = New SceneUserControlV
|
|
Dim m_PairVM As New PairVM()
|
|
m_PairUC.DataContext = m_PairVM
|
|
Grid.SetColumn(m_PairUC, 0)
|
|
Grid.SetRow(m_PairUC, 0)
|
|
Grid.SetColumnSpan(m_PairUC, 2)
|
|
Grid.SetRowSpan(m_PairUC, 3)
|
|
MainGrid.Children.Add(m_PairUC)
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub RemovePairUC()
|
|
MainGrid.Children.Remove(m_PairUC)
|
|
m_PairUC = Nothing
|
|
End Sub
|
|
|
|
Public Sub LoadRotateUC()
|
|
If IsNothing(m_RotateUC) Then
|
|
m_RotateUC = New SceneUserControlV
|
|
Dim m_RotateVM As New RotateVM()
|
|
m_RotateUC.DataContext = m_RotateVM
|
|
Grid.SetColumn(m_RotateUC, 0)
|
|
Grid.SetRow(m_RotateUC, 0)
|
|
Grid.SetColumnSpan(m_RotateUC, 2)
|
|
Grid.SetRowSpan(m_RotateUC, 3)
|
|
MainGrid.Children.Add(m_RotateUC)
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub RemoveRotateUC()
|
|
MainGrid.Children.Remove(m_RotateUC)
|
|
m_RotateUC = Nothing
|
|
End Sub
|
|
|
|
Public Sub LoadMoveUC()
|
|
If IsNothing(m_MoveUC) Then
|
|
m_MoveUC = New SceneUserControlV
|
|
Dim m_MoveVM As New MoveVM()
|
|
m_MoveUC.DataContext = m_MoveVM
|
|
Grid.SetColumn(m_MoveUC, 0)
|
|
Grid.SetRow(m_MoveUC, 0)
|
|
Grid.SetColumnSpan(m_MoveUC, 2)
|
|
Grid.SetRowSpan(m_MoveUC, 3)
|
|
MainGrid.Children.Add(m_MoveUC)
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub RemoveMoveUC()
|
|
MainGrid.Children.Remove(m_MoveUC)
|
|
m_MoveUC = Nothing
|
|
End Sub
|
|
|
|
Public Sub LoadSceneUserControl()
|
|
If IsNothing(m_SceneUserControlV) Then
|
|
m_SceneUserControlV = New SceneUserControlV
|
|
Grid.SetColumn(m_SceneUserControlV, 0)
|
|
Grid.SetRow(m_SceneUserControlV, 0)
|
|
Grid.SetColumnSpan(m_SceneUserControlV, 2)
|
|
Grid.SetRowSpan(m_SceneUserControlV, 2)
|
|
MainGrid.Children.Add(m_SceneUserControlV)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Public Sub RemoveSceneUserControlV()
|
|
MainGrid.Children.Remove(m_SceneUserControlV)
|
|
m_SceneUserControlV = Nothing
|
|
End Sub
|
|
|
|
#End Region ' Methods
|
|
|
|
End Class
|