VB.Net Tutorial/2D Graphics/PNG
Convert jpeg to png
<source lang="vbnet">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</source>
PNG Encoder
<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms Imports System.Data Imports System.Drawing.Imaging 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 curBitmap.Save("yourfile.png", imgCodecInfo, Nothing) curBitmap.Dispose() End Sub
End class</source>