Nicola Pievani
92 lines
3.5 KiB
VB.net
92 lines
3.5 KiB
VB.net
Imports EgtWPFLib5
|
|
Imports EgtUILib
|
|
|
|
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"
|
|
EgtOutLog(" 1 Numero argomenti: " & args.Length.ToString)
|
|
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
|
|
RunBlindCode()
|
|
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 And Not OptionModule.AdjustDDT Then
|
|
WinPosFromWindowToIni(Me, S_GENERAL, K_WINPLACE)
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' EVENTS
|
|
|
|
Private Sub RunBlindCode()
|
|
If Map.refSceneManagerVM.bProtectKey Then
|
|
ReadArgs()
|
|
Map.refMainWindowVM.SetLauncher()
|
|
Map.refMainWindowVM.ShowErrorCompoLoad()
|
|
End If
|
|
End Sub
|
|
|
|
' Lettura degli argomenti e scrittura di un file di Log con i parametri caricati
|
|
Private Sub ReadArgs()
|
|
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)
|
|
EgtOutLog(" Argomenti: " & m_args.ToString)
|
|
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)
|
|
EgtOutLog(" File '.ddt' input : " & OptionModule.FileNameFromArgs)
|
|
' Assegno i valore Width, Height, Thickness
|
|
OptionModule.m_Width = Items(1)
|
|
EgtOutLog(" width : " & OptionModule.m_Width)
|
|
OptionModule.m_Height = Items(2)
|
|
EgtOutLog(" height : " & OptionModule.m_Height)
|
|
OptionModule.m_Thickness = Items(3)
|
|
EgtOutLog(" thickness : " & OptionModule.m_Thickness)
|
|
' Indico il percoso di salvataggio file DDF
|
|
OptionModule.SaveFileNameFromArgs = Items(4)
|
|
EgtOutLog(" File '.ddf' output : " & OptionModule.SaveFileNameFromArgs)
|
|
' Nuovo parametro da laggere per gestione Swing
|
|
If Items.Length = 6 Then
|
|
OptionModule.ForcesSideSwing = Items(5)
|
|
EgtOutLog(" swing : " & OptionModule.ForcesSideSwing)
|
|
End If
|
|
' abilito lettura dati
|
|
OptionModule.AdjustDDT = True
|
|
Else
|
|
EgtOutLog(" Argomenti non conformi")
|
|
' blocco lettura dati
|
|
OptionModule.AdjustDDT = False
|
|
' TERMINO TUTTO SUBITO!
|
|
End
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|