Imports System.Windows.Forms

Public Class EgtManageFileDialogV

#Region "FIELDS & PROPERTIES"

   Private WithEvents m_EgtManageFileDialogVM As EgtManageFileDialogVM

   Private Shadows DialogResult As DialogResult

   Public Overloads Property Title As String
      Get
         Return m_EgtManageFileDialogVM.sTitle
      End Get
      Set(value As String)
         m_EgtManageFileDialogVM.sTitle = value
      End Set
   End Property

   Public Property Filter As String
      Get
         Return m_EgtManageFileDialogVM.sFilter
      End Get
      Set(value As String)
         m_EgtManageFileDialogVM.sFilter = value
      End Set
   End Property

   Public Property InitialDirectory As String
      Get
         Return m_EgtManageFileDialogVM.sInitialDirectory
      End Get
      Set(value As String)
         m_EgtManageFileDialogVM.sInitialDirectory = value
      End Set
   End Property

   Public Property FileName As String
      Get
         Return m_EgtManageFileDialogVM.sFileName
      End Get
      Set(value As String)
         m_EgtManageFileDialogVM.sFileName = value
      End Set
   End Property

   Public Property FilterIndex As Integer
      Get
         Return m_EgtManageFileDialogVM.nFilterIndex
      End Get
      Set(value As Integer)
         m_EgtManageFileDialogVM.nFilterIndex = value
      End Set
   End Property

#End Region    ' FIELDS & PROPERTIES

#Region "CONTRUCTORS"

   Sub New(Owner As Window, EgtManageFileDialogVM As EgtManageFileDialogVM)
      MyBase.New(Owner)
      InitializeComponent()
      Me.DataContext = EgtManageFileDialogVM
      ' Assegno al riferimento locale al VM il VM preso dal DataContext
      m_EgtManageFileDialogVM = EgtManageFileDialogVM
   End Sub

#End Region

#Region "EVENTS"

   Private Sub CloseWindow(DialogResult As MessageBoxResult) Handles m_EgtManageFileDialogVM.m_CloseWindow
      Me.DialogResult = DialogResult
      Me.Close()
   End Sub

#End Region

#Region "METHODS"

   Public Overloads Function ShowDialog() As DialogResult
      MyBase.ShowDialog()
      Return Me.DialogResult
   End Function

#End Region    '  METHODS

End Class