Okay Leute,
hier mein Problem:
Ich lade per Code ein Bild in 2 unterschiedlich große Pictureboxen.
Nun möchte ich die beiden Pictureboxen als *.jpeg abspechern -
und zwar in der Größe der Pictureboxen.
Sinn des ganzen ist es, dass ich ein Bild in 2 verschiedenen Größen abspeichere!
Hier meine Codes:
Code zum Laden des Bildes in die 2 unterschiedlich großen Pictureboxen:
Code zum abspeichern der beiden Pictureboxen:
Es funktioniert alles, bis auf dass die beiden abgespeicherten *.jpeg die Originalgröße haben.
Also meine Pictureboxen sind 160 x 120 und 320 x 240 groß, die gespeicherten Bilder jedoch beide 2048 x 1536 groß.
Wie kann ich das Bild in der Größe der Picturebox abspeichern??
MfG DiDi90
hier mein Problem:
Ich lade per Code ein Bild in 2 unterschiedlich große Pictureboxen.
Nun möchte ich die beiden Pictureboxen als *.jpeg abspechern -
und zwar in der Größe der Pictureboxen.
Sinn des ganzen ist es, dass ich ein Bild in 2 verschiedenen Größen abspeichere!
Hier meine Codes:
Code zum Laden des Bildes in die 2 unterschiedlich großen Pictureboxen:
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim OpenFileDialog1 As New OpenFileDialog
- With OpenFileDialog1
- .CheckFileExists = True
- .ShowReadOnly = False
- .Filter = "All Files|*.*|Bitmap Files (*)|*.bmp;*.gif;*.jpg"
- .FilterIndex = 2
- If .ShowDialog = DialogResult.OK Then
- PictureBox1.Image = Image.FromFile(.FileName)
- PictureBox2.Image = Image.FromFile(.FileName)
- End If
- End With
- End Sub
Code zum abspeichern der beiden Pictureboxen:
VB.NET-Quellcode
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- If IO.Directory.Exists(Application.StartupPath & "\Images\") = False Then
- IO.Directory.CreateDirectory(Application.StartupPath & "\Images\")
- End If
- Dim filename As String = Application.StartupPath & "\Images\" & "1.jpeg"
- PictureBox1.Image.Save(filename, System.Drawing.Imaging.ImageFormat.Jpeg)
- Dim filename2 As String = Application.StartupPath & "\Images\" & "2.jpeg"
- PictureBox2.Image.Save(filename2, System.Drawing.Imaging.ImageFormat.Jpeg)
- End Sub
Es funktioniert alles, bis auf dass die beiden abgespeicherten *.jpeg die Originalgröße haben.
Also meine Pictureboxen sind 160 x 120 und 320 x 240 groß, die gespeicherten Bilder jedoch beide 2048 x 1536 groß.
Wie kann ich das Bild in der Größe der Picturebox abspeichern??
MfG DiDi90
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DiDi“ ()