FlowLayoutPanel Export

Question

Я хотел бы иметь способ экспортировать графическое содержимое FlowLayoutPanel в файл (не важно, какой формат, bmp, вероятно, самый простой). Я также хотел бы прокрутить содержимое, чтобы экспортированный файл содержал все содержимое Panel.

Есть какой-либо способ сделать это? Я использую C# WinForms и Framework 4.

Answer 1

Попробуйте заглянуть в сериализацию XML

Вы можете сериализовать панель и сохранить XML. и загрузить XML и десериализовать его обратно в панель

Также проверьте это.

Чтобы сохранить как изображение, вы просто делаете это:

Bitmap image = new Bitmap(flowLayoutPanel1.Width, flowLayoutPanel1.Height);
flowLayoutPanel1.DrawToBitmap(image, new Rectangle(0, 0, flowLayoutPanel1.Width, flowLayoutPanel1.Height));
image.Save("SAVE PATH");

Answer 2

Хитрость заключается в том, чтобы временно установить flowLayoutPanel таким образом, чтобы он соответствовал всем элементам управления внутри, даже если он становится слишком большим для видимого экрана, а затем создайте DrawToBitmap, используя область flowLayoutPanel.clientRectangle, а не.Width и.Height.

В моем примере Outside_Splitter пристыкован к форме с двумя панелями, а fraAction является групповым блоком и является последним элементом управления на панели с вертикальной прокруткой.

Public Sub Print_Panel()


    Dim newHeight As Integer
    Dim pos As Point, oheight As Integer, owidth As Integer, xDock As DockStyle
    With Outside_Splitter ' This contains the two panel ...
        pos.X = .Left ' Store original position and size
        pos.Y = .Top
        oheight = .Height
        owidth = .Width
        xDock = .Dock ' get original dock set
        newHeight = FraAction.Top + FraAction.Height + 30 ' calculate new height based on position and size of the last control
        .Dock = DockStyle.None ' undock it
        .Height = newHeight ' set new height 
        .Refresh()
        .SetBounds(pos.X, pos.Y, owidth, newHeight) ' Set position and size, temporarily
        .Refresh()
    End With

    'Create Bitmap based on panel.ClientRectangle   
    Dim myBmp As New Bitmap(Painel_Detalhe_NC.ClientRectangle.Width, Painel_Detalhe_NC.ClientRectangle.Height) 

    'Paint the bitmap
    Painel_Detalhe_NC.DrawToBitmap(myBmp, Painel_Detalhe_NC.ClientRectangle) 

    'Create pdf
    Dim _pdf As New C1.C1Pdf.C1PdfDocument

    _pdf.Clear()
    _pdf.Landscape = False
    _pdf.PaperKind = PaperKind.A4


    Dim rec As New RectangleF ' Set 5% margin around the page 
    rec = _pdf.PageRectangle
    rec.X = 0.05 * rec.Width
    rec.Y = 0.05 * rec.Height
    rec.Width = 0.9 * _pdf.PageRectangle.Width
    rec.Height = 0.9 * _pdf.PageRectangle.Height


    _pdf.DrawImage(myBmp, rec) ' paint/resize bitmap to that size on the pdf

    'Save it and show it 
    _pdf.Save(My.Computer.FileSystem.SpecialDirectories.Temp & "\temp.pdf")
    Process.Start(My.Computer.FileSystem.SpecialDirectories.Temp & "\temp.pdf")

    myBmp.Dispose() ' Clear it

    With Outside_Splitter ' put it back to where it was
        .Left = pos.X
        .Top = pos.Y
        .Dock = xDock ' Back to filling the form
        .Refresh()

    End With
    End  Sub