VB.Net Tutorial/2D Graphics/Gif — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 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>