Icon in Bitmap umwandeln und speichern

    • VB.NET

      Icon in Bitmap umwandeln und speichern

      Hallo, das ist mein erster Beitrag hier und ich sehe hier so viele Themen die mir weiter geholfen haben und ich habe einfach ein bisschen gegoogelt und bin auf interessante ressourcen gestoßen die mir weiter helfen konnten.
      Hierbei habe ich gefunden wie ich mir e.Graphics etc. umgehe.
      So habe ich mich etwas in Visual Basic umgeschaut und bin auf "DrawIcon" gestoßen" und es hat geklappt, dieses Icon umzuwandeln!

      VB.NET-Quellcode

      1. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
      2. Dim bmp As Bitmap = Bitmap.FromFile("empty.png") 'Die datei empty.png ist eine transparente bilddatei die im anhang zufinden ist
      3. Dim g As Graphics = Graphics.FromImage(bmp) 'Damit wir zeichnen können
      4. Dim sz As New Size(32, 32) 'Bildgröße kann beliebig geändert werden
      5. g.DrawIcon(Me.Icon, 0, 0) 'Das icon wird geschrieben
      7. 'Ab hier wird alles optional, zum schreiben des bildes geht ihr zu zeile "schreiben:"
      8. Dim pct As New PictureBox With {.BackgroundImageLayout = ImageLayout.Stretch, _
      9. .BackgroundImage = bmp, _
      10. .Size = sz} 'Erstellt eine picturebox wo wir das bild sehen können
      11. Me.Controls.Add(pct)
      13. pct.BackgroundImage.Save("SPEICHERORT.endung", System.Drawing.Imaging.ImageFormat.Png) 'Zum schreiben
      14. End Sub



      Hoffe es hat euch geholfen =D

    Facebook
    Telefonspende