Dario Sassi
31 lines
843 B
VB.net
31 lines
843 B
VB.net
Public Class NameDialogV
|
|
|
|
Private m_NameDialogVM As NameDialogVM
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New(Owner As Window, NameDialogVM As NameDialogVM)
|
|
' Funzione che interpreta l'xaml
|
|
InitializeComponent()
|
|
Me.Owner = Owner
|
|
Me.DataContext = NameDialogVM
|
|
' Assegno al riferimento locale al VM il VM preso dal DataContext
|
|
m_NameDialogVM = NameDialogVM
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
Private Sub SaveBtn_Click(sender As Object, e As RoutedEventArgs) Handles SaveBtn.Click
|
|
If m_NameDialogVM.Save() Then
|
|
DialogResult = True
|
|
End If
|
|
End Sub
|
|
|
|
Public Overloads Function ShowDialog() As Boolean?
|
|
' pongo focus su testo
|
|
FilePath.Focus()
|
|
' mostro la finestra di dialogo
|
|
Return MyBase.ShowDialog()
|
|
End Function
|
|
|
|
End Class |