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

更新：2007 年 11 月

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

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

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

• 选择选项时设置文本的格式。

• 测试项目。

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

先决条件

若要完成此演练，您需要：

• Visual Studio Tools for Office（Visual Studio 2008 专业版 和 Visual Studio Team System 的可选组件）。

• Microsoft Office Excel 2007 或 Microsoft Office Excel 2003。

创建项目

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

创建新项目

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

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

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

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

添加三个复选框

1. 验证工作簿是否已在 Visual Studio 设计器中打开且打开了 Sheet1。

2. 从“工具箱”的“公共控件”选项卡上，将 CheckBox 控件拖动到“Sheet1”的单元格“B2”中或其附近。

3. 从“视图”菜单中选择“属性”窗口。

4. 确保“Checkbox1”在“属性”窗口的对象名称列表框中可见，然后更改以下属性：

   属性	值
   Name	applyBoldFont
   Text	粗体

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

   属性	值
   Name	applyItalicFont
   Text	斜体

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

   属性	值
   Name	applyUnderlineFont
   Text	下划线

7. 按住“Ctrl”键，将三个复选框控件全部选中。

8. 在 Excel 工具栏上单击“左对齐”，再单击“使垂直间距相等”。

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

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

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

将文本添加到 NamedRange 控件

1. 从工具箱的“Excel 控件”选项卡中将 NamedRange 控件拖动到单元格“B9”。

2. 验证“$B$9”是否出现在可编辑的文本框中，并且单元格“B9”被选中。如果不是这样，请单击单元格“B9”将其选中。

3. 单击“确定”。

4. 单元格“B9”变为名为 NamedRange1 的范围。

   工作表上没有可见的指示，但是当单元格“B9”被选中时，NamedRange1 将出现在“名称框”（就在工作表左侧的上方）中。

5. 确保“NamedRange1”在“属性”窗口的对象名称列表框中可见，然后更改以下属性：

   属性	值
   Name	textFont
   Value2	单击一个复选框以更改此文本的格式设置。

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

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

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

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

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

2. 将以下代码添加到 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;
   }
   

3. 将以下代码添加到 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;
   }
   

4. 将以下代码添加到 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;
       }
   }
   

5. 在 C# 中，必须为复选框添加 Startup 事件的事件处理程序，如下所示。有关创建事件处理程序的信息，请参见如何：使用 Visual Studio Tools for Office 创建事件处理程序。

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

测试应用程序

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

测试工作簿

1. 按 F5 运行项目。

2. 选择或清除复选框。

3. 确认文本的格式设置正确。

后续步骤

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

• 部署项目。有关更多信息，请参见部署 Office 解决方案。

• 使用按钮填充文本框。有关更多信息，请参见演练：使用按钮在工作表的文本框中显示文本。

请参见

概念

使用 Excel 的演练

NamedRange 控件

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