Mega Code Archive

 

Categories / VB.Net / 2D Graphics

 

Save an Image to Wmf file format

Imports System Imports System.Windows.Forms Imports System.Collections.Generic Imports System.ComponentModel Imports System.Drawing.Imaging Imports System.Drawing Public Class MainClass    Shared Sub Main()         Dim bm As New Bitmap(256, 256)         ' Draw on it.         Dim gr As Graphics = Graphics.FromImage(bm)         gr.Clear(Color.White)         gr.DrawEllipse(Pens.Red, 0, 0, bm.Width - 1, bm.Height - 1)         gr.DrawLine(Pens.Green, 0, 0, bm.Width - 1, bm.Height - 1)         gr.DrawLine(Pens.Blue, bm.Width - 1, 0, 0, bm.Height - 1)         ' Save the result as a JPEG file.         bm.Save("test.wmf", ImageFormat.Wmf)    End Sub  End Class