25、Click 事件

在下面两种情况下，发生该事件:

· 用鼠标单击控件。

· 用户最终在几种可能的值中为控件选择一个值。

语法

对于多页和 TabStrip

Private Sub object_Click( index As Long)

对于所有的其他控件

Private Sub object_Click( )

Click 事件的语法包含以下成分：

说明

在导致 Click 事件发生的两种情况中，第一种情况应用于命令按钮、框架、图像、标签、滚动条和数值调节钮控件，而第二种情况用于复选框、组合框、列表框、多页、TabStrip 和切换按钮控件。当选项按钮控件的值变为 True 时，也会导致 Click 事件发生。

以下是初始化 Click 事件的操作的几个示例：

· 单击窗体的空白区或窗体上的无效控件（除了列表框）。

· 单击命令按钮控件。如果命令按钮尚不具有焦点，则 Enter 事件发生在 Click 事件之前。

· 当命令按钮控件具有焦点时按 Spacebar 键。

· 单击一控件。

· 在窗体上按 Enter 键，该窗体上的一个命令按钮的 Default 属性设为 True，同时焦点没有位于其他的命令按钮上。

· 在一个窗体上按 Esc 键，该窗体上有一个命令按钮的 Cancel 属性设为 True，同时焦点没有位于其他的命令按钮上。

· 按一个控件的加速键。

当单击控件而引发 Click 事件时，所发生的一系列事件有：

1. MouseDown

2. MouseUp

3. Click

对于某些控件，当 Value 属性改变时发生 Click 事件。但是，最好使用 Change 事件来检测一个属性的新值。下面是由于给控件赋新值而初始化 Click 的操作的示例：

· 单击多页或 TabStrip 中的一个不同页面或标签。这些控件的 Value 属性反映了当前的页或标签。单击当前页或标签不改变控件的值，因而也就不初始化 Click 事件。

· 单击复选框或切换按钮控件，当这些控件之一具有焦点时按 Spacebar 键，按这些控件中的一个的加速键，或者用代码改变该控件的值。

· 将选项按钮值改为 True。将某组中的一个选项按钮值设为 True，则该群组内的其余按钮的值会自动设置为 False。只针对值变为 True 的那个按钮发生 Click 事件。

· 选择一个组合框控件或者列表框控件的值，使其完全与该控件下拉列表中的某项匹配。例如，若列表未经排序，则在编辑区所键入字符的第一个匹配对象可能不是列表中唯一的匹配，所以选择这样的值并不初始化 Click 事件。在一个经排序的列表中，可用完全匹配方式来确保所选择的值是用户键入的文本的唯一匹配值。

若 Value 设置为 Null，则不会初始化 Click 事件。

注意单击可改变控件的值，因而它能初始化 Click 事件。但用右键单击不会改变控件的值，所以它不会初始化 Click 事件。

Click 事件、命令按钮控件、Accelerator 和 Caption 属性示例

每当用户用鼠标或加速键来单击按钮时，该示例都将改变一次命令按钮的 Accelerator 和 Caption 属性。Click 事件包含改变 Accelerator 和 Caption 属性的代码。

若要使用该示例，请将代码粘贴到包含名为 CommandButton1 的命令按钮的窗体的声明变量部分。

Private Sub UserForm_Initialize()

CommandButton1.Accelerator= "C"

'
将加速键设置为 COMMAND + C

End Sub

Private Sub CommandButton1_Click ()

If CommandButton1.Caption = "OK" Then

'
检查题注，然后更改它。

CommandButton1.Caption = "Clicked"

CommandButton1.Accelerator= "C"

'
将加速键设置为 COMMAND + C

Else

CommandButton1.Caption = "OK"

CommandButton1.Accelerator= "O"

'
将加速键设置为 COMMAND + O

End If

End Sub

Tags：subcommand