From b77d3aa71fc43608c9a24c2996cd49b7beea6f07 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Sat, 22 Jul 2017 11:01:57 +0000 Subject: [PATCH] OmagCUT 1.8g3 : - gestione caricamento/salvataggio progetto riferito a immagine non visualizzabile. --- CurrentProjectPageUC.xaml.vb | 6 ++++++ My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/CurrentProjectPageUC.xaml.vb b/CurrentProjectPageUC.xaml.vb index 5088fc7..7c49a66 100644 --- a/CurrentProjectPageUC.xaml.vb +++ b/CurrentProjectPageUC.xaml.vb @@ -394,6 +394,8 @@ Public Class CurrentProjectPageUC If Not String.Equals(sPhoto, sNewPhoto, StringComparison.InvariantCultureIgnoreCase) Then Try File.Copy(sPhoto, sNewPhoto, True) + Catch ex As FileNotFoundException + ' non รจ un problema Catch ex As Exception Return False End Try @@ -404,6 +406,7 @@ Public Class CurrentProjectPageUC Else Dim sPhoto1 As String = Path.ChangeExtension(sPath, "jpg") Dim sPhoto2 As String = Path.ChangeExtension(sPath, "png") + Dim sPhoto3 As String = Path.ChangeExtension(sPath, "bmp") Try If My.Computer.FileSystem.FileExists(sPhoto1) Then My.Computer.FileSystem.DeleteFile(sPhoto1) @@ -411,6 +414,9 @@ Public Class CurrentProjectPageUC If My.Computer.FileSystem.FileExists(sPhoto2) Then My.Computer.FileSystem.DeleteFile(sPhoto2) End If + If My.Computer.FileSystem.FileExists(sPhoto3) Then + My.Computer.FileSystem.DeleteFile(sPhoto3) + End If Catch ex As Exception End Try End If diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 5e19b0e..5c54fcf 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -60,5 +60,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + +