Hi, TIA

For the class Package in the Microsoft.VisualStudio.Shell.Package namespace has already implemented the IserviceProvider interface, so any class derived from the Package class can use the GetService method directly. Another class called component also has the method GetService, so any class derive from it such as UserControl canget the service.

If your class derived from neither of the class I metioned before, you have to use the Package.GetGlobalService method, and the class Package is in theMicrosoft.VisualStudio.Shellnamespace.
Hope this could help you!
Thanks
Chao

Hi Chao,

Many thanks for your reply. The application that I am writing is a stand-alone application which creates an instance of Visual Studio and wants to query its loaded solutionfrom "outside", rather than a package which VS loads on startup and is therefore bound into the VS instance.

The way I see things, because my application is not a Package or a Component, I have no access to IServiceProvider as you describe.Similarly, my applicationhas no access to Package.GetGlobalService either?

Please correct me if I am wrong.

Below is some VBcode for a fictitious console app which hopefully demonstates what I am trying to do....

<DUMMYCODE>
Imports System.ComponentModel.Design
Imports System.IO
Imports EnvDTE ' C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\PublicAssemblies\EnvDTE.dll
Imports Microsoft.VisualStudio.Shell.Interop ' Visual Studio SDK

Module Module1

Sub Main()

' Create an instance of Visual Studio

Dim VS2008Instance As EnvDTE.DTE = Nothing

VS2008Instance = DirectCast(CreateObject("VisualStudio.DTE.9.0"), EnvDTE.DTE)

Dim arg As String = "C:\WORK\TestSolution.sln"

Dim soln As Solution = VS2008Instance.Solution

' Open a solution within it

soln.Open(arg)

' Create the groundwork necessary to query the symbols

Dim objList As IVsObjectList = Nothing

Dim serviceProvider As IServiceProvider

' Somehow, we need to get a handle on IServiceProvider!!!!

Dim fs As IVsObjectSearch = _
CType(serviceProvider.GetService(GetType(SVsObjectSearch)), IVsObjectSearch)

If fs IsNot Nothing Then

Dim SCrit(0) As VSOBSEARCHCRITERIA

With SCrit(0)

.eSrchType = VSOBSEARCHTYPE.SO_ENTIREWORD

.grfOptions = CUInt(_VSOBSEARCHOPTIONS.VSOBSO_NONE)

.szName = "SomeFunctionName"

End With

Try

fs.Find(CUInt(__VSOBSEARCHFLAGS.VSOSF_EXPANDREFS), SCrit, objList)

Catch ex As Exception

' Apparently, Find will ALWAYS throw an exception, because of a bug.
'It still succeeds however!

End Try

End If

End Sub

End Module
</DUMMYCODE>

Hi, Martyn

Yes, Ed Dore was right, this will make your applicationaccross the process boundary and you should run your application in-process to DevEnv. Why can not you use add-in instead, you are able to use the Service in anadd-in.

ServiceProvider sp = new ServiceProvider((IOleServiceProvider)_applicationObject);
 IVsObjectSearch fs = sp.GetService(typeof(SVsObjectSearch).GUID) as IVsObjectSearch;

We are changing the issue type to “General Discussion�because you have not followed up with the necessary information. If you have more time to look at the issue and provide more information, please feel free to change the issue type back to “Question�by opening the Options list at the top of the post window, and changing the type. If the issue is resolved, we will appreciate it if you can share the solution so that the answer can be found and used by other community members having similar questions.

Thank you!
Chao

EnvDTE.Projects VCProjects = (EnvDTE.Projects) DTE.GetObject("VCProjects");

Then loop through projects and get the CodeModel and CodeElements.

Let me know if it works. If you want details, Let me know.

Thanks & Regards
PKR

' Returns a "Miscellany" OutputWindowPane
Function GetMiscDumpPane() As OutputWindowPane
   Dim ow As OutputWindow = DTE.Windows.Item(Constants.vsWindowKindOutput).Object
   Dim pane As OutputWindowPane
   Try
      pane = ow.OutputWindowPanes.Item("Miscellany")
   Catch ex As Exception
      pane = ow.OutputWindowPanes.Add("Miscellany")
   End Try
   Return pane
End Function

Sub TestSearch()
   ' Clear the results toolwindow
   Dim resultsWindow As Window = DTE.Windows.Item(Constants.vsWindowKindFindResults1)
   Dim txtSel As TextSelection = resultsWindow.Selection()
   txtSel.Delete()

   ' Do a search
   Dim find2 As Find2 = DTE.Find
   find2.MatchCase = True
   find2.FindWhat = "Microsoft"
   find2.Target = vsFindTarget.vsFindTargetSolution
   find2.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral
   find2.Action = vsFindAction.vsFindActionFindAll
   find2.ResultsLocation = vsFindResultsLocation.vsFindResults1
   find2.WaitForFindToComplete = True
   DTE.Find.Execute()

   ' Select text in the results window
   txtSel.SelectAll()

   ' Display retrieved selection Text in our custom Output Window Pane
   Dim outputPane = GetMiscDumpPane()
   outputPane.Clear()
   outputPane.OutputString(txtSel.Text)
End Sub