Daniele Bariletti
55 lines
1.3 KiB
VB.net
55 lines
1.3 KiB
VB.net
Imports System.Windows.Interop
|
|
|
|
Public Class SceneButtonV
|
|
|
|
Private m_refSceneButtonVM As SceneButtonVM
|
|
Private m_PairUC As PairV
|
|
|
|
#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 = New SceneButtonVM()
|
|
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 PairV
|
|
MainGrid.Children.Add(m_PairUC)
|
|
Grid.SetColumn(MainGrid, 0)
|
|
Grid.SetRow(MainGrid, 0)
|
|
Grid.SetColumnSpan(MainGrid, 2)
|
|
Grid.SetRowSpan(MainGrid, 2)
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub RemovePairUC(PairUC As PairV)
|
|
MainGrid.Children.Remove(PairUC)
|
|
PairUC = Nothing
|
|
End Sub
|
|
|
|
|
|
#End Region ' Methods
|
|
|
|
End Class
|