使用超链接
请先打开CaseStyudy目录下的文件"PDFCreator示例.Table"再运行本节的示例代码。
Addlink方法用于增加超链接，其语法为：
Addlink(url, rect)
Addlink(url, page, rect)
| 参数 | 说明 |
| url | 链接地址，可以使网址、文件、或者本地目标。 |
| rect | RectangleF类型，指定超链接所在矩形区域 |
| page | 整数型，使用本地连接时，用该参数指定链接目标所在的页面，如不指定，则表示本页。 |
示例一
Dim
file
As
String
=
"c:\temp\test.pdf"
Dim
pdc
As
New
PDFCreator()
Dim
fnt
As
New
Font("微软雅黑",
12)
Dim
rect
As
RectangleF = pdc.PageRectangle()
rect.Inflate( - 72, - 72)
'添加网址链接
Dim
url
As
String
=
"http://www.foxtable.com/"
pdc.DrawString("请单击下面的链接访问Foxtale官方网站：",
fnt, color.Black, rect)
rect.Offset(0, 25)
'下移一行
rect.Width = pdc.MeasureString(url, fnt).Width
'计算链接字符串宽度
pdc.DrawString(url, fnt, color.Blue, rect)
'绘制链接字符串
pdc.AddLink(URL, rect)
'增加超链接，rect参数和绘制链接字符串的相同
'添加本地文件链接
rect.Width = pdc.PageRectangle.Width
'rect的宽度重新设置为页面宽度
url = ProjectPath &
"flow.txt"
'本地文件路径
Dim
fileName
As
String
= FileSys.GetName(url)
'获得文件名
rect.Offset(0, 25)
pdc.DrawString("下面是一个本地文本文件，单击可以打开：",
fnt, color.Black, rect)
rect.Offset(0, 25)
rect.Width = pdc.MeasureString(fileName, fnt).Width
'计算文件名宽度
pdc.DrawString(fileName, fnt, color.Blue, rect)
'绘制文件名
pdc.AddLink(URL, rect)
'增加超链接，rect参数和绘制文件名的参数相同
pdc.Save(file)
Process.Start(file)
生成的文档：
示例二
直接用HTML生成超链接也比较方便，特别是链接文字和普通文字混合在一起的时候，例如：
Dim
file
As
String
=
"c:\temp\test.pdf"
Dim
pdc
As
New
PDFCreator()
Dim
fnt
As
New
Font("微软雅黑",
12)
Dim
rect
As
RectangleF = pdc.PageRectangle()
rect.Inflate( - 72, - 72)
Dim
html
As
String
=
"<p>请<a
href='http://www.foxtable.com/'>单击此处</a>打开Foxtable官方网站</p>"
pdc.DrawStringHtml(html, fnt, Brushes.Black, rect)
'注意这里用的是DrawStringHtml
pdc.Save(file)
Process.Start(file)
生成的文档：
