Was this page helpful?
Your feedback about this content is important. Let us know what you think.
Additional feedback?
1500 characters remaining
Export (0) Print
Expand All
Expand Minimize

Action Property

Visual Studio .NET 2003

Sets or returns how to find, such as find next match, find all, replace and find, and so forth.

[Visual Basic .NET]
Public Property Action() As vsFindAction
[Visual Basic 6]
Property Get Action() As vsFindAction
Property Let Action( _
   ByVal NewValue As vsFindAction _
HRESULT __stdcall get_Action(
   /* [out, retval] */ vsFindAction* retVal
HRESULT __stdcall put_Action(
   /* [in] */ vsFindAction NewValue
public vsFindAction Action {get; set;}
[JScript .NET]
public function get Action() : vsFindAction
public function set Action(
   NewValue : vsFindAction


Required. A vsFindAction constant representing the type of find action to take.


Sub ActionExample()
   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.
End Sub

See Also

FindReplace Method

Applies To: Find Object

© 2015 Microsoft