'''' This code is part of Document Solutions for PDF .NET demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.DrawingImports System.NumericsImports System.Collections.GenericImports System.LinqImports GrapeCity.Documents.TextImports GrapeCity.Documents.DrawingImports GrapeCity.Documents.PdfImports GrapeCity.Documents.Pdf.Graphics
'' This sample shows how to create FormXObject representing a page'' from a PDF loaded into a temporary GcPdfDocument, and render that'' object into the current document.Public Class PageFormXObject    Function CreatePDF(ByVal stream As Stream) As Integer        Dim doc = New GcPdfDocument()        Dim page = doc.NewPage()        Dim g = page.Graphics
        Dim rc = Util.AddNote(            "The thumbnails below are pages from an existing document. " +            "We load an arbitrary PDF into a temporary GcPdfDocument, " +            "then create a FormXObject representing each of its pages, " +            "and render those objects as thumbnails into the current document. " +            "To show that the same FormXObject can be used more than once, " +            "we also render each thumbnail a second time applying a mirror transform.",            page)
        '' Layout params:        Dim margin = rc.Left        Dim pad = 36        Dim side = (page.Size.Width - margin * 2 - pad) / 2        Dim ip = New PointF(margin, rc.Bottom + pad)        '' Mirror transform:        Dim tr = Matrix3x2.CreateScale(-1, 1) * Matrix3x2.CreateTranslation(page.Size.Width, 0)        '' Text format for the overlaid page captions:        Dim clr = Color.DarkRed        Dim tf = New TextFormat() With        {            .Font = StandardFonts.HelveticaBold,            .FontSize = 16,            .ForeColor = Color.FromArgb(128, clr)        }        '' Open an arbitrary PDF, load it into a temp document and loop over its pages,        '' drawing each into the current document:        Using fs = New FileStream(Path.Combine("Resources", "PDFs", "Wetlands.pdf"), FileMode.Open, FileAccess.Read)            Dim doc1 = New GcPdfDocument()            doc1.Load(fs)            '' Create a list of FormXObject for the pages of the loaded PDF:            Dim fxos = New List(Of FormXObject)()            doc1.Pages.ToList().ForEach(Sub(p_) fxos.Add(New FormXObject(doc, p_)))            '' Render the thumbnails into the current document:            For i = 0 To fxos.Count - 1                If (ip.Y + side > page.Size.Height - margin) Then                    page = doc.NewPage()                    g = page.Graphics                    ip = New PointF(margin, margin)                End If                Dim rcfx = New RectangleF(ip.X, ip.Y, side, side)                '' Draw direct:                g.DrawForm(fxos(i), rcfx, Nothing, ImageAlign.ScaleImage)                g.DrawRectangle(rcfx, clr)                g.DrawString($"Page {i + 1}", tf, rcfx, TextAlignment.Center, ParagraphAlignment.Center, False)                '' Draw reversed:                g.Transform = tr                g.DrawForm(fxos(i), rcfx, Nothing, ImageAlign.ScaleImage)                g.DrawRectangle(rcfx, clr)                g.Transform = Matrix3x2.Identity                rcfx.Offset(side + pad, 0)                g.DrawString($"Reversed page {i + 1}", tf, rcfx, TextAlignment.Center, ParagraphAlignment.Center, False)                ''                ip.Y += side + pad            Next        End Using        '' Done:        doc.Save(stream)        Return doc.Pages.Count    End FunctionEnd Class