我不是要求在解决方案资源管理器中自动关注当前文件的选项。这个问题已经回答了这个问题,我关闭了这个选项,因为我讨厌这种行为。
我想要一个快捷方式(或宏,或....)来跳转到我当前在解决方案资源管理器中编辑的文件。
我不是要求在解决方案资源管理器中自动关注当前文件的选项。这个问题已经回答了这个问题,我关闭了这个选项,因为我讨厌这种行为。
我想要一个快捷方式(或宏,或....)来跳转到我当前在解决方案资源管理器中编辑的文件。
在 Visual Studio 2015、2017 和 2019 中,您可以按Ctrl+ [,然后按s。
这将突出显示解决方案资源管理器中当前正在编辑的文件。
这可以通过以下键盘命令进行配置:SolutionExplorer.SyncWithActiveDocument
要重新配置,请导航至工具 -> 选项 -> 环境 -> 键盘
要在解决方案资源管理器中找到您当前正在编辑的文件:
Ctrl + W + S
我以前使用过Shift + Alt + L
,但由于某种原因,这不再有效。
其他建议(Ctrl+\,S
和Ctrl+[,S
Ctrl + ` + S)在 VS2015 中对我不起作用。当简单的快捷方式可用时,我不使用 resharper 并且不喜欢使用宏。
在 Visual Studio 2015 中,使用 ReSharper,我可以按Shift+ Alt+L突出显示解决方案资源管理器中正在编辑的当前文件。
在 Visual Studio 2010/2012 中,您可以使用此扩展(链接)。它在解决方案资源管理器工具栏和代码上下文菜单上添加了同步选项。
对于 VS2010,我找到了这个宏并为我工作:
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Public Module Utilities
Public Sub TrackProjectItem()
Dim solution As Solution2 = DTE.Solution
If Not solution.IsOpen OrElse DTE.ActiveDocument Is Nothing Then Return
solution.FindProjectItem(DTE.ActiveDocument.FullName).ExpandView()
Dim FileName As String = DTE.ActiveDocument.FullName
Dim SolutionExplorerPath As String
Dim items As EnvDTE.UIHierarchyItems = DTE.ToolWindows.SolutionExplorer.UIHierarchyItems
Dim item As Object = FindItem(items, FileName, SolutionExplorerPath)
If item Is Nothing Then
MsgBox("Couldn't find the item in Solution Explorer.")
Return
End If
DTE.Windows.Item(Constants.vsWindowKindSolutionExplorer).Activate()
DTE.ActiveWindow.Object.GetItem(SolutionExplorerPath).Select(vsUISelectionType.vsUISelectionTypeSelect)
End Sub
Public Function FindItem(ByVal Children As UIHierarchyItems, ByVal FileName As String, ByRef SolutionExplorerPath As String) As Object
For Each CurrentItem As UIHierarchyItem In Children
Dim TypeName As String = Microsoft.VisualBasic.Information.TypeName(CurrentItem.Object)
If TypeName = "ProjectItem" Then
Dim projectitem As EnvDTE.ProjectItem = CType(CurrentItem.Object, EnvDTE.ProjectItem)
Dim i As Integer = 1
While i <= projectitem.FileCount
If projectitem.FileNames(i) = FileName Then
SolutionExplorerPath = CurrentItem.Name
Return CurrentItem
End If
i = i + 1
End While
End If
Dim ChildItem As UIHierarchyItem = FindItem(CurrentItem.UIHierarchyItems, FileName, SolutionExplorerPath)
If Not ChildItem Is Nothing Then
SolutionExplorerPath = CurrentItem.Name + "\" + SolutionExplorerPath
Return ChildItem
End If
Next
End Function
End Module
原始来源在这里
如果我的问题是正确的,您可以转到工具 -> 选项 -> 项目和解决方案 -> 常规并选中“在解决方案资源管理器中跟踪活动项目”选项。
在我的键盘上,我不得不按:
Ctrl + ` + S
请注意,中间的符号是退格键左侧的键。
使用 Visual Studio 2015。