Demetrio Cassarino
35 lines
1.1 KiB
VB.net
35 lines
1.1 KiB
VB.net
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
|