Undo 事件

当用户取消对组合框控件、窗体或文本框控件的更改时,该事件发生。

Private Sub object_Undo(Cancel As Integer)

object    一个引用“应用于”列表中某种类型的对象的变量。

Cancel    将该参数设为 True,可以取消撤消操作,并将控件或窗体保留为编辑后的状态。

说明

只要用户通过单击命令栏上的“撤消字段/记录”按钮、单击“撤消”按钮、按 Esc,或调用指定控件的 Undo 方法,将控件返回其原状态,控件的 Undo 事件就会发生。在所有这三种情况中,控件都必需有焦点。如果用户单击了命令栏上的“撤消键入”按钮,该事件不发生。

只要用户通过单击“撤消”按钮、按 Esc,或调用指定窗体上的 Undo 方法,将窗体返回到原状态,窗体的 Undo 事件就会发生。

示例

下面的示例说明了捕获 Undo 事件的子程序的语法。

Private Sub Form_Undo(Cancel As Integer)

    Dim intResponse As Integer

    Dim strPrompt As String

    strPrompt = "Cancel the undo operation?"

    intResponse = MsgBox(strPrompt, vbYesNo)

    If intResponse = vbYes Then

        Cancel = True

    Else

        Cancel = False

    End If

End Sub