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