Find2.Action 属性
定义
重要
一些信息与预发行产品相关，相应产品在发行之前可能会进行重大修改。 对于此处提供的信息，Microsoft 不作任何明示或暗示的担保。
获取或设置指示如何进行查找（例如查找下一个匹配项、全部查找、替换并查找等）的值。
public:
property EnvDTE::vsFindAction Action { EnvDTE::vsFindAction get(); void set(EnvDTE::vsFindAction value); };public:
property EnvDTE::vsFindAction Action { EnvDTE::vsFindAction get(); void set(EnvDTE::vsFindAction value); };[System.Runtime.InteropServices.DispId(3)]
public EnvDTE.vsFindAction Action { [System.Runtime.InteropServices.DispId(3)] get; [System.Runtime.InteropServices.DispId(3)] set; }[<System.Runtime.InteropServices.DispId(3)>]
[<get: System.Runtime.InteropServices.DispId(3)>]
[<set: System.Runtime.InteropServices.DispId(3)>]
member this.Action : EnvDTE.vsFindAction with get, setPublic Property Action As vsFindAction属性值
一个 vsFindAction 常数，表示查找操作的类型。
实现
- 属性
示例
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.
objFind.Execute()
End Sub