Hur får jag filen sparad med hjälp av denna kod utan använda mig av SaveDialog?
Private Sub OpenImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenImage.Click
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
ImageLabel.Text = OpenFileDialog1.FileName
RectangleImage.BackgroundImage = Image.FromFile(ImageLabel.Text)
Dim Newsize As New Size(100, 100)
ResizedImage = New Bitmap(RectangleImage.BackgroundImage, Newsize)
RectangleImage.BackgroundImage = ResizedImage
RectangleImage.BackgroundImageLayout = ImageLayout.Stretch
End If
SaveFileDialog1.AddExtension = True
SaveFileDialog1.DefaultExt = Path.GetExtension(ImageLabel.Text)
Try
Select Case SaveFileDialog1.FilterIndex
Case 1
RectangleImage.BackgroundImage.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
Case 2
RectangleImage.BackgroundImage.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Gif)
End Select
ResizedImage.Dispose()
Catch ex As Exception
MsgBox("Bildformatet felaktig")
End Try
End Sub
Till RectangleImage.BackgroundImage.Save skickar du ju in första parametern som är just filnamnet. Här kan du ju skicka in ett eget filnamn du hämtar från något annat ställe.
Eller vill du göra på något annat sätt?
379 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e