Emmanuele Sassi
1f569d97ba
- Migliorata gestione scelta lavorazioni. - Aggiunto MessageBox per uscita senza chiave.
29 lines
906 B
VB.net
29 lines
906 B
VB.net
Public Class OptionPanelV
|
|
|
|
Private m_OptionPanelVM As OptionPanelVM
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Funzione che interpreta l'xaml
|
|
InitializeComponent()
|
|
' Assegno al riferimento locale al VM il VM preso dal DataContext
|
|
m_OptionPanelVM = DirectCast(Me.DataContext, OptionPanelVM)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "EVENTS"
|
|
|
|
Public Sub NestingTab_Click(sender As Object, e As MouseButtonEventArgs)
|
|
' Se non sono in RawPartTab proseguo
|
|
If Tabs.SelectedIndex <> 0 Then Return
|
|
' Tolgo il fuoco dalle textbox per averne i valori aggiornati e per costringere ad eseguire UpdateTabState
|
|
Keyboard.Focus(Tabs)
|
|
' Se non consentito passaggio ad altro tab interrompo l'evento
|
|
If Not OmagOFFICEMap.refOptionPanelVM.NestTabIsEnabled Then e.Handled = True
|
|
End Sub
|
|
#End Region ' EVENTS
|
|
|
|
End Class
|