Files
2021-12-02 09:41:32 +01:00

19 lines
627 B
VB.net

Public Class MultiCopyRawPartWndV
Private WithEvents m_MultiCopyRawPartWndVM As MultiCopyRawPartWndVM
Sub New(Owner As Window, MultiCopyRawPartWndVM As MultiCopyRawPartWndVM)
MyBase.New(Owner)
' This call is required by the designer.
InitializeComponent()
Me.DataContext = MultiCopyRawPartWndVM
' Assegno al riferimento locale al VM il VM preso dal DataContext
m_MultiCopyRawPartWndVM = MultiCopyRawPartWndVM
End Sub
Private Sub CloseWindow(bDialogResult As Boolean) Handles m_MultiCopyRawPartWndVM.m_CloseWindow
Me.DialogResult = bDialogResult
End Sub
End Class