通过

如何：在升级应用程序中模拟 Visual Basic 6.0 三态控件

  • 项目

更新：2007 年 11 月

在 Visual Basic 6.0 中，Picture、DownPicture 和 DisabledPicture 属性用于根据 CheckBox、CommandButton 或 OptionButton 控件的状态显示不同的图片。例如，如果选中 CheckBox 控件，则显示 DownPicture 图像；如果禁用该控件，则显示 DisabledPicture 图像。

在 Visual Basic 2008 中，使用 ImageList 控件可以获得同样的效果，如下面的示例所示。

说明：

首先，检查 Visual Basic 6.0 应用程序。如果未在设计时或运行时设置 DownPicture 和 DisabledPicture 属性，则行为在 Visual Basic 2008 中应保持不变。
说明：

显示的对话框和菜单命令可能会与“帮助”中的描述不同，具体取决于您现用的设置或版本。若要更改设置，请在“工具”菜单上选择“导入和导出设置”。有关更多信息，请参见 Visual Studio 设置。

添加 ImageList 控件

如果设置了 DownPicture 或 DisabledPicture 属性，则使用下列步骤修改已升级的应用程序。

模拟具有三种状态的控件

  1. 确定分配给 Picture、DownPicture 和 DisabledPicture 属性的图像的文件名和位置，如有必要，将这些图像复制到开发计算机上。

  2. 从“工具箱”中，将 ImageList 控件添加到窗体中。

  3. 在“属性”窗口中，选择 Images 属性。

  4. 在“图像集合编辑器”中，添加三个图像，依次用于 Picture、DownPicture 和 DisabledPicture。

  5. 如果在运行时设置了任何这些属性，则移除此代码。如果在设计时设置了任何这些属性，则将以下代码添加到窗体的 Load 事件：

    ' Assign the first image (Picture) to the Image property.
CheckBox1.Image = ImageList1.Images(0)

  6. 若要在运行时显示 DownPicture 图像，请将以下代码添加到 CheckBox 控件的 CheckedChanged 事件。

    If CheckBox1.Checked = True Then
  ' Assign the second image (DownPicture) to the Image property.
  CheckBox1.Image = ImageList1.Images(1)
Else
  ' Assign the first image (Picture) to the Image property.
  CheckBox1.Image = ImageList1.Images(0)
End If

  7. 若要在运行时显示 DisabledPicture 图像，请将以下代码添加到 CheckBox 控件的 EnabledChanged 事件。

    If CheckBox1.Enabled = False Then
  ' Assign the third image (DisabledPicture) to the Image property.
  CheckBox1.Image = ImageList1.Images(2)
ElseIf CheckBox1.Checked = True Then
  ' Assign the second image (DownPicture) to the Image property
  CheckBox1.Image = ImageList1.Images(1)
Else
  ' Assign the first image (Picture)to the Image property
  CheckBox1.Image = ImageList1.Images(0)
End If

    现在应用程序的行为应该与 Visual Basic 6.0 中的完全一样。

请参见

概念

Style 属性（针对 Visual Basic 6.0 用户）

CheckBox 控件（针对 Visual Basic 6.0 用户）

CommandButton 控件（针对 Visual Basic 6.0 用户）

OptionButton 控件（针对 Visual Basic 6.0 用户）

OptionButton 控件（针对 Visual Basic 6.0 用户）

用户控件（针对 Visual Basic 6.0 用户）