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