VB.Net/2D/JPG

Материал из VB Эксперт
Версия от 15:42, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Save an Image to JPG 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.jpg", ImageFormat.Jpeg)
  End Sub 

End Class


      </source>