Imports System Imports EnvDTE Imports EnvDTE80 Imports System.Diagnostics Public Module WebSearch ' 現在選択している文字列をgoogleで検索(内部ブラウザ) Sub GoogleSearchSel_Internal() ShowUrlInternal(GetGoogleSearchUrl()) End Sub ' 現在選択している文字列をgoogleで検索(explorer) Sub GoogleSearchSel_Explorer() ShowUrlExplorer(GetGoogleSearchUrl()) End Sub ' エディタ上で現在選択している文字列のgoogle検索urlを生成する Function GetGoogleSearchUrl() As String Dim h