Partager via


UndoContext.SetAborted, méthode

Ignore toutes les modifications effectuées dans les documents ouverts depuis l'ouverture de l'objet UndoContext.

Espace de noms :  EnvDTE
Assembly :  EnvDTE (dans EnvDTE.dll)

Syntaxe

'Déclaration
Sub SetAborted
void SetAborted()
void SetAborted()
abstract SetAborted : unit -> unit
function SetAborted()

Notes

La méthode SetAborted affecte true à la propriété IsAborted de l'objet UndoContext ouvert. Lorsque cette situation se présente, toutes les modifications effectuées dans les documents concernés depuis l'ouverture de l'objet UndoContext, et jusqu'à sa fermeture, sont ignorées.

Exemples

Sub SetAbortedExample()
   ' Before running, select text in an open document.
   Dim txtSel As TextSelection
   Dim strTS As String, strAnswer As String, bIsOpen As Boolean
   txtSel = DTE.ActiveDocument.Selection
   strTS = txtSel.Text

   ' Check to see if UndoContext object is already open.
   If DTE.UndoContext.IsOpen = True Then
      bIsOpen = True
   Else
      ' Open the UndoContext object to track changes.
      DTE.UndoContext.Open("RemoveNewLines", False)
   End If
   MsgBox("Current IsAborted value: " & DTE.UndoContext.IsAborted)

   ' Perform search for newline characters and remove them.
   If strTS <> "" Then
      txtSel.Delete()
      strTS = Replace(strTS, vbNewLine, "", Compare:=vbTextCompare)
      txtSel.Insert(strTS)
   End If

   ' Check to see if you want to discard changes.
   strAnswer = MsgBox("Do you want to discard all changes made?", vbYesNo & vbQuestion)
   If strAnswer = True Then
      DTE.UndoContext.SetAborted()
      MsgBox("Current IsAborted value: " & DTE.UndoContext.IsAborted)
   End If

   ' If UndoContext was already open, don't close it.
   If bIsOpen = True Then
      ' Close the UndoContext object to commit the changes.
      DTE.UndoContext.Close()
   End If
End Sub

Sécurité .NET Framework

Voir aussi

Référence

UndoContext Interface

EnvDTE, espace de noms