Nicola Pievani
105 lines
4.3 KiB
VB.net
105 lines
4.3 KiB
VB.net
Imports EgtWPFLib5
|
|
|
|
Class MainWindowV
|
|
|
|
Private m_args() As String = Nothing
|
|
|
|
#Region "EVENTS"
|
|
|
|
Public Sub New(args As String())
|
|
|
|
' La chiamata è richiesta dalla finestra di progettazione.
|
|
InitializeComponent()
|
|
' Per leggere più argomenti devono essere scritti ognuno tra doppi apici e separati da spazio
|
|
' Esempio:"Argomento 1 di prova" "Argomento 2 di prova"
|
|
If args.Length > 0 Then
|
|
m_args = args
|
|
RunBlindCode()
|
|
End If
|
|
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
|
|
|
|
End Sub
|
|
|
|
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
|
|
' se è assente la chiave di protezione non mostro la finestra Launcher
|
|
If Map.refSceneManagerVM.bProtectKey Then
|
|
If Not IsNothing(m_args) Then
|
|
' leggo gli argomenti: Il programma si chiude appena termina la scrittura del file DDF
|
|
Dim Items() As String = m_args(0).Split(";"c)
|
|
If Items.Length = 5 Then
|
|
' Avvio progetto - LauncherOpt.Open_last_project (1)
|
|
OptionModule.m_bLauncherOpenOnce = True
|
|
' Indico il percorso del file
|
|
OptionModule.FileNameFromArgs = Items(0)
|
|
' Assegno i valore Width, Height, Thickness
|
|
OptionModule.m_Width = Items(1)
|
|
OptionModule.m_Height = Items(2)
|
|
OptionModule.m_Thickness = Items(3)
|
|
' Indico il percoso di salvataggio file DDF
|
|
OptionModule.SaveFileNameFromArgs = Items(4)
|
|
' abilito lettura dati
|
|
OptionModule.AdjustDDT = True
|
|
Else
|
|
' blocco lettura dati
|
|
OptionModule.AdjustDDT = False
|
|
' TERMINO TUTTO SUBITO!
|
|
End
|
|
End If
|
|
End If
|
|
Map.refMainWindowVM.SetLauncher()
|
|
Map.refMainWindowVM.ShowErrorCompoLoad()
|
|
End If
|
|
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
|
|
|
|
Private Sub RunBlindCode()
|
|
If Map.refSceneManagerVM.bProtectKey Then
|
|
If Not IsNothing(m_args) Then
|
|
StartBlinProgdLog(IniFile.m_sTempDir & "\BlindProgLog.txt")
|
|
' leggo gli argomenti: Il programma si chiude appena termina la scrittura del file DDF
|
|
Dim Items() As String = m_args(0).Split(";"c)
|
|
If Items.Length = 5 Then
|
|
' Avvio progetto - LauncherOpt.Open_last_project (1)
|
|
OptionModule.m_bLauncherOpenOnce = True
|
|
' Indico il percorso del file
|
|
OptionModule.FileNameFromArgs = Items(0)
|
|
BlindProgLog(" File '.ddt' input : " & OptionModule.FileNameFromArgs)
|
|
' Assegno i valore Width, Height, Thickness
|
|
OptionModule.m_Width = Items(1)
|
|
BlindProgLog(" width : " & OptionModule.m_Width)
|
|
OptionModule.m_Height = Items(2)
|
|
BlindProgLog(" height : " & OptionModule.m_Height)
|
|
OptionModule.m_Thickness = Items(3)
|
|
BlindProgLog(" thickness : " & OptionModule.m_Thickness)
|
|
' Indico il percoso di salvataggio file DDF
|
|
OptionModule.SaveFileNameFromArgs = Items(4)
|
|
BlindProgLog(" File '.ddf' output : " & OptionModule.SaveFileNameFromArgs)
|
|
' abilito lettura dati
|
|
OptionModule.AdjustDDT = True
|
|
Else
|
|
' blocco lettura dati
|
|
OptionModule.AdjustDDT = False
|
|
' TERMINO TUTTO SUBITO!
|
|
End
|
|
End If
|
|
End If
|
|
Map.refMainWindowVM.SetLauncher()
|
|
Map.refMainWindowVM.ShowErrorCompoLoad()
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|