Public Class SaveFileDialogWithListV

   Private m_SaveFileDialogWithListVM As SaveFileDialogWithListVM

#Region "CONSTRUCTOR"

   Sub New(Owner As Window, SaveFileDialogWithListVM As SaveFileDialogWithListVM)
      ' Funzione che interpreta l'xaml
      InitializeComponent()
      Me.Owner = Owner
      Me.DataContext = SaveFileDialogWithListVM
      ' Assegno al riferimento locale al VM il VM preso dal DataContext
      m_SaveFileDialogWithListVM = SaveFileDialogWithListVM
   End Sub

#End Region    ' CONSTRUCTOR

   Private Sub SaveBtn_Click(sender As Object, e As RoutedEventArgs) Handles SaveBtn.Click
      If m_SaveFileDialogWithListVM.Save() Then
         DialogResult = True
      End If
   End Sub

   Public Overloads Function ShowDialog() As Boolean?
      ' inizializzo dialogo
      m_SaveFileDialogWithListVM.Initialize()
      ' pongo focus su testo
      FilePath.Focus()
      ' mostro la finestra di dialogo
      Return MyBase.ShowDialog()
   End Function

End Class