SelectPdf for .NET - Graphic Pdf Elements - VB.NET / ASP.NET Sample

This sample shows how to create a new PDF document using SelectPdf, how to add several graphic elements (like line, rectangle, circle, ellipsis, etc) to it.


Sample Code Vb.Net



Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports SelectPdf

Namespace SelectPdf.Samples
    Partial Public Class graphic_elements
        Inherits System.Web.UI.Page

        Protected Sub BtnCreatePdf_Click(sender As Object, e As EventArgs)
            ' create a new pdf document
            Dim doc As New PdfDocument()

            ' add a new page to the document
            Dim page As PdfPage = doc.AddPage()

            ' define a rendering result object
            Dim result As PdfRenderingResult

            ' simple horizontal line element
            Dim line1 As New PdfLineElement(0, 0, 400, 0)
            line1.LineStyle.LineWidth = 3
            result = page.Add(line1)

            ' horizontal dotted red line element
            Dim line2 As New PdfLineElement(0, 30, 400, 30)
            line2.ForeColor = System.Drawing.Color.Red
            line2.LineStyle.LineWidth = 2
            line2.LineStyle.LineDashStyle = PdfLineDashStyle.Dot
            result = page.Add(line2)

            ' horizontal dashed blue line element with complex styles
            Dim line3 As New PdfLineElement(0, 60, 400, 60)
            line3.ForeColor = System.Drawing.Color.Blue
            line3.LineStyle.LineWidth = 2
            line3.LineStyle.LineDashStyle = PdfLineDashStyle.Dash
            line3.LineStyle.LineCapStyle = PdfLineCapStyle.RoundCap
            line3.LineStyle.LineJoinStyle = PdfLineJoinStyle.RoundJoin
            result = page.Add(line3)

            ' simple rectangle
            Dim rect1 As New PdfRectangleElement(0, 90, 400, 100)
            result = page.Add(rect1)

            ' simple circle
            Dim circ1 As New PdfCircleElement(50, 250, 50)
            circ1.ForeColor = System.Drawing.Color.Green
            result = page.Add(circ1)

            ' ellipse filled with gradient background color
            Dim elli1 As New PdfEllipseElement(300, 250, 100, 50)
            elli1.ForeColor = System.Drawing.Color.Brown
            elli1.Gradient = New PdfGradient(PdfGradientDirection.ForwardDiagonal, _
                System.Drawing.Color.LightBlue, System.Drawing.Color.DarkBlue)
            elli1.LineStyle.LineWidth = 2
            result = page.Add(elli1)

            ' bezier curve
            Dim bez1 As New PdfBezierCurveElement(50, 350, 100, 400, 200, 350, _
                250, 370)
            result = page.Add(bez1)

            ' save pdf document
            doc.Save(Response, False, "Sample.pdf")

            ' close pdf document
            doc.Close()
        End Sub
    End Class
End Namespace