VS2010とは何かNext/Prev関数宣言ホットキーに移動しますか？

Question

Access VB6コードエディタでCtrl-UpとCtrl-Downは、次の/ prev関数宣言にジャンプします。

これは非常に便利なナビゲーションツールです。私はVS2010で見つけることができません。

私はGoogleとstackoverflowでいくつかの検索を行っており、それに対する参照を見つけることができないようです。

これらのホットキーがVS2010にまったく存在するかどうかは知りませんか？

もしそうでなければ、VS2010のようなコンテキスト認識IDEではどうしてそれらが存在しないのでしょうか？

Answer 1

はいホットキーが存在する：http://www.dofactory.com/ShortCutKeys/ShortCutKeys.aspx

、別の宣言に移動するには： シフト+ CTRL + 1 /シフト+ CTRL + 2

Answer 2

私は、彼らはVS2010には存在しないと思う、私たちはで働きますVS6と2010の両方で、これらのコマンドを持たないように怒っています。

Answer 3

私は現在、自動化されたOCDであり、私がナビゲートするためのマクロをたくさん作っています。以下は、あなたがCで（おそらくC++でも）何をするかを行うVBマクロコードです。 Visual Studioでマクロを作成し、これらの行を追加することができます。関数宣言を検出するための正規表現は完璧ではない可能性が高いですが、今は1週間使っています。これらの2つのマクロは、必要なキーバインディング（Ctrl + UpまたはCtrl + Down）にマップできます。誰かが正規表現を改善したら、私は更新版を見たいと思う。

Imports System 
Imports EnvDTE 
Imports EnvDTE80 
Imports EnvDTE90 
Imports EnvDTE90a 
Imports EnvDTE100 
Imports System.Diagnostics 
Imports System.Text.RegularExpressions 

Public Module NavigationMacros 
    Private Function IsFunctionDeclaration(ByRef LineText As String) As Boolean 
     If Regex.IsMatch(LineText, "^[^\s\d\W\(\)]+[^\(\)]+\s+[^\s\d\W\(\)]+\s*\([^\(\)]*\)\s*$") Then 
      IsFunctionDeclaration = True 
     Else 
      IsFunctionDeclaration = False 
     End If 
    End Function 

    Private Function GetLineText(ByRef EditPoint As EnvDTE.EditPoint) As String 
     EditPoint.StartOfLine() 
     GetLineText = EditPoint.GetText(EditPoint.LineLength) 
    End Function 

    Sub GoToPreviousFunctionDeclaration() 
     Dim Selection As EnvDTE.TextSelection 
     Dim EditPoint As EnvDTE.EditPoint 
     Dim LineText As String 

     Selection = DTE.ActiveDocument.Selection 
     EditPoint = Selection.TopPoint.CreateEditPoint 

     EditPoint.LineUp() 

     While IsFunctionDeclaration(GetLineText(EditPoint)) = False And Not EditPoint.AtStartOfDocument 
      EditPoint.LineUp() 
     End While 

     If Not EditPoint.AtEndOfDocument Then 
      Selection.MoveToLineAndOffset(EditPoint.Line, 1) 
     End If 
    End Sub 

    Sub GoToNextFunctionDeclaration() 
     Dim Selection As EnvDTE.TextSelection 
     Dim EditPoint As EnvDTE.EditPoint 
     Dim LineText As String 

     Selection = DTE.ActiveDocument.Selection 
     EditPoint = Selection.TopPoint.CreateEditPoint 

     EditPoint.LineDown() 

     While IsFunctionDeclaration(GetLineText(EditPoint)) = False And Not EditPoint.AtEndOfDocument 
      EditPoint.LineDown() 
     End While 

     If Not EditPoint.AtEndOfDocument Then 
      Selection.MoveToLineAndOffset(EditPoint.Line, 1) 
     End If 
    End Sub 
End Module