Nicola Pievani
21 lines
764 B
VB.net
21 lines
764 B
VB.net
Imports EgtWPFLib5
|
|
|
|
Class MainWindowV
|
|
|
|
Public Sub Me_ContentRendered() Handles Me.ContentRendered
|
|
' se è assente la chiave di protezione non mostro la finestra Launcher
|
|
If Map.refSceneManagerVM.bProtectKey Then
|
|
Map.refMainWindowVM.SetLauncher()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub EgtCustomWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
|
|
Dim rfMainWindowVM As MainWindowVM = DirectCast(Me.DataContext, MainWindowVM)
|
|
' 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)
|
|
rfMainWindowVM.WinPosToWindow(Me, WinPos)
|
|
End Sub
|
|
|
|
End Class
|