Question

我们正在使用 Visual Studio 2008 ，并想知道是否有办法为“在浏览器中查看”创建（键盘或工具栏）快捷方式 - 命令，但来自特定（已加载）项目的具有特定页面。

我们总是从“Project-x”的“Somepage.aspx”开始测试/调试我们的应用程序。我想从这个特定项目中创建一个快捷方式，使用此特定页面/文件进行“在浏览器中查看”。因此，即使我正在处理另一个项目中的另一个文件（来自同一个解决方案），它仍然可以工作......

任何人都知道这是否可能，如果有，这是如何实现的？

谢谢！ W.

Answer 1

你是对的，我的第一个答案是在浏览器中打开页面但不启动webserver。尝试以下宏。它使用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方法中的路径即可。它是您在解决方案资源管理器中看到的文件的完整路径。此宏假定该文件是解决方案的一部分。

Answer 2

以下宏在默认浏览器中打开特定页面：

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

Create the macro并修改url变量。然后，您可以create a toolbar or menu button或assign keyboard shortcut加入。

Visual Studio“在浏览器中查看”特定页面的快捷方式？

2 个答案: