我有一组积分。 我知道如何在面板中绘制多边形 但现在我不知道如何把它变成一个图像。
尝试谷歌搜索但我找不到答案
我怎样才能成为一张图片? 有可能吗?
答案 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")