Freigeben über


Find.KeepModifiedDocumentsOpen Property

Definition

Gets or sets a value indicating whether or not modified documents remain open after a Replace operation.

public:
 property bool KeepModifiedDocumentsOpen { bool get(); void set(bool value); };
public:
 property bool KeepModifiedDocumentsOpen { bool get(); void set(bool value); };
[System.Runtime.InteropServices.DispId(10)]
public bool KeepModifiedDocumentsOpen { [System.Runtime.InteropServices.DispId(10)] get; [System.Runtime.InteropServices.DispId(10)] set; }
[<System.Runtime.InteropServices.DispId(10)>]
[<get: System.Runtime.InteropServices.DispId(10)>]
[<set: System.Runtime.InteropServices.DispId(10)>]
member this.KeepModifiedDocumentsOpen : bool with get, set
Public Property KeepModifiedDocumentsOpen As Boolean

Property Value

true means the modified document was kept open; false means the modified document was closed.

Attributes

Examples

Sub KeepModifiedDocumentsOpenExample()  
   Dim objTextDoc As TextDocument  
   Dim objEditPt As EditPoint  
   Dim iCtr As Integer  
   Dim objFind As Find  

   ' Create a new text file.  
   DTE.ItemOperations.NewFile("General\Text File")  

   ' Get a handle to the new document and create an EditPoint.  
   objTextDoc = DTE.ActiveDocument.Object("TextDocument")  
   objEditPt = objTextDoc.StartPoint.CreateEditPoint  
   objFind = objTextDoc.DTE.Find  

   ' Insert ten lines of text.  
   For iCtr = 1 To 10  
      objEditPt.Insert("This is a test." & Chr(13))  
   Next iCtr  

   ' Set the find options.  
   objFind.Action = vsFindAction.vsFindActionReplaceAll  
   objFind.Backwards = False  
   objFind.FilesOfType = "*.txt"  
   objFind.FindWhat = "test"  
   objFind.KeepModifiedDocumentsOpen = True  
   objFind.MatchCase = False  
   objFind.MatchInHiddenText = False  
   objFind.MatchWholeWord = True  
   objFind.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral  
   objFind.ReplaceWith = "NEW THING"  
   objFind.ResultsLocation = vsFindResultsLocation.vsFindResultsNone  
   objFind.SearchPath = "c:\temp"  
   objFind.SearchSubfolders = False  
   objFind.Target = vsFindTarget.vsFindTargetCurrentDocument  
   ' Perform the Find operation.  
   objFind.Execute()  
End Sub  

Remarks

KeepModifiedDocumentsOpen defaults to the last global find state used.

Applies to