Ho provato un altro sistema...
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
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.
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!