VB.Net Tutorial/2D Graphics/Gif
Версия от 19:40, 26 мая 2010; (обсуждение)
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>