2

Visual Studio 2008を使用しており、特定の (読み込まれた) プロジェクトの特定のページを使用して、 [ブラウザーで表示]コマンドの (キーボードまたはツールバー) ショートカットを作成する方法があるかどうかを知りたいと考えています。

私たちは常に「Project-x」の「Somepage.aspx」からアプリのテスト/デバッグを開始します。この特定のプロジェクトから、この特定のページ/ファイルで「ブラウザで表示」するショートカットを作成したいと思います。そのため、現在別のプロジェクトで別のファイルに取り組んでいる場合でも (同じソリューションから)、引き続き機能するはずです...

これが可能かどうかは誰にもわかりますか?もしそうなら、どうすればこれを達成できますか?

ありがとう！W.

4

2 に答える 2

1

そうです、私の最初の答えはブラウザでページを開きますが、Webサーバーを起動しません。次のマクロを試してください。ViewinBrowser コマンドを使用するため、期待どおりに動作するはずです。

Sub OpenMyPage()
    Dim solutionExplorerHier As EnvDTE.UIHierarchy
    solutionExplorerHier = DTE.Windows.Item(EnvDTE.Constants.vsWindowKindSolutionExplorer).Object
    Dim oldSelected As Object = solutionExplorerHier.SelectedItems
    solutionExplorerHier.GetItem("MySolution\MyProject\HTMLPage1.htm").Select(vsUISelectionType.vsUISelectionTypeSelect)
    DTE.ExecuteCommand("File.ViewinBrowser")

    'restore selected items
    Dim item As EnvDTE.UIHierarchyItem
    For Each item In DirectCast(oldSelected, Array)
        item.Select(vsUISelectionType.vsUISelectionTypeSelect)
    Next
End Sub

GetItem メソッドのパスを変更するだけです。これは、ソリューション エクスプローラーに表示されるファイルへの完全なパスです。このマクロは、ファイルがソリューションの一部であることを前提としています。

于 2010-03-23T12:50:58.793 に答える
0

次のマクロは、既定のブラウザーで特定のページを開きます。

Sub OpenMyPage()
    Try
        Dim url As String
        url = "C:\HTMLPage1.htm"
        'enclose URL in double quotes
        url = """" & url & """"
        DTE.ExecuteCommand("nav", url & " /new /ext")
        'nav is alias for View.ShowWebBrowser command
        'Syntax:
        'View.ShowWebBrowser URL [/new][/ext]
        '
        '/new 
        ' Optional. Specifies that the page appears in a new instance of the Web browser.
        '/ext 
        ' Optional. Specifies that the page appears in the default Web browser outside of the IDE.
    Catch ex As Exception
    End Try
End Sub

マクロを作成し、url 変数を変更します。次に、ツールバーまたはメニュー ボタンを作成するか、それにキーボード ショートカットを割り当てることができます 。

于 2010-03-23T08:07:29.167 に答える