本文整理汇总了VB.NET中System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders方法的典型用法代码示例。如果您正苦于以下问题：VB.NET ImageCodecInfo.GetImageEncoders方法的具体用法？VB.NET ImageCodecInfo.GetImageEncoders怎么用？VB.NET ImageCodecInfo.GetImageEncoders使用的例子？那么, 这里精选的方法代码示例或许可以为您提供帮助。
在下文中一共展示了ImageCodecInfo.GetImageEncoders方法的2个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: GetImageEncodersExample
Public Sub GetImageEncodersExample(ByVal e As PaintEventArgs)
' Get an array of available codecs.
Dim myEncoders() As ImageCodecInfo
myEncoders = ImageCodecInfo.GetImageEncoders()
Dim numEncoders As Integer = myEncoders.GetLength(0)
Dim strNumEncoders As String = numEncoders.ToString()
Dim foreColor As Color = Color.Black
Dim font As New Font("Arial", 8)
Dim i As Integer = 0
' Get the info. for all encoders in the array.
If numEncoders > 0 Then
Dim myEncoderInfo(numEncoders * 10) As String
For i = 0 To numEncoders - 1
myEncoderInfo((i * 10)) = "Codec Name = " _
+ myEncoders(i).CodecName
myEncoderInfo((i * 10 + 1)) = "Class ID = " _
+ myEncoders(i).Clsid.ToString()
myEncoderInfo((i * 10 + 2)) = "DLL Name = " _
+ myEncoders(i).DllName
myEncoderInfo((i * 10 + 3)) = "Filename Ext. = " _
+ myEncoders(i).FilenameExtension
myEncoderInfo((i * 10 + 4)) = "Flags = " _
+ myEncoders(i).Flags.ToString()
myEncoderInfo((i * 10 + 5)) = "Format Descrip. = " _
+ myEncoders(i).FormatDescription
myEncoderInfo((i * 10 + 6)) = "Format ID = " _
+ myEncoders(i).FormatID.ToString()
myEncoderInfo((i * 10 + 7)) = "MimeType = " _
+ myEncoders(i).MimeType
myEncoderInfo((i * 10 + 8)) = "Version = " _
+ myEncoders(i).Version.ToString()
myEncoderInfo((i * 10 + 9)) = " "
Next i
Dim numMyEncoderInfo As Integer = myEncoderInfo.GetLength(0)
' Render to the screen all the information.
Dim j As Integer = 20
For i = 0 To numMyEncoderInfo - 1
e.Graphics.DrawString(myEncoderInfo(i), font, _
New SolidBrush(foreColor), 20, j)
j += 12
Next i
Else
e.Graphics.DrawString("No Encoders Found", font, _
New SolidBrush(foreColor), 20, 20)
End If
End Sub示例2: MainClass
' 导入命名空间
Imports System.Drawing.Imaging
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class MainClass
public Shared Sub Main
Dim imgCodecInfo As ImageCodecInfo = Nothing
Dim curBitmap As New Bitmap("yourfile.jpg")
Dim j As Integer
Dim mimeType As String = "image/png"
Dim encoders() As ImageCodecInfo
encoders = ImageCodecInfo.GetImageEncoders()
j = 0
While j < encoders.Length
If encoders(j).MimeType = mimeType Then
imgCodecInfo = encoders(j)
End If
End While ' Save as png
curBitmap.Save("Shape0.png", imgCodecInfo, Nothing)
curBitmap.Dispose()
End Sub
End class