ControlCollection.AddCheckBox 方法 (Range, Single, Single, String) (2007 system)

更新:2007 年 11 月

按照指定的大小和位置向文档中添加一个新的 CheckBox 控件。

命名空间:  Microsoft.Office.Tools.Word
程序集:  Microsoft.Office.Tools.Word.v9.0(在 Microsoft.Office.Tools.Word.v9.0.dll 中)

语法

声明
Public Function AddCheckBox ( _
    range As Range, _
    width As Single, _
    height As Single, _
    name As String _
) As CheckBox
用法
Dim instance As ControlCollection
Dim range As Range
Dim width As Single
Dim height As Single
Dim name As String
Dim returnValue As CheckBox

returnValue = instance.AddCheckBox(range, _
    width, height, name)
public CheckBox AddCheckBox(
    Range range,
    float width,
    float height,
    string name
)

参数

  • width
    类型:System.Single

    控件的宽度(以磅为单位)。

  • height
    类型:System.Single

    控件的高度(以磅为单位)。

返回值

类型:Microsoft.Office.Tools.Word.Controls.CheckBox

添加到 ControlCollection 实例的 CheckBox 控件。

异常

异常 条件
ArgumentNullException

name 或 range 参数为 nullnull 引用(在 Visual Basic 中为 Nothing),或者 name 参数长度为零。

ControlNameAlreadyExistsException

ControlCollection 实例中已存在一个同名控件。

InvalidRangeException

指定的范围无效。

备注

此方法使您能够将 CheckBox 对象添加到 ControlCollection 的末尾。

若要移除通过编程方式添加的 CheckBox,请使用 Remove 方法。

示例

下面的代码示例向文档的第一个段落添加一个 CheckBox 控件,然后向该复选框添加文本。

Private Sub WordRangeAddCheckBox()
    Me.Paragraphs(1).Range.InsertParagraphBefore()
    Dim CheckBox1 As Microsoft.Office.Tools.Word.Controls. _
        CheckBox = Me.Controls.AddCheckBox(Me.Paragraphs(1). _
        Range, 78, 18, "CheckBox1")
    CheckBox1.Text = "Underline"

End Sub 

private void WordRangeAddCheckBox()
{
    this.Paragraphs[1].Range.InsertParagraphBefore();
    Microsoft.Office.Tools.Word.Controls.CheckBox checkBox1 =
        this.Controls.AddCheckBox(this.Paragraphs[1].Range,
        78, 18, "checkBox1");
    checkBox1.Text = "Underline";
}

权限

另请参见

参考

ControlCollection 类

ControlCollection 成员

AddCheckBox 重载

Microsoft.Office.Tools.Word 命名空间