转换点组以创建图像vb.net

时间:2015-01-15 04:54:19

标签: vb.net image picturebox system.drawing

我有一组积分。 我知道如何在面板中绘制多边形 但现在我不知道如何把它变成一个图像。

尝试谷歌搜索但我找不到答案

我怎样才能成为一张图片? 有可能吗?

2 个答案:

答案 0 :(得分:1)

Dim points(5) As Point
points(0) = New Point(50, 10)
points(1) = New Point(90, 30)
points(2) = New Point(75, 70)
points(3) = New Point(25, 70)
points(4) = New Point(10, 30)
points(5) = New Point(50, 10)

Dim img As New Bitmap(100, 100)
Dim gfx As Graphics = Graphics.FromImage(img)
gfx.DrawLines(Pens.Black, points)
Dim strFilename As String = "C:\Junk\Junk.png"
img.Save(strFilename, System.Drawing.Imaging.ImageFormat.Png)
gfx.Dispose()
img.Dispose()
Process.Start(strFilename)

答案 1 :(得分:0)

假设您希望图像来自您正在绘制的面板,那么您可以使用DrawToBitmap:

Dim Bmp As New Bitmap(Panel1.Width, Panel1.Height)
Dim Clip As New Rectangle(New Point(0, 0), Panel1.Size)
Panel1.DrawToBitmap(Bmp, Clip)

然后,您可以在另一个面板中设置:

Panel2.BackgroundImage = Bmp

或保存:

Bmp.Save("MyPanel.bmp")