将用户表格中的图表保存为图片

时间:2018-01-29 12:26:59

标签: vb.net charts screenshot userform

这个问题的一部分涉及与下面的问题相反:

VB.net get location of userControl in another container

无论我做什么,我似乎都无法确定我的图表在用户形态(D中的D)内的位置,因此我保存的内容与单独的图表截然不同。

所以,只要我的userform就像这样: myUserform

我需要保存D的截图,D是带有标题和图例的极坐标图。

我的代码是:

    Dim PicFile As String = FilesFolder & "Pic.png"
    Dim myBounds As Rectangle = A.D.Bounds
    Dim BitMap As New Bitmap(myBounds.Width, myBounds.Height)
    Dim PtChart As Point

    PtChart = A.PointToScreen(New Point(0, 0))
    PtChart = A.D.PointToClient(PtChart)
    Using g As Graphics = Graphics.FromImage(BitMap)
        g.CopyFromScreen(PtChart, Point.Empty, myBounds.Size)
    End Using
    BitMap.Save(PicFile, System.Drawing.Imaging.ImageFormat.Png)

为什么这不能正确保存图表(D)?

奖励:即使我在用户表单上打开另一个应用程序(例如,互联网浏览器),我怎样才能使它工作?

0 个答案:

没有答案