增加CheckBox

增加CheckBox的参考代如下，可在命令窗口测试执行：

Dim file As String = "c:\temp\test.pdf"
Dim pdc As New PDFCreator()
Dim fnt As New Font("微软雅黑", 12)
Dim rectBox As New RectangleF(72, 72, fnt.Size, fnt.Size) '复选框的大小设置为字体大小
Dim chk As New PDF.PdfCheckBox() '新建复选框
pdc.AddField(chk, rectBox) '用AddField方法将复选框添加到文档中
pdc.DrawString("Intenet Explorer", fnt, color.Black, New Point(rectbox.Right + 2, rectbox.Top - 3))
rectBox.Offset(0, fnt.Size + 10)
chk = New PDF.PdfCheckBox()
chk.Checked = True '默认选中
pdc.AddField(chk, rectBox)
pdc.DrawString("Google Chorme", fnt, color.Black, New Point(rectbox.Right + 2, rectbox.Top - 3))
rectBox.Offset(0, fnt.Size + 10)
chk = New PDF.PdfCheckBox()
pdc.AddField(chk, rectBox)
pdc.DrawString("FireFox", fnt, color.Black, New Point(rectbox.Right + 2, rectbox.Top - 3))
pdc.Save(file)
Process.Start(file)

添加的CheckBox如下：