VB.Net/2D/PNG

Материал из VB Эксперт
Перейти к: навигация, поиск

Save an Image to PNG File

<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Collections.Generic Imports System.ruponentModel 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.PNG", ImageFormat.Png)
  End Sub 

End Class


      </source>