OmagCUT/RawPartPageUC.xaml.vb

Imports EgtUILib

Public Class RawPartPageUC

    Dim m_MainWindow As MainWindow = Application.Current.MainWindow

    'Dichiarazione delle Page UserControl
    Friend m_SceneButtons As SceneButtonsUC

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

        'Creazione del UserCOntrol SceneButtons
        m_SceneButtons = New SceneButtonsUC

        'Posizionemento nella griglia del UserControl SceneButtons
        m_SceneButtons.SetValue(Grid.ColumnProperty, 1)
        UpperButtonGrid.Children.Add(m_SceneButtons)

        'Associazione tag textbox e label per visualizzare nome nella calcolatrice
        LengthTxBx.Tag = LengthLbl
        WidthTxBx.Tag = WidthLbl
        HeightTxBx.Tag = HeightLbl
        OffsetXTxBx.Tag = OffsetXLbl
        OffsetYTxBx.Tag = OffsetYLbl
        KerfTxBx.Tag = KerfLbl

        'Imposto i messaggi letti dal file dei messaggi
        RectangleBtn.Content = EgtMsg(MSG_ROWPARTPAGEUC + 1)      'Rectangle - Rettangolo
        ByPointsBtn.Content = EgtMsg(MSG_ROWPARTPAGEUC + 2)       'By points - Per punti
        LengthLbl.Content = EgtMsg(MSG_ROWPARTPAGEUC + 3)         'Length - Lunghezza
        WidthLbl.Content = EgtMsg(MSG_ROWPARTPAGEUC + 4)          'Width - Larghezza
        HeightLbl.Content = EgtMsg(MSG_ROWPARTPAGEUC + 5)         'Height - Spessore
        OffsetXLbl.Content = EgtMsg(MSG_ROWPARTPAGEUC + 6)        'Offset X
        OffsetYLbl.Content = EgtMsg(MSG_ROWPARTPAGEUC + 7)        'Offset Y
        KerfLbl.Content = EgtMsg(MSG_ROWPARTPAGEUC + 8)           'Kerf
        MaterialLbl.Content = EgtMsg(MSG_ROWPARTPAGEUC + 9)       'Material - Materiale
        DamagedAreaLbl.Content = EgtMsg(MSG_ROWPARTPAGEUC + 10)   'Damaged area - Zona rovinata
        NewBtn.Content = EgtMsg(MSG_ROWPARTPAGEUC + 11)           'New - Nuovo
        DeleteBtn.Content = EgtMsg(MSG_ROWPARTPAGEUC + 12)        'Delete - Cancella
        PointsLbl.Content = EgtMsg(MSG_ROWPARTPAGEUC + 13)        'Points - Punti
        AddBtn.Content = EgtMsg(MSG_ROWPARTPAGEUC + 14)           'Add - Aggiungi
        RemoveBtn.Content = EgtMsg(MSG_ROWPARTPAGEUC + 15)        'Remove - Rimuovi

    End Sub

    Private Sub GrezzoUC_Loaded(sender As Object, e As RoutedEventArgs)

    End Sub

    Private Sub ExitBtnUC_Click(sender As Object, e As RoutedEventArgs)
        m_MainWindow.m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(Me)
        m_MainWindow.m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_MainWindow.m_CadCutPageUC)
        m_MainWindow.m_ActivePage = MainWindow.Pages.CadCut
    End Sub

    Private Sub ConfirmBtn_Click(sender As Object, e As RoutedEventArgs)
        m_MainWindow.m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Remove(Me)
        m_MainWindow.m_CurrentProjectPageUC.CurrentProjectPageGrid.Children.Add(m_MainWindow.m_CadCutPageUC)
        m_MainWindow.m_ActivePage = MainWindow.Pages.CadCut
    End Sub

    Private Sub RectangleBtnUC_Click(sender As Object, e As RoutedEventArgs) Handles RectangleBtn.Click

    End Sub

End Class