OmagCUT/DirectCutPageUC.xaml.vb

Imports EgtUILib

Public Class DirectCutPageUC

   ' Dichiarazione delle Page UserControl
   Private m_MainWindow As MainWindow = Application.Current.MainWindow
   Friend m_MachineButtons As MachineButtonsUC
   Friend m_ManualAxesMove As ManualAxesMoveUC
   Friend m_SingleCut As SingleCutUC

   Friend m_CN As CN_generico
   Private m_bFirst As Boolean = True

   ' Riferimento alla pagina correntemente attiva
   Friend m_ActiveDirectCutPage As DirectCutPages

   Enum DirectCutPages
      DirectCut
      SingleCut
   End Enum

   Private Sub DirectCutPage_Initialized(sender As Object, e As EventArgs)

      'Creazione delle Page UserControl
      m_MachineButtons = New MachineButtonsUC
      m_ManualAxesMove = New ManualAxesMoveUC
      m_SingleCut = New SingleCutUC

      'Posizionemento nella griglia delle Page UserControl
      m_MachineButtons.SetValue(Grid.RowProperty, 2)
      m_ManualAxesMove.SetValue(Grid.RowProperty, 1)
      m_SingleCut.SetValue(Grid.RowProperty, 1)

      'Assegno MachineButtons alla pagina
      LowerButtonGrid.Children.Add(m_MachineButtons)


   End Sub

   Private Sub DirectCutPage_Loaded(sender As Object, e As RoutedEventArgs)
      m_ActiveDirectCutPage = DirectCutPages.DirectCut
   End Sub

   Private Sub ManualBtn_Click(sender As Object, e As RoutedEventArgs) Handles ManualBtn.Click
      LeftButtonGrid.Children.Add(m_ManualAxesMove)
   End Sub

   Private Sub SingleCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles SingleCutBtn.Click
      LeftButtonGrid.Children.Add(m_SingleCut)
      m_ActiveDirectCutPage = DirectCutPages.SingleCut
   End Sub

   Private Sub DirectCutPage_Unloaded(sender As Object, e As RoutedEventArgs)
      Select Case m_ActiveDirectCutPage
         Case DirectCutPages.DirectCut
            ' Non è necessario fare alcunché
         Case DirectCutPages.SingleCut
            LeftButtonGrid.Children.Remove(m_SingleCut)
      End Select
   End Sub

End Class