Imports EgtWPFLib5

Class MainWindowV

   Private m_MainWindowVM As MainWindowVM

#Region "CONSTRUCTOR"

   Sub New()
      ' Funzione che interpreta l'xaml
      InitializeComponent()
      ' Assegno al riferimento locale al VM il VM preso dal DataContext
      m_MainWindowVM = DirectCast(Me.DataContext, MainWindowVM)
   End Sub

#End Region    ' CONSTRUCTOR

#Region "EVENTS"

   Private Sub MainWindowV_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
      ' Carico e imposto posizione finestra
      WinPosFromIniToWindow(S_GENERAL, K_WINPLACE, Me)
   End Sub

   Private Sub MainWindowV_ContentRendered(sender As Object, e As EventArgs) Handles Me.ContentRendered
      m_MainWindowVM.ContentRendered()
   End Sub

   Private Sub MainWindowV_Unloaded(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles Me.Closing
      ' Salvo posizione finestra (se non minimizzata)
      If WindowState <> WindowState.Minimized Then
         WinPosFromWindowToIni(Me, S_GENERAL, K_WINPLACE)
      End If
   End Sub

#End Region    ' EVENTS

End Class