From bb56d619d3cbabc7993ee3f5c9618e5fbb317323 Mon Sep 17 00:00:00 2001 From: NicolaP Date: Mon, 8 Nov 2021 12:32:19 +0100 Subject: [PATCH] Correzione comando "Salva con nome" --- AssemblyManager/AssemblyName.vb | 2 +- ProjectManager/ProjectManagerVM.vb | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/AssemblyManager/AssemblyName.vb b/AssemblyManager/AssemblyName.vb index 08f6d98..14cade6 100644 --- a/AssemblyManager/AssemblyName.vb +++ b/AssemblyManager/AssemblyName.vb @@ -48,7 +48,7 @@ Public Class AssemblyName End Set End Property - Private m_GraphicName As String + Private m_GraphicName As String = String.Empty Public Property GraphicName As String Get Return m_GraphicName diff --git a/ProjectManager/ProjectManagerVM.vb b/ProjectManager/ProjectManagerVM.vb index 55b076b..bc58626 100644 --- a/ProjectManager/ProjectManagerVM.vb +++ b/ProjectManager/ProjectManagerVM.vb @@ -1485,6 +1485,7 @@ Public Class ProjectManagerVM ' aggiungo il nome del file alla lista degli assemblati Dim Local_AssemblyName As New AssemblyName Local_AssemblyName.Name = SaveFileDialog.FileName + Local_AssemblyName.GraphicName = Path.GetFileNameWithoutExtension(SaveFileDialog.FileName) LocalCurrProject.AssemblyList.Add(Local_AssemblyName) ' devo creare tutto l'assemblato (comando GoBack nel CompoPanel)