■■■

2016年4月3日日曜日

PictureBoxで線を描く方法

PictureBoxで線を描く方法
VB.NET
Dim canvas As New Bitmap(PictureBox1.Width, PictureBox1.Height)

Dim g As Graphics = Graphics.FromImage(canvas)

g.DrawLine(Pens.Black, 10, 20, 100, 200)

g.Dispose()

PictureBox1.Image = canvas
Dim canvas As New Bitmap(PictureBox1.Width, PictureBox1.Height)

Dim g As Graphics = Graphics.FromImage(canvas)

Dim ps As Point() = { _
New Point(0, 0), _
New Point(150, 50), _
New Point(80, 100), _
New Point(100, 150) _
}

g.DrawLines(Pens.Black, ps)

g.Dispose()

PictureBox1.Image = canvas
C#
Bitmap canvas = new Bitmap(PictureBox1.Width, PictureBox1.Height);

Graphics g = Graphics.FromImage(canvas);

g.DrawLine(Pens.Black, 10, 20, 100, 200);

g.Dispose();

PictureBox1.Image = canvas;
Bitmap canvas = new Bitmap(PictureBox1.Width, PictureBox1.Height);

Graphics g = Graphics.FromImage(canvas);

Point[] ps = {
new Point(0, 0),
new Point(150, 50),
new Point(80, 100),
new Point(100, 150)
};

g.DrawLines(Pens.Black, ps);

g.Dispose();

PictureBox1.Image = canvas;




■■■