Emmanuele Sassi
42 lines
1.5 KiB
VB.net
42 lines
1.5 KiB
VB.net
Public Class TagliCadUC
|
|
|
|
Dim MainWindowUC As MainWindow = Application.Current.MainWindow
|
|
Dim m_BarLavoraUC As BarLavoraUC
|
|
Dim m_BarNestingUC As BarNestingUC
|
|
|
|
Public Event ComponentsBtnMW_Click As RoutedEventHandler
|
|
Public Event ZoomAllBtnMW_Click As RoutedEventHandler
|
|
|
|
Private Sub TagliCadUC_Initialized(sender As Object, e As EventArgs)
|
|
m_BarLavoraUC = New BarLavoraUC
|
|
m_BarNestingUC = New BarNestingUC
|
|
End Sub
|
|
|
|
Private Sub TagliCadUC_Loaded(sender As Object, e As RoutedEventArgs)
|
|
RightBtnBarContent.Content = m_BarNestingUC
|
|
End Sub
|
|
|
|
Private Sub ComponentsBtnUC_Click(sender As Object, e As RoutedEventArgs)
|
|
RaiseEvent ComponentsBtnMW_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub ZoomAllBtnUC_Click(sender As Object, e As RoutedEventArgs)
|
|
RaiseEvent ZoomAllBtnMW_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub LavoraBtnUC_Click(sender As Object, e As RoutedEventArgs)
|
|
If (RightBtnBarContent.Content = m_BarNestingUC) Then
|
|
RightBtnBarContent.Content = m_BarLavoraUC
|
|
Else
|
|
RightBtnBarContent.Content = m_BarLavoraUC
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub GrezzoBtnUC_Click(sender As Object, e As RoutedEventArgs)
|
|
MainWindowUC.m_GrezzoUC.SetValue(Grid.RowProperty, 1)
|
|
MainWindowUC.m_GrezzoUC.SetValue(Grid.RowSpanProperty, 2)
|
|
MainWindowUC.MainGrid.Children.Add(MainWindowUC.m_GrezzoUC)
|
|
End Sub
|
|
|
|
End Class
|