Tuesday, 21 February 2012 06:35
PDF Page Lable in Silverlight
The sample demonstrates how to set PDF Page Label in Silverlight.

<Application xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="PageLabel.App">
<Application.Resources>
</Application.Resources>
</Application>
using System;
using System.Windows;
namespace PageLabel
{
public partial class App : Application
{
public App()
{
this.Startup += this.Application_Startup;
this.Exit += this.Application_Exit;
this.UnhandledException += this.Application_UnhandledException;
InitializeComponent();
}
private void Application_Startup(object sender, StartupEventArgs e)
{
this.RootVisual = new MainPage();
}
private void Application_Exit(object sender, EventArgs e)
{
}
private void Application_UnhandledException(object sender, ApplicationUnhandledExceptionEventArgs e)
{
// If the app is running outside of the debugger then report the exception using
// the browser's exception mechanism. On IE this will display it a yellow alert
// icon in the status bar and Firefox will display a script error.
if (!System.Diagnostics.Debugger.IsAttached)
{
// NOTE: This will allow the application to continue running after an exception has been thrown
// but not handled.
// For production applications this error handling should be replaced with something that will
// report the error to the website and stop the application.
e.Handled = true;
Deployment.Current.Dispatcher.BeginInvoke(delegate { ReportErrorToDOM(e); });
}
}
private void ReportErrorToDOM(ApplicationUnhandledExceptionEventArgs e)
{
try
{
string errorMsg = e.ExceptionObject.Message + e.ExceptionObject.StackTrace;
errorMsg = errorMsg.Replace('"', '\'').Replace("\r\n", @"\n");
System.Windows.Browser.HtmlPage.Window.Eval("throw new Error(\"Unhandled Error in Silverlight Application " + errorMsg + "\");");
}
catch (Exception)
{
}
}
}
}
Imports System.Net
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Animation
Imports System.Windows.Shapes
Namespace PageLabel
Partial Public Class App
Inherits Application
Public Sub New()
AddHandler Me.Startup, AddressOf Application_Startup
AddHandler Me.Exit, AddressOf Application_Exit
AddHandler Me.UnhandledException, AddressOf Application_UnhandledException
InitializeComponent()
End Sub
Private Sub Application_Startup(ByVal sender As Object, ByVal e As StartupEventArgs)
Me.RootVisual = New MainPage()
End Sub
Private Sub Application_Exit(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Private Sub Application_UnhandledException(ByVal sender As Object, ByVal e As ApplicationUnhandledExceptionEventArgs)
' If the app is running outside of the debugger then report the exception using
' the browser's exception mechanism. On IE this will display it a yellow alert
' icon in the status bar and Firefox will display a script error.
If Not Debugger.IsAttached Then
' NOTE: This will allow the application to continue running after an exception has been thrown
' but not handled.
' For production applications this error handling should be replaced with something that will
' report the error to the website and stop the application.
e.Handled = True
Deployment.Current.Dispatcher.BeginInvoke(Sub() ReportErrorToDOM(e))
End If
End Sub
Private Sub ReportErrorToDOM(ByVal e As ApplicationUnhandledExceptionEventArgs)
Try
Dim errorMsg As String = e.ExceptionObject.Message + e.ExceptionObject.StackTrace
errorMsg = errorMsg.Replace(""""c, "'"c).Replace(vbCrLf, vbLf)
System.Windows.Browser.HtmlPage.Window.Eval("throw new Error(""Unhandled Error in Silverlight Application " & errorMsg & """);")
Catch e1 As Exception
End Try
End Sub
End Class
End Namespace
<UserControl x:Class="PageLabel.MainPage"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
mc:Ignorable="d"
d:DesignHeight="300" d:DesignWidth="400">
<Grid x:Name="LayoutRoot" Background="White" Loaded="LayoutRoot_Loaded">
<Button Content="Run" Height="23" HorizontalAlignment="Left" Margin="288,258,0,0" Name="button1" VerticalAlignment="Top" Width="75" Click="button1_Click" />
</Grid>
</UserControl>
using System.Windows;
using System.Windows.Controls;
using System.IO;
using System.Reflection;
using Spire.Pdf;
using Spire.Pdf.Graphics;
namespace PageLabel
{
public partial class MainPage : UserControl
{
//create a saveFileDialog to save the PDF file
private SaveFileDialog saveFileDialog = null;
//create a pdf document
private PdfDocument pdfDoc = new PdfDocument();
private string text = "This is the first page";
public MainPage()
{
InitializeComponent();
//initialize the saveFileDialog
this.saveFileDialog = new SaveFileDialog();
this.saveFileDialog.Filter = "PDF Document (*.pdf)|*.pdf";
}
private void LayoutRoot_Loaded(object sender, RoutedEventArgs e)
{
}
private void button1_Click(object sender, RoutedEventArgs e)
{
//create a margin
PdfMargins margin = new PdfMargins(62f, 50.8f, 62f, 50.8f);
//add one section to the PDF file
PdfSection section = this.pdfDoc.Sections.Add();
//draw the label and text of the first page
DrawTextandLabel(section, margin);
////draw the label and text of the second page
this.text = "This is the second page";
DrawTextandLabel(section, margin);
//draw the label and text of the third page
this.text = "This is the third page";
DrawTextandLabel(section, margin);
//save the PDF file
bool? result = this.saveFileDialog.ShowDialog();
if (result.HasValue && result.Value)
{
using (Stream stream = this.saveFileDialog.OpenFile())
{
this.pdfDoc.SaveToStream(stream);
}
}
}
private void DrawTextandLabel(PdfSection section, PdfMargins margin)
{
//set the label of the PDF file
section.PageNumber = new PdfPageNumber();
section.PageNumber.NumberStyle = PdfNumberStyle.Numeric;
section.PageNumber.Prefix = "page ";
section.PageSettings.Size = PdfPageSize.A4;
section.PageSettings.Margins.All = 0;
//draw the content
PdfPageBase page = section.Pages.Add();
float x = margin.Left;
float y = margin.Top + 8;
float width = page.Canvas.ClientSize.Width - margin.Left - margin.Right;
PdfFont font1 = new PdfFont(PdfFontFamily.Courier, 16f);
PdfBrush brush1 = PdfBrushes.Black;
PdfPen pen1 = new PdfPen(brush1, 0.75f);
PdfStringFormat format = new PdfStringFormat();
format.MeasureTrailingSpaces = true;
page.Canvas.DrawString(this.text, font1, brush1, x, y, format);
}
}
}
Imports System.Windows Imports System.Windows.Controls Imports System.IO Imports System.Reflection Imports Spire.Pdf Imports Spire.Pdf.Graphics Namespace PageLabel Partial Public Class MainPage Inherits UserControl 'create a saveFileDialog to save the PDF file Private saveFileDialog As SaveFileDialog = Nothing 'create a pdf document Private pdfDoc As New PdfDocument() Private text As String = "This is the first page" Public Sub New() InitializeComponent() 'initialize the saveFileDialog Me.saveFileDialog = New SaveFileDialog() Me.saveFileDialog.Filter = "PDF Document (*.pdf)|*.pdf" End Sub Private Sub LayoutRoot_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs) End Sub Private Sub button1_Click(ByVal sender As Object, ByVal e As RoutedEventArgs) 'create a margin Dim margin As New PdfMargins(62f, 50.8f, 62f, 50.8f) 'add one section to the PDF file Dim section As PdfSection = Me.pdfDoc.Sections.Add() 'draw the label and text of the first page DrawTextandLabel(section, margin) '//draw the label and text of the second page Me.text = "This is the second page" DrawTextandLabel(section, margin) 'draw the label and text of the third page Me.text = "This is the third page" DrawTextandLabel(section, margin) 'save the PDF file Dim result? As Boolean = Me.saveFileDialog.ShowDialog() If result.HasValue AndAlso result.Value Then Using stream As Stream = Me.saveFileDialog.OpenFile() Me.pdfDoc.SaveToStream(stream) End Using End If End Sub Private Sub DrawTextandLabel(ByVal section As PdfSection, ByVal margin As PdfMargins) 'set the label of the PDF file section.PageNumber = New PdfPageNumber() section.PageNumber.NumberStyle = PdfNumberStyle.Numeric section.PageNumber.Prefix = "page " section.PageSettings.Size = PdfPageSize.A4 section.PageSettings.Margins.All = 0 'draw the content Dim page As PdfPageBase = section.Pages.Add() Dim x As Single = margin.Left Dim y As Single = margin.Top + 8 Dim width As Single = page.Canvas.ClientSize.Width - margin.Left - margin.Right Dim font1 As New PdfFont(PdfFontFamily.Courier, 16f) Dim brush1 As PdfBrush = PdfBrushes.Black Dim pen1 As New PdfPen(brush1, 0.75f) Dim format As New PdfStringFormat() format.MeasureTrailingSpaces = True page.Canvas.DrawString(Me.text, font1, brush1, x, y, format) End Sub End Class End Namespace
Published in
Page