hi
I have created a tool which does a find and replace thru DTE, now after it is done, it opens up a window, "FIND REACHED THE STARTING POINT OF SEARCH"
I want to disbale this window programmaticall y.
how should i do it
this is a partial code
Dim dsData As DataSe
dsData = getFiles() // this is a method which retrieves the filenames and path from DB
Dim iData As Intege
Dim flag As Intege
While (dsData.Tables( 0).Rows.Count > iData
Dim dte As New DTE(
Dim usrEditPoint As EditPoin
Dim fullName As Strin
Dim strName = dsData.Tables(0 ).Rows(iData).I temArray(0
Dim strPath = dsData.Tables(0 ).Rows(iData).I temArray(1
fullName = strPath & "\" & strNam
Tr
Dim activedoc As Window = dte.ItemOperati ons.OpenFile(fu llName
dte.Find.FindWh at = "FMTrace.GetCal lDesc
dte.Find.Target = vsFindTarget.vs FindTargetFile
dte.Find.MatchC ase = Fals
dte.Find.MatchW holeWord = Fals
dte.Find.MatchI nHiddenText = Tru
dte.Find.Patter nSyntax = vsFindPatternSy ntax.vsFindPatt ernSyntaxLitera
dte.Find.Search Path = fullNam
dte.Find.Search Subfolders = Tru
dte.Find.FilesO fType = "*.cs
dte.Find.Result sLocation = vsFindResultsLo cation.vsFindRe sultsNon
dte.Find.Action = vsFindAction.vs FindActionFin
' dte.Debugger.Go (True
' dte.Find.Execut e(
While (dte.Find.Execu te() = vsFindResult.vs FindResultFound
If Not (flag = 0) The
dte.ExecuteComm and("Edit.FindN ext"
End I
flag = flag +
Dim ReWinTest As Window = dte.Windows.Ite m(EnvDTE.Consta nts.vsWindowKin dFindReplace
ReWinTest.Close (
Dim txtSel As TextSelection = dte.ActiveDocum ent.Selectio
Dim objActive As VirtualPoint = txtSel.ActivePo in
txtSel.SelectLi ne(
Dim strGetCallDesc = txtSel.Tex
txtSel.Delete(
FindThrow(strGe tCallDesc, fullName, strPath, strName
End Whil
dte = Nothin
Catch ex As Exceptio
End Tr
iData = iData +
End Whil
now when the find is over , it says a message
find has reached the starting point of search
which we also get in our devenv generally.
pls let me know urgentl
regard
amit purohit
---
Posted using Wimdows.net Newsgroups - http://www.wimdows.net/newsgroups/
