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

Question

我有一组积分。我知道如何在面板中绘制多边形但是现在我不知道怎么把它做成图片

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

我怎样才能让它成为一个图像？可能吗？

Answer 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)

Answer 2

假设您希望图像来自您一直在其上绘制的面板，那么您可以使用 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")

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

convert group of points to create an image vb.net

vb.net

image

picturebox

system.drawing