'Beispiel: VB .Net - GetImageDecoders - GetImageEncoders ' Option Explicit On Option Strict On Imports System.Drawing.Imaging Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim info As String info = "-----Decoder-----" info &= Me.EnumImageCodecInfo(1) info &= "-----Encoder-----" info &= Me.EnumImageCodecInfo(2) Me.TextBox1.Text = info End Sub <System.ComponentModel.Description("1=ImageDecoder|2=ImageEncoder")> _ Private Function EnumImageCodecInfo _ ( _ ByVal Index As Integer _ ) As String Dim id() As ImageCodecInfo = ImageCodecInfo.GetImageDecoders() Dim ie() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders() Dim Description() As String = { _ "Codec Name: ", "DLL Name: ", "Pattern: ", "Format: ", "Mime Type:", "Codec Version:"} Dim sb As New System.Text.StringBuilder Select Case Index Case 1 For n As Integer = 0 To id.GetUpperBound(0) With sb .Append("\n" & Description(0) & id(n).CodecName) .Append("\n" & Description(1) & CType(IIf(id(n).DllName <> String.Empty, id(n).DllName, "n/a"), String)) .Append("\n" & Description(2) & id(n).FilenameExtension) .Append("\n" & Description(3) & id(n).FormatDescription) .Append("\n" & Description(4) & id(n).MimeType) .Append("\n" & Description(5) & id(n).Version) .Append("\n") End With Next sb.Replace("\n", System.Environment.NewLine) Return sb.ToString() Case 2 For n As Integer = 0 To ie.GetUpperBound(0) With sb .Append("\n" & Description(0) & ie(n).CodecName) .Append("\n" & Description(1) & CType(IIf(ie(n).DllName <> String.Empty, ie(n).DllName, "n/a"), String)) .Append("\n" & Description(2) & ie(n).FilenameExtension) .Append("\n" & Description(3) & ie(n).FormatDescription) .Append("\n" & Description(4) & ie(n).MimeType) .Append("\n" & Description(5) & ie(n).Version) .Append("\n") End With Next sb.Replace("\n", System.Environment.NewLine) Return sb.ToString() Case Else Return String.Empty End Select Return String.Empty End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load Me.CenterToScreen() End Sub End Class