VB.Net Tutorial/2D Graphics/Bmp

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

Create Bmp file

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.bmp", ImageFormat.Bmp)
   End Sub
End class