这篇文章将介绍如何使用Spire.PDF在PDF文档中绘制上标和下标文本。

绘制上标

//创建PdfDocument实例
PdfDocument pdf = new PdfDocument();

//添加一个页面
PdfPageBase page = pdf.Pages.Add();

//设置x，y坐标初始值
float x = 0;
float y = 50;

//设置字体
PdfTrueTypeFont font = new PdfTrueTypeFont(new Font("宋体", 11f), true);

//绘制文本
string text = "示例文本";
page.Canvas.DrawString(text, font, PdfBrushes.Black, new PointF(x,y));

//计算文本的尺寸
SizeF size = font.MeasureString(text);

//设置上标的X坐标
x += size.Width;

//创建PdfStringFormat实例
PdfStringFormat format = new PdfStringFormat();
//设置格式为上标
format.SubSuperScript = PdfSubSuperScript.SuperScript;

//绘制上标
text = "上标";
page.Canvas.DrawString(text, font, PdfBrushes.Black, new PointF(x,y), format);

//保存文档
pdf.SaveToFile("SuperScript.pdf");

'创建PdfDocument实例
Dim pdf As New PdfDocument()

'添加一个页面
Dim page As PdfPageBase = pdf.Pages.Add()

'设置x，y坐标初始值
Dim x As Single = 0
Dim y As Single = 50

'设置字体
Dim font As New PdfTrueTypeFont(New Font("宋体", 11F), True)

'绘制文本
Dim text As String = "示例文本"
page.Canvas.DrawString(text, font, PdfBrushes.Black, New PointF(x, y))

'计算文本的尺寸
Dim size As SizeF = font.MeasureString(text)

'设置上标的X坐标
x += size.Width

'创建PdfStringFormat实例
Dim format As New PdfStringFormat()
'设置格式为上标
format.SubSuperScript = PdfSubSuperScript.SuperScript

'绘制上标
text = "上标"
page.Canvas.DrawString(text, font, PdfBrushes.Black, New PointF(x, y), format)

'保存文档
pdf.SaveToFile("SuperScript.pdf")

绘制下标

//创建PdfDocument实例
PdfDocument pdf = new PdfDocument();

//添加一个页面
PdfPageBase page = pdf.Pages.Add();

//设置x，y坐标初始值
float x = 0;
float y = 50;

//设置字体
PdfTrueTypeFont font = new PdfTrueTypeFont(new Font("宋体", 11f), true);

//绘制文本
string text = "示例文本";
page.Canvas.DrawString(text, font, PdfBrushes.Black, new PointF(x, y));

//计算文本的尺寸
SizeF size = font.MeasureString(text);

//设置下标的X坐标
x += size.Width;

//创建PdfStringFormat实例
PdfStringFormat format = new PdfStringFormat();
//设置格式为下标
format.SubSuperScript = PdfSubSuperScript.SubScript;

//绘制下标
text = "下标";
page.Canvas.DrawString(text, font, PdfBrushes.Black, new PointF(x, y), format);

//保存文档
pdf.SaveToFile("SubScript.pdf");

'创建PdfDocument实例
Dim pdf As New PdfDocument()

'添加一个页面
Dim page As PdfPageBase = pdf.Pages.Add()

'设置x，y坐标初始值
Dim x As Single = 0
Dim y As Single = 50

'设置字体
Dim font As New PdfTrueTypeFont(New Font("宋体", 11F), True)

'绘制文本
Dim text As String = "示例文本"
page.Canvas.DrawString(text, font, PdfBrushes.Black, New PointF(x, y))

'计算文本的尺寸
Dim size As SizeF = font.MeasureString(text)

'设置下标的X坐标
x += size.Width

'创建PdfStringFormat实例
Dim format As New PdfStringFormat()
'设置格式为下标
format.SubSuperScript = PdfSubSuperScript.SubScript

'绘制下标
text = "下标"
page.Canvas.DrawString(text, font, PdfBrushes.Black, New PointF(x, y), format)

'保存文档
pdf.SaveToFile("SubScript.pdf")