Imports EgtCAM5.MachiningParameterExpanderVM
Imports EgtUILib

Public Class MachiningParameterExpanderV

   Sub New()

      ' La chiamata è richiesta dalla finestra di progettazione.
      InitializeComponent()

      ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
      Me.SliderV.Focusable = False
      ' Associo il gestore evento m_EventFocusOnSlider all'evento generato da FocusOnSlider
      AddHandler Map.refMachiningParameterExpanderVM.m_EventFocusOnSlider, AddressOf FocusOnSlider
      ' Associo il gestore evento m_EventFocusOnButtonPreview all'evento generato da FocusOnButtonPreview
      AddHandler Map.refMachiningParameterExpanderVM.m_EventFocusOnButtonPreview, AddressOf FocusOnButtonPreview

   End Sub

   ''' <summary>
   ''' Funzione che mette il focus allo slider
   ''' </summary>
   Friend Sub FocusOnSlider()
      Me.SliderV.Focus()
   End Sub

   ''' <summary>
   ''' Funzione che mette il focus sul bottone
   ''' </summary>
   Friend Sub FocusOnButtonPreview()
      Me.ButtonPreview.Focus()
   End Sub

End Class