Emmanuele Sassi
eb427a602d
- Aggiunta funzionalità salva con nome. - Modifica per aprire in automatico la cartella dei progetti salvati quando si vuole caricare un progetto.
27 lines
820 B
VB.net
27 lines
820 B
VB.net
Imports EgtUILib
|
|
|
|
Public Class SaveNameWD
|
|
|
|
' Riferimento alla MainWindow
|
|
Private m_MainWindow As MainWindow = Application.Current.MainWindow
|
|
|
|
Sub New(Owner As Window)
|
|
Me.Owner = Owner
|
|
InitializeComponent()
|
|
End Sub
|
|
|
|
Private Sub SaveNameWD_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
|
|
Me.Top = Owner.Top + Owner.Height / 2 - Me.Height / 2
|
|
Me.Left = Owner.Left + Owner.Width / 2 - Me.Width / 2
|
|
SaveNameTxbl.Text = "Nome del progetto da salvare"
|
|
End Sub
|
|
|
|
Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
|
|
' Eseguo salvataggio
|
|
m_MainWindow.m_CurrentProjectPageUC.SaveNameProject()
|
|
m_MainWindow.m_CurrentProjectPageUC.SaveProject()
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
End Class
|