Spara fil utan Savedialog i VB 2010?

Programmering

1 svar · 928 visningar · startad av Dr-man

Medlem sedan juli 2002732 inlägg
Trådstart#1

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
Medlem sedan dec. 2004736 inlägg
#2

Du sparar ju bilden i din Select Case.

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?

253 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a
121 ms — deklarationer (db)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)