Dario Sassi
33 lines
1.0 KiB
VB.net
33 lines
1.0 KiB
VB.net
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 |