Nicola Pievani
23 lines
1.1 KiB
VB.net
23 lines
1.1 KiB
VB.net
Imports EgtWPFLib5
|
|
Class MainWindow
|
|
|
|
Public Sub Me_ContentRendered() Handles Me.ContentRendered
|
|
Dim rfMainWindowViewModel As MainWindowViewModel = DirectCast(Me.DataContext, MainWindowViewModel)
|
|
' richiamo la sub che è stata costruita nel MainWindowViewModel
|
|
Dim SceneManagerViewModel As SceneManagerViewModel = DirectCast(rfMainWindowViewModel.SceneManager.DataContext, SceneManagerViewModel)
|
|
' se è assente la chiave di protezione non mostro la finestra Launcher
|
|
If SceneManagerViewModel.bProtectKey Then
|
|
rfMainWindowViewModel.SetLauncher()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub EgtCustomWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
|
|
Dim rfMainWindowViewModel As MainWindowViewModel = DirectCast(Me.DataContext, MainWindowViewModel)
|
|
' Posizione e dimensioni del Form
|
|
Dim WinPos As New WinPos
|
|
GetPrivateProfileWinPos(S_GENERAL, K_WINPLACE, WinPos.nFlag, WinPos.nLeft, WinPos.nTop, WinPos.nWidth, WinPos.nHeight)
|
|
rfMainWindowViewModel.WinPosToWindow(Me, WinPos)
|
|
End Sub
|
|
|
|
End Class
|