Visual Studio «Просмотр в браузере» ярлык для конкретной страницы? - PullRequest
Новая
       7

Visual Studio «Просмотр в браузере» ярлык для конкретной страницы?

2 голосов
/ 22 марта 2010

Мы используем Visual Studio 2008 и хотели бы знать, есть ли способ создать ярлык (клавиатура или панель инструментов) для команды View in Browser '-,но с определенной страницей из определенного (загруженного) проекта.

Мы всегда начинаем тестировать / отлаживать наше приложение из "Somepage.aspx" из "Project-x".Я хотел бы сделать ярлык, который делает «Просмотр в браузере» с этой конкретной страницы / файла, из этого конкретного проекта.Так что, даже если я сейчас работаю над другим файлом в другом проекте (из того же решения), он все равно должен работать ...

Кто-нибудь знает, возможно ли это, и если да, то как это может быть достигнуто?

Спасибо!W.

Ответы [ 2 ]

1 голос
/ 23 марта 2010

Вы правы, мой первый ответ открывает страницу в браузере, но не запускает веб-сервер.Попробуйте следующий макрос.Он использует команду 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.Это полный путь к файлу, который вы видите в обозревателе решений.Этот макрос предполагает, что файл является частью вашего решения.

0 голосов
/ 23 марта 2010

Следующий макрос открывает определенную страницу в браузере по умолчанию: 

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. Затем вы можете создать панель инструментов или кнопку меню или назначить ей сочетание клавиш .

...