[VB.NET] GetEncoderInfo is not declared, VS2005 bug?

[The__Virus]

Voorbeeldcode uit MSDN:

Visual Basic .NET:

Public Shared Sub Main()
        Dim myBitmap As Bitmap
        Dim myImageCodecInfo As ImageCodecInfo
        Dim myEncoder As Encoder
        Dim myEncoderParameter As EncoderParameter
        Dim myEncoderParameters As EncoderParameters

        ' Create a Bitmap object based on a BMP file.
        myBitmap = New Bitmap("C:\Documents and Settings\All Users\Documents\My Music\music.bmp")

        ' Get an ImageCodecInfo object that represents the TIFF codec.
        myImageCodecInfo = GetEncoderInfo("image/tiff")

        ' Create an Encoder object based on the GUID
        ' for the ColorDepth parameter category.
        myEncoder = Encoder.ColorDepth

        ' Create an EncoderParameters object.
        ' An EncoderParameters object has an array of EncoderParameter
        ' objects. In this case, there is only one
        ' EncoderParameter object in the array.
        myEncoderParameters = New EncoderParameters(1)

        ' Save the image with a color depth of 24 bits per pixel.
        myEncoderParameter = New EncoderParameter(myEncoder, CType(24L, Int32))
        myEncoderParameters.Param(0) = myEncoderParameter
        myBitmap.Save("Shapes24bpp.tiff", myImageCodecInfo, myEncoderParameters)

    End Sub

Hier wordt myImageCodecInfo dus als ImageCodecInfo gedeclareerd. Echter, als ik deze code rechtstreeks kopieer naar mijn eigen form, krijg ik de foutmelding dat 'GetEncoderInfo is not declared' (en nee het ligt niet aan de imports, dan zou je wel een wijziging naar imaging.GetEncoderInfo krijgen maar dat gebeurt dus ook niet).

Ook wel logisch, want als ik Imaging typ komt er nooit eens GetEncoderInfo in het lijstje voor, kortom, dat hele ding bestaat niet


Mijn vraag: hoe komt dit en nog veel belangrijker, hoe ga ik hier omheen? Ik wil dus net als in het voorbeeld een image opslaan, maar ik krijg zo nooit de goede parameters .

[ Voor 3% gewijzigd door The__Virus op 24-05-2007 18:43 ]

[RobIII]

Visual Basic:

    Private Function GetEncoderInfo(ByVal mimeType As String) As ImageCodecInfo
        Dim j As Integer
        Dim encoders As ImageCodecInfo()
        encoders = ImageCodecInfo.GetImageEncoders()
        For j = 0 To encoders.Length
            If encoders(j).MimeType = mimeType Then
                Return encoders(j)
            End If
        Next j
        Return Nothing
    End Function

Google >> 1e hit >> MSDN site

[ Voor 17% gewijzigd door RobIII op 24-05-2007 18:52 ]

[The__Virus]

Aah nu snap ik eindelijk hoe een function werkt . Bedankt!