演练：使用 CheckBox 控件更改工作表格式设置

项目
08/12/2011

此演练演示在 Microsoft Office Excel 工作表中使用复选框更改格式设置的基本操作。您将使用 Visual Studio 中的 Office 开发工具创建代码并将代码添加到您的项目中。若要查看完整示例，请参见 Office 开发示例和演练中的 Excel 控件示例。

**适用于：**本主题中的信息适用于 Excel 2007 和 Excel 2010 的文档级项目。有关更多信息，请参见按 Office 应用程序和项目类型提供的功能。

通过本演练，您将学会如何执行以下任务：

将文本和控件添加到工作表。
选择选项时设置文本的格式。
测试项目。

提示

以下说明中的某些 Visual Studio 用户界面元素在计算机上出现的名称或位置可能会不同。您安装的 Visual Studio 版本以及使用的设置决定了这些元素。有关更多信息，请参见使用设置。

系统必备

您需要以下组件来完成本演练：

Visual Studio 2010 的一个版本，其中包含 Microsoft Office 开发工具。有关更多信息，请参见[将计算机配置为开发 Office 解决方案](bb398242\(v=vs.100\).md)。

Microsoft Office Excel 2007 或 Excel 2010。

创建项目

在此步骤中，您将使用 Visual Studio 创建一个 Excel 工作簿项目。

创建新项目

创建一个名为“我的 Excel 格式设置”的 Excel 工作簿项目。确保已选择**“创建新文档”**。有关更多信息，请参见如何：在 Visual Studio 中创建 Office 项目。

Visual Studio 在设计器中打开新的 Excel 工作簿，并将**“我的 Excel 格式设置”项目添加到“解决方案资源管理器”**中。

将文本和控件添加到工作表

在此演练中，将需要三个 CheckBox 控件以及 NamedRange 控件中的一些文本。

添加三个复选框

验证工作簿是否已在 Visual Studio 设计器中打开且打开了 Sheet1。
从**“工具箱”的“公共控件”选项卡上，将 CheckBox 控件拖动到“Sheet1”的单元格“B2”**中或其附近。
从**“视图”菜单中选择“属性窗口”**。
确保**“Checkbox1”在“属性窗口”**的对象名称列表框中可见，然后更改以下属性：

Property

值

名称

applyBoldFont

Text

粗体
将第二个复选框拖动到单元格**“B4”**中或其附近，然后更改以下属性：

Property

值

名称

applyItalicFont

Text

斜体
将第三个复选框拖动到单元格**“B6”**中或其附近，然后更改以下属性：

Property

值

名称

applyUnderlineFont

Text

Underline
按住“Ctrl”键，将三个复选框控件全部选中。
在 Excel 工具栏上单击**“左对齐”，再单击“使垂直间距相等”**。

现在，三个复选框控件的垂直间距相等，并且以所选的第一个控件的位置为准左对齐。

接下来，您要将 NamedRange 控件拖动到工作表中。

提示

还可以通过在“名称”框中键入 textFont 添加 NamedRange 控件。

Property	值
名称	applyBoldFont
Text	粗体

Property	值
名称	applyItalicFont
Text	斜体

Property	值
名称	applyUnderlineFont
Text	Underline

将文本添加到 NamedRange 控件

从工具箱的**“Excel 控件”选项卡中将 NamedRange 控件拖动到单元格“B9”**。
验证**“$B$9”是否出现在可编辑的文本框中，并且单元格“B9”被选中。如果不是这样，请单击单元格“B9”**将其选中。
单击**“确定”**。
单元格**“B9”**变为名为 NamedRange1 的范围。

工作表上没有可见的指示，但是当单元格**“B9”被选中时，NamedRange1 将出现在“名称框”**（就在工作表左侧的上方）中。
确保**“NamedRange1”在“属性”**窗口的对象名称列表框中可见，然后更改以下属性：

Property

值

名称

textFont

Value2

单击一个复选框以更改此文本的格式设置。

Property	值
名称	textFont
Value2	单击一个复选框以更改此文本的格式设置。

然后，编写代码来在选中某一选项时设置文本的格式。

选中选项时设置文本的格式

在本节中，您将编写代码，以使用户选择某个格式设置选项时工作表中文本的格式会发生变化。

选中复选框时更改格式设置

右击**“Sheet1”，再单击快捷菜单上的“查看代码”**。

将以下代码添加到 applyBoldFont 复选框的 Click 事件处理程序中：

Private Sub applyBoldFont_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles applyBoldFont.Click

    Me.textFont.Font.Bold = Me.applyBoldFont.Checked
End Sub

private void applyBoldFont_Click(object sender, EventArgs e)
{
    this.textFont.Font.Bold = this.applyBoldFont.Checked;
}

将以下代码添加到 applyItalicFont 复选框的 Click 事件处理程序中：

Private Sub applyItalicFont_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles applyItalicFont.Click

    Me.textFont.Font.Italic = Me.applyItalicFont.Checked
End Sub

private void applyItalicFont_Click(object sender, EventArgs e)
{
    this.textFont.Font.Italic = this.applyItalicFont.Checked;
}

将以下代码添加到 applyUnderlineFont 复选框的 Click 事件处理程序中：

Private Sub applyUnderlineFont_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles applyUnderlineFont.Click

    If Me.applyUnderlineFont.Checked Then
        Me.textFont.Font.Underline = Excel.XlUnderlineStyle.xlUnderlineStyleSingle
    Else
        Me.textFont.Font.Underline = Excel.XlUnderlineStyle.xlUnderlineStyleNone
    End If
End Sub

private void applyUnderlineFont_Click(object sender, EventArgs e)
{
    if (this.applyUnderlineFont.Checked == true)
    {
        this.textFont.Font.Underline = Excel.XlUnderlineStyle.xlUnderlineStyleSingle;
    }
    else
    {
        this.textFont.Font.Underline = Excel.XlUnderlineStyle.xlUnderlineStyleNone;
    }
}

在 C# 中，必须为复选框添加 Startup 事件的事件处理程序，如下所示。有关创建事件处理程序的信息，请参见如何：在 Office 项目中创建事件处理程序。

this.applyBoldFont.Click += new EventHandler(applyBoldFont_Click);
this.applyItalicFont.Click += new EventHandler(applyItalicFont_Click);
this.applyUnderlineFont.Click += new EventHandler(applyUnderlineFont_Click);

测试应用程序

现在可以对工作簿进行测试，以确保在选择或清除一个复选框时正确设置文本的格式。

测试工作簿

按 F5 运行项目。
选择或清除复选框。
确认文本的格式设置正确。

后续步骤

此演练演示在 Excel 工作表中使用复选框和设置文本格式的基本操作。下一步可能要执行以下几项任务：

部署项目。有关更多信息，请参见部署概述（Visual Studio 中的 Office 开发）。
使用按钮填充文本框。有关更多信息，请参见演练：使用按钮在工作表的文本框中显示文本。

请参见

概念

使用 Excel 的演练

NamedRange 控件

Office 文档上的 Windows 窗体控件的限制

通过