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

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