Ho provato un altro sistema...
Ho creato un nuovo "progetto" per vedere se fosse un problema di quello in corso... e l'ho iniziato con Visual Basic 2017 (l'altro lo stavo facendo con il 2019) e niente.... il problema mi rimane.codice:Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim ImgA As New Bitmap(627, 294) Dim g As Graphics = Graphics.FromImage(ImgA) g.CopyFromScreen(294, 12, 0, 0, ImgA.Size) g.Dispose() If CB_RESIZE.CheckState = CheckState.Unchecked Then Dim nuovagrandezza As New Size With { .Width = 273, .Height = 128 } ImgA = New Bitmap(ImgA, nuovagrandezza) Else MsgBox("Attenzione! stai salvando le immagini nel formato originario!") End If Try If (ImgA IsNot Nothing) Then ImgA.Save("Imm\" & InputBox("Scrivi il nome del file") & ".bmp") MsgBox("Immagine salvata con successo!") End If Catch ex As Exception MsgBox("C'è stato un problema durante il salvataggio." & vbCrLf _ & "Il file NON è stato salvato.", MsgBoxStyle.Critical) End Try End Sub
Solo che ho scoperto che, se cancello ogni forma di "percorso", qualunque esso sia, tutto torna a funzionare, ma mi salva i file nella cartella di Debug.
Nell'esempio, ho provato a dirgli di creare una cartella "Imm" e mettere dentro il file pensando lo facesse nella cartella di Debug... e invece niente da fare... mi si ripresenta il problema... non c'è modo che possa dirgli al programma di salvare il file al di fuori della cartella di Debug.
Quello che trovo assurdo, è che all'inizio tutto funzionava!... poi ho provato ad apportare una modifica pensando di usare il "SaveFileDialog"... ma avevo scoperto che mi tornava più noioso e l'ho tolto... ma da allora... ha smesso di funzionare.
Sto nel pallone!![]()

Rispondi quotando