Hallo alle zusammen.
Leider scheitere ich beim Versuch ein "e.Graphics" als .gif auf die Festplatte zu speichern.
Hier mal der nicht funktionierende Kode.
Als Ergebnis erhalte ich ein wunderbares SCHWARZES Bild!!!!! :wacko:
Danke im Voraus,
Jeiss
Leider scheitere ich beim Versuch ein "e.Graphics" als .gif auf die Festplatte zu speichern.
Hier mal der nicht funktionierende Kode.
VB.NET-Quellcode
- Public Class Form1
- Dim destRect As Rectangle
- Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- destRect = New Rectangle(20, 20, 146, 150)
- End Sub
- Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.PaintDim newImage As Image = Image.FromFile("C:\...\Osterblumen.gif")
- e.Graphics.DrawImage(newImage, destRect)
- newImage = Image.FromFile("C:\...\blum.gif")destRect = New Rectangle(134, 20, 150, 146)
- e.Graphics.DrawImage(newImage, destRect)
- newImage = Image.FromFile("C:\...\OsterblumenRotated.gif")destRect = New Rectangle(240, 30, 150, 146)
- e.Graphics.DrawImage(newImage, destRect)
- Dim saveBitmap As New Bitmap(350, 150, e.Graphics)
- saveBitmap.Save("C:\...\Test1.gif", System.Drawing.Imaging.ImageFormat.Gif)
- End Sub
- End Class
Als Ergebnis erhalte ich ein wunderbares SCHWARZES Bild!!!!! :wacko:
Danke im Voraus,
Jeiss