webForumDet fria alternativet

Spara fil utan Savedialog i VB 2010?

Programmering

1 svar · 898 visningar · startad av Dr-man

Medlem sedan juli 2002732 inlägg
Frågan#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?

258 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
130 ms — hämta tråd, inlägg och bilagor (db)
121 ms — ändringar (db)