使用RadioButton

实例一

添加RadioButton的参考代码如下，可在命令窗口测试执行：

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 rdb As New PDF.PdfRadioButton() '新建单选框
pdc.AddField(rdb, rectBox) '用AddField方法将单选框添加到文档中
pdc.DrawString("Intenet Explorer", fnt, color.Black, New Point(rectbox.Right + 2, rectbox.Top - 3))
rectBox.Offset(0, fnt.Size + 10)
rdb = New PDF.PdfRadioButton()
rdb.Checked = True '默认选中
pdc.AddField(rdb, rectBox)
pdc.DrawString("Google Chorme", fnt, color.Black, New Point(rectbox.Right + 2, rectbox.Top - 3))
rectBox.Offset(0, fnt.Size + 10)
rdb = New PDF.PdfRadioButton()
pdc.AddField(rdb, rectBox)
pdc.DrawString("FireFox", fnt, color.Black, New Point(rectbox.Right + 2, rectbox.Top - 3))
pdc.Save(file)
Process.Start(file)

添加的RadioButton如下：

示例二

如果要添加多组RadioButton，参考代码如下：

Dim file As String = "c:\temp\test.pdf"
Dim pdc As New PDFCreator()
Dim rect As RectangleF = pdc.PageRectangle
rect.Inflate( - 72, - 72)
'用于添加RadioButton的lambda过程，tCaption为标题，tGRoup为分组名，tChecked为默认是否选中
Dim CreateRadioButton =
Sub(tCaption As String, tFont As Font, tGroup As String, tRect As RectangleF, tChecked As Boolean)
    Dim rectBox As New RectangleF(tRect.Left, tRect.Top, tFont.Size, tFont.Size) '单选框的大小设置为字体大小
    Dim rdb As New PDF.PdfRadioButton() '新建单选框
    rdb.Name = tGroup '指定分组
    rdb.Checked = tChecked '默认是否选中
    pdc.AddField(rdb, rectBox)
    pdc.DrawString(tCaption, tFont, color.Black, New Point(rectbox.Right + 2, rectbox.Top - 3)) '绘制标题文本
End Sub
Dim fnt As New Font("微软雅黑", 12)
pdc.DrawString("浏览器:", fnt, color.Black, rect)
rect.Offset(0, 30)
CreateRadioButton.Invoke("Intenet Explorer", fnt, "第一组", rect, False)
rect.Offset(0, 25)
CreateRadioButton.Invoke("Google Chorme", fnt, "第一组", rect, True)
rect.Offset(0, 25)
CreateRadioButton.Invoke("FireFox", fnt, "第一组", rect, False)
rect.Offset(0, 30)
pdc.DrawString("学历:", fnt, color.Black, rect)
rect.Offset(0, 30)
CreateRadioButton.Invoke("硕士", fnt, "第二组", rect, False)
rect.Offset(0, 25)
CreateRadioButton.Invoke("本科", fnt, "第二组", rect, False)
rect.Offset(0, 25)
CreateRadioButton.Invoke("大专", fnt, "第二组", rect, True)
pdc.Save(file)
Process.Start(file)

生成的文档如下：