Dario Sassi
cc317f5f54
- modifiche al passaggio Disegna->Lavora, ora creazione gruppi di lavoro richiedono selezione pezzi e presenza script opportuno.
25 lines
686 B
VB.net
25 lines
686 B
VB.net
Public Class SelMachGroupWndV
|
|
|
|
Private m_SelMachGroupWndVM As SelMachGroupWndVM
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New(Owner As Window, SelMachGroupWndVM As SelMachGroupWndVM)
|
|
' Funzione che interpreta l'xaml
|
|
InitializeComponent()
|
|
Me.Owner = Owner
|
|
Me.DataContext = SelMachGroupWndVM
|
|
' Assegno al riferimento locale al VM il VM preso dal DataContext
|
|
m_SelMachGroupWndVM = SelMachGroupWndVM
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
|
|
If m_SelMachGroupWndVM.IsValid Then
|
|
DialogResult = True
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|