Sub Page_Load( Source As Object, E As EventArgs )
Dim objPdf As PdfManager = New PdfManager()
Dim objDoc As PdfDocument = objPdf.CreateDocument()
Dim objPage As PdfPage = objDoc.Pages.Add()
' Create tiling pattern (type=1) based on an image. Set it as fill color
Dim objImage As PdfImage = objDoc.OpenImage(Server.MapPath("pattern.jpg"))
Dim objPattern As PdfGraphics = objDoc.CreatePattern("type=1, left=0, bottom=0, right=64, top=64", _
Nothing)
objPattern.Canvas.DrawImage(objImage, "x=0, y=0, scalex=0.1, scaley=0.1")
objPage.Canvas.SetFillColorEx(objPattern)
Dim objCanvas As PdfCanvas = objPage.Canvas
objCanvas.SetCTM(2, 0, 0, 2, 350, 350)
objCanvas.MoveTo(0, 0)
objCanvas.AddCurve(7.243F, 0.0F, 13.115F, -5.872F, 13.115F, -13.115F)
objCanvas.AddCurve(13.115F, -20.358F, 7.243F, -26.23F, 0.0F, -26.23F)
objCanvas.LineTo(-70.764F, -26.23F)
objCanvas.AddCurve(-85.201F, -26.23F, -98.321F, -20.331F, -107.822F, -10.83F)
objCanvas.AddCurve(-117.324F, -1.328F, -123.223F, 11.791F, -123.223F, 26.229F)
objCanvas.AddCurve(-123.223F, 55.038F, -99.572F, 78.688F, -70.764F, 78.688F)
objCanvas.LineTo(-41.599F, 78.688F)
objCanvas.AddCurve(-23.442F, 78.688F, -8.141F, 83.7F, -8.141F, 107.869F)
objCanvas.LineTo(62.296F, 107.87F)
objCanvas.AddCurve(53.559F, 53.31F, 5.894F, 52.458F, -24.853F, 52.458F)
objCanvas.LineTo(-70.764F, 52.458F)
objCanvas.AddCurve(-85.235F, 52.458F, -96.992F, 40.701F, -96.992F, 26.229F)
objCanvas.AddCurve(-96.992F, 19.03F, -94.037F, 12.473F, -89.278F, 7.714F)
objCanvas.AddCurve(-84.52F, 2.956F, -77.963F, 0.0F, -70.764F, 0)
objCanvas.ClosePath()
objCanvas.FillStroke()
' Create shading pattern (type=2) based on an axial shading with a red-to-blue gradient
Dim objColorSpace As PdfColorSpace = objDoc.CreateColorSpace("DeviceRGB") ' RGB color space
Dim objShading As PdfShading = objDoc.CreateShading("type=2, x0=85, y0=0, x1=460, y1=0, offset1=0, color1=red, offset2=1, color2=blue", _
Nothing, objColorSpace)
Dim objPattern2 As PdfGraphics = objDoc.CreatePattern("type=2, left=0, bottom=0, right=300, top=960", _
objShading)
objPage.Canvas.SetFillColorEx(objPattern2)
objCanvas.SetCTM(1, 0, 0, 1, -70.76F, 13.11F)
objCanvas.MoveTo(0, 0)
objCanvas.AddCurve(-7.243F, 0.0F, -13.115F, 5.872F, -13.115F, 13.115F)
objCanvas.AddCurve(-13.115F, 20.358F, -7.243F, 26.23F, 0.0F, 26.23F)
objCanvas.LineTo(70.763F, 26.23F)
objCanvas.AddCurve(85.202F, 26.23F, 98.322F, 20.332F, 107.822F, 10.831F)
objCanvas.AddCurve(117.324F, 1.329F, 123.222F, -11.792F, 123.222F, -26.229F)
objCanvas.AddCurve(123.222F, -55.039F, 99.573F, -78.688F, 70.763F, -78.688F)
objCanvas.LineTo(41.6F, -78.688F)
objCanvas.AddCurve(23.442F, -78.688F, 8.142F, -83.7F, 8.142F, -107.869F)
objCanvas.LineTo(-62.296F, -107.869F)
objCanvas.AddCurve(-53.559F, -53.309F, -5.894F, -52.458F, 24.854F, -52.458F)
objCanvas.LineTo(70.763F, -52.458F)
objCanvas.AddCurve(85.235F, -52.458F, 96.992F, -40.702F, 96.992F, -26.229F)
objCanvas.AddCurve(96.992F, -19.029F, 94.037F, -12.472F, 89.279F, -7.714F)
objCanvas.AddCurve(84.521F, -2.955F, 77.963F, 0.0F, 70.763F, 0)
objCanvas.ClosePath()
objCanvas.FillStroke()
Dim strFilename As String = objDoc.Save(Server.MapPath("pattern.pdf"), False)
lblResult.Text = "Success! Download your PDF file <A TARGET=_new HREF=" + strFilename + ">here</A>"
End Sub
|