Emmanuele Sassi
55 lines
1.3 KiB
VB.net
55 lines
1.3 KiB
VB.net
Imports System.IO
|
|
Imports System.Runtime.CompilerServices
|
|
Imports System.Runtime.InteropServices
|
|
Imports System.Text
|
|
Imports System.Windows.Interop
|
|
Imports System.Xml
|
|
Imports System.Xml.Serialization
|
|
Imports Effector.Plugin.Lib
|
|
|
|
Class MainWindowV
|
|
|
|
Private m_MainWindowVM As MainWindowVM
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
m_MainWindowVM = New MainWindowVM
|
|
' Funzione che interpreta l'xaml
|
|
InitializeComponent()
|
|
' Assegno al DataContext il VM appena creato
|
|
Me.DataContext = m_MainWindowVM
|
|
'AddHandler Me.ContentRendered, AddressOf MainWindowV_ContentRendered
|
|
' imposto posizione finestra
|
|
Me.SetPlacementAppName(S_GENERAL)
|
|
Me.SetPlacementKeyName(K_WINPLACE)
|
|
Me.SetPlacementFileName(IniFile.sPath)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "METHODS"
|
|
|
|
#End Region ' METHODS
|
|
|
|
#Region "EVENTS"
|
|
|
|
Protected Overrides Sub OnContentRendered(e As EventArgs)
|
|
MyBase.OnContentRendered(e)
|
|
m_MainWindowVM.ContentRendered()
|
|
End Sub
|
|
Private Sub MainWindowV_ContentRendered(sender As Object, e As EventArgs)
|
|
m_MainWindowVM.ContentRendered()
|
|
End Sub
|
|
|
|
Public Overrides Sub OnCloseButtonClick(ByVal sender As Object, ByVal e As RoutedEventArgs)
|
|
If m_MainWindowVM.OnClose() Then
|
|
EgtOutLog("Exit")
|
|
Me.Close()
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' EVENTS
|
|
|
|
End Class
|