文本颜色
如果同一段文本甚至同一行文本有多种颜色,用PDFCreator绘制很繁琐。
之前我们介绍了用RTF格式实现同一段落中多种文本颜色,其实用HTML实现更简单。
当然不单单是文本颜色,你可以使用任何HTML的格式控制符。
示例
Dim
txt
As
String
=
"这是<font
color='red'>关键红色单词</font>,这是<font
color='blue'>蓝色强调文本</font>,其他文字保持默认颜色"
Dim
file
As
String
=
"c:\temp\test.pdf"
Dim
pdc
As
New
PDFCreator()
Dim
sf
As
New
StringFormat()
Dim
rect
As
RectangleF = pdc.PageRectangle()
rect.Inflate( - 72, - 72)
Dim
fnt
As
New
Font("微软雅黑",
12)
pdc.DrawStringHTML(txt , fnt, Brushes.Black, rect)
pdc.Save(file)
Process.Start(file)
生成的文档为: