停止事务处理。例如,如果您正在运行宏,而您先前已为该宏创建了撤消事务处理,则您可以以编程方式使用 abort 方法以在错误条件发生时停止运行宏。
expression.abort
expression 返回 FPHTMLUndoTransaction 对象的表达式。
Void
如果发生使事务处理对象无效的错误条件,可以使用 abort 方法来停止事务处理。
一旦创建了 UndoTransaction 对象,Microsoft FrontPage 就会将 UndoTransaction 对象的名称放置在 FrontPage 中“编辑”菜单的“撤消”部分上。
下列示例创建事务处理,执行将操作添加到堆栈中的操作,然后要求用户响应以决定是放弃操作还是提交操作。
Private Sub CreateTransaction()
Dim myTrans As FPHTMLUndoTransaction
Dim myDoc As FPHTMLDocument
Dim myUTransName As String
Dim myMsg As String
Set myDoc = ActiveDocument
myUTransName = "Undo Last Macro"
Set myTrans = _
myDoc.createUndoTransaction(myUTransName)
myMsg = "Would you like to cancel the operation?"
Call myDoc.body.insertAdjacentHTML("BeforeEnd", _
"<b> Added by FP Programmability </b>")
Answer = MsgBox(myMsg, vbYesNo, "Cancel Operation?")
If Answer = vbYes Then
myTrans.abort
Else
myTrans.commit
End If
End Sub