VB.Net Tutorial/2D Graphics/Gif

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

Create Gif file

<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Imaging public class MainClass

  public Shared Sub Main
       Dim bm As New Bitmap(256, 256)
       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)
       bm.Save("test.gif", ImageFormat.Gif)
  End Sub

End class</source>