Tipp 0005 Bitmaps konvertieren
Autor/Einsender:
Datum:
  Michael Werner
14.03.2004 (Update)
Entwicklungsumgebung:   VB.Net 2002
Framework:   1.0
Die Bitmap-Klasse aus dem Namespace System.Drawing kapselt eine GDI-Bitmap, die aus den Pixel-Daten für eine Grafik und deren Attributen besteht. Mit der Image.Save-Methode wird dieses Image-Objekt im angegebenen Format gespeichert. Im Namespace System.Drawing.Imaging gibt es eine ImageFormat-Klasse, die beim Speichern mit Save mit dem Bildformat als Parameter übergeben wird und so eine einfache Möglichkeit des Konvertierens einer Bitmap in die Formate GIF, JPG, PNG, TIF, WMF (und andere) ermöglicht.
 
Imports System.IO

Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click

    Dim fi As New FileInfo(TextBox1.Text)
    If fi.Exists = False Then
      MsgBox("Wählen Sie zunächst eine Bmp-Datei!", _
             MsgBoxStyle.Exclamation)
      Exit Sub
    End If

    Dim bild As New Bitmap(TextBox1.Text)
    Dim sPathWithoutExt As String
    Dim sPath As String
    Dim j As Int16

    sPathWithoutExt = _
        TextBox1.Text.Substring(0, TextBox1.Text.LastIndexOf("."))
    sPath = _
        TextBox1.Text.Substring(0, TextBox1.Text.LastIndexOf("\"))

    Try
      If CheckBox1.Checked Then
        bild.Save(sPathWithoutExt & ".gif", _
              System.Drawing.Imaging.ImageFormat.Gif)
        j += 1
      End If
      If CheckBox2.Checked Then
        bild.Save(sPathWithoutExt & ".jpg", _
              System.Drawing.Imaging.ImageFormat.Jpeg)
        j += 1
      End If
      If CheckBox3.Checked Then
        bild.Save(sPathWithoutExt & ".png", _
              System.Drawing.Imaging.ImageFormat.Png)
        j += 1
      End If
      If CheckBox4.Checked Then
        bild.Save(sPathWithoutExt & ".tif", _
              System.Drawing.Imaging.ImageFormat.Tiff)
        j += 1
      End If
      If j = 0 Then
        MsgBox("Es wurden keine Konvertierungen vorgenommen!", _
               MsgBoxStyle.Exclamation)
      ElseIf j = 1 Then
        MsgBox("Konvertierung ist erfolgreich abgeschlossen!" & _
               vbNewLine & "Die neue gleichnamige Bilddatei " & _
               "befindet sich in " & vbNewLine & sPath, _
               MsgBoxStyle.Information, "Erfolgreich konvertiert")
      Else
        MsgBox("Konvertierung ist erfolgreich abgeschlossen!" & _
               vbNewLine & "Die neuen gleichnamigen " & j & _
               " Bilddateien befinden sich in " & vbNewLine & _
               sPath, MsgBoxStyle.Information, _
               "Erfolgreich konvertiert")
      End If
    Catch except As Exception
      MsgBox(except.Message, MsgBoxStyle.Exclamation)
    End Try
  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button3.Click
    With OpenFileDialog1
      .InitialDirectory = "c:\"
      .Filter = "Bitmap (*.bmp)|*.bmp"
      .RestoreDirectory = True

      If .ShowDialog() = DialogResult.OK Then
        TextBox1.Text = .FileName
        PictureBox1.Image = _
                System.Drawing.Image.FromFile(TextBox1.Text)
      End If
    End With
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub
End Class
 
Weitere Links zum Thema
Farb-Bitmaps zu Graustufen konvertieren
Farbwerte konvertieren

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (7,4 kB) Downloads bisher: [ 1283 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 21. Januar 2012