當(dāng)用戶在一個(gè)對(duì)象上按下然后釋放鼠標(biāo)按鈕時(shí),Click 事件發(fā)生。
Private Sub object_Change()
Object 窗體或控件的名稱。
? | 該事件不適用于選項(xiàng)組中的復(fù)選框、選項(xiàng)按鈕或切換按鈕。它只適用于選項(xiàng)組本身。 |
? | 該事件不適用于附加在另一個(gè)控件上的標(biāo)簽,如文本框的標(biāo)簽。它只適用于“獨(dú)立”的標(biāo)簽。單擊附屬標(biāo)簽和單擊標(biāo)簽所附的控件有相同的效果??丶恼J录l(fā)生,而附屬標(biāo)簽的任何事件都不會(huì)發(fā)生。 |
? | Click 事件適用于包含超鏈接的控件。 |
若要在該事件發(fā)生時(shí)執(zhí)行一個(gè)宏或事件過(guò)程,請(qǐng)將 OnClick 屬性設(shè)置為宏的名稱或 [事件過(guò)程]。
在窗體上,當(dāng)用戶單擊窗體上的空白區(qū)域或記錄選定器時(shí),該事件發(fā)生。
對(duì)于控件,用戶執(zhí)行以下操作時(shí)發(fā)生該事件:
? | 用鼠標(biāo)左鍵單擊控件。用右邊或中間的鼠標(biāo)鍵單擊控件不會(huì)觸發(fā)該事件。 |
? | 用鼠標(biāo)左鍵單擊包含超鏈接數(shù)據(jù)的控件。用右邊或中間的鼠標(biāo)鍵單擊控件不會(huì)觸發(fā)該事件。當(dāng)用戶將鼠標(biāo)指針移動(dòng)到包含超鏈接數(shù)據(jù)的控件上時(shí),鼠標(biāo)指針將變成“手型”圖標(biāo)。當(dāng)用戶單擊鼠標(biāo)鍵時(shí),超鏈接將被激活,然后 Click 事件發(fā)生。 |
? | 當(dāng)命令按鈕、復(fù)選框、選項(xiàng)按鈕或切換按鈕具有焦點(diǎn)時(shí)按空格鍵。 |
? | 在 Default 屬性設(shè)為“是”的命令按鈕所在的窗體上按 Enter。 |
? | 在 Cancel 屬性設(shè)為“是”的命令按鈕所在的窗體上按 Esc。 |
通常將一個(gè) Click 事件過(guò)程或宏附加到命令按鈕上,以便執(zhí)行某些命令和類似命令的操作。對(duì)其他適用的控件,可使用這個(gè)事件來(lái)觸發(fā)操作以響應(yīng)本主題前面所討論的情況之一。
僅對(duì)命令按鈕而言,當(dāng)用戶使用 Enter 鍵或訪問(wèn)鍵來(lái)選擇命令按鈕時(shí),Microsoft Access 將運(yùn)行 OnClick 屬性指定的宏或事件過(guò)程。宏或事件過(guò)程只運(yùn)行一次。如果想讓宏或事件過(guò)程在按下命令按鈕時(shí)重復(fù)執(zhí)行,可將 AutoRepeat 屬性設(shè)為“是”。對(duì)其他類型的控件而言,必須使用鼠標(biāo)鍵單擊控件來(lái)觸發(fā) Click 事件。
命令按鈕的 Click 事件在選擇命令按鈕時(shí)發(fā)生。另外,如果命令按鈕在選擇它時(shí)還沒有獲得焦點(diǎn),則命令按鈕的 Enter 和 GotFocus 事件將在 Click 事件之前發(fā)生。
雙擊控件將引起 DblClick 和 Click 事件同時(shí)發(fā)生。對(duì)命令按鈕而言,雙擊鼠標(biāo)鍵將以如下順序觸發(fā)下列事件:
MouseDown → MouseUp → Click → DblClick → Click
可以在 DblClick 宏中使用 CancelEvent 操作來(lái)取消第二個(gè) Click 事件。有關(guān)詳細(xì)信息,請(qǐng)參閱“DblClick 事件”主題。
選項(xiàng)組的 Click 事件將在單擊控件更改選項(xiàng)組中某一控件值之后發(fā)生。例如,如果單擊選項(xiàng)組中的切換按鈕、選項(xiàng)按鈕或復(fù)選框,則選項(xiàng)組的 Click 事件將在 BeforeUpdate 和 AfterUpdate 事件之后發(fā)生。
在下面的示例中,Click 事件過(guò)程附加到 ReadOnly 復(fù)選框。該事件過(guò)程設(shè)置窗體上另一控件(“Amount”文本框)的 Enabled 和 Locked 屬性。單擊該復(fù)選框時(shí),事件過(guò)程會(huì)檢查是選中還是清除了該復(fù)選框,然后將文本框的屬性相應(yīng)地設(shè)為啟用或禁用編輯。
若要嘗試該示例,請(qǐng)將下面的事件過(guò)程添加到一個(gè)包含復(fù)選框(名為“ReadOnly”)和文本框(名為“Amount”)的窗體。
Private Sub ReadOnly_Click()
With Me!Amount
If Me!ReadOnly = True Then ' If checked.
.Enabled = False ' Disable editing.
.Locked = True
Else ' If cleared.
.Enabled = True ' Enable editing.
.Locked = False
End If
End With
End Sub