'Find Function headers' macro for Visual Studio .NET

Wooseok Seo

Rate me:

3.67/5 (3 votes)

28 May 2002CPOL

71.4K

283

This macro will help you when you want to quickly move between function headers in your code.

Download source files - 1 Kb

Introduction

As you know there isn't a function like WBGoToNext and WBGoToPrevious in Visual Studio .NET.
So this macro will help you when you want to quickly move between function headers in your code.

It is very simple, so there is no need comment!

' FindFunction macro
'
' Writer : [Asia MVP] Smile Seo
' E-mail : seaousak@hotmail.com
'

Imports EnvDTE
Imports System.Diagnostics

Public Module FindFunction
    Sub BeginningOfFunction()
        Dim ts As TextSelection = DTE.ActiveWindow.Selection
        ts.MoveToPoint(ts.ActivePoint.CodeElement(_
               vsCMElement.vsCMElementFunction).GetStartPoint(vsCMPart.vsCMPartHeader))
    End Sub

    Sub EndOfFunction()
        Dim ts As TextSelection = DTE.ActiveWindow.Selection
        ts.MoveToPoint(ts.ActivePoint.CodeElement( _
                 vsCMElement.vsCMElementFunction).GetEndPoint(vsCMPart.vsCMPartHeader))
    End Sub

    Sub GotoFunctionHeaderUp()
        On Error GoTo ErrorHandler

        BeginningOfFunction()

        ActiveDocument().Selection.FindText("}", vsFindOptions.vsFindOptionsBackwards)
        ActiveDocument().Selection.LineUp()
        BeginningOfFunction()

ErrorHandler:
    End Sub

    Sub GotoFunctionHeaderDown()
        On Error GoTo ErrorHandler

        EndOfFunction()

        ActiveDocument().Selection.FindText("{")
        ActiveDocument().Selection.LineDown()

        BeginningOfFunction()

ErrorHandler:
    End Sub


End Module

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Written By

Wooseok Seo

Software Developer (Senior)

Korea (Republic of)

Woo Seok Seo have been a Microsoft MVP for 7 years and have translated several books into Korean. Author of C# Programming for Beginner (DevPress, 2001), he is interested in Debugging techniques and .NET technology. Get in touch with Woo Seok Seo at wooseok.seo@gmail.com

Sub GotoFunctionHeaderUp() On Error GoTo ErrorHandler Dim ts As TextSelection = DTE.ActiveWindow.Selection Dim ce As CodeElement Do ts.LineUp() ce = ts.ActivePoint.CodeElement(vsCMElement.vsCMElementFunction) Loop While (ce Is Nothing And ts.TopPoint.Line > 1) If (Not ce Is Nothing) Then ts.MoveToPoint(ce.GetStartPoint(vsCMPart.vsCMPartHeader)) End If ErrorHandler: End Sub Sub GotoFunctionHeaderDown() On Error GoTo ErrorHandler Dim ts As TextSelection = DTE.ActiveWindow.Selection Dim ce As CodeElement Dim prevLine As Integer Dim currLine As Integer ce = ts.ActivePoint.CodeElement(vsCMElement.vsCMElementFunction) If (Not ce Is Nothing) Then ts.MoveToPoint(ce.GetEndPoint(vsCMPart.vsCMPartHeader)) ts.LineDown() End If Do prevLine = ts.TopPoint.Line ts.LineDown() currLine = ts.TopPoint.Line If (prevLine = currLine) Then Exit Do End If ce = ts.ActivePoint.CodeElement(vsCMElement.vsCMElementFunction) Loop While (ce Is Nothing) If (Not ce Is Nothing) Then ts.MoveToPoint(ce.GetStartPoint(vsCMPart.vsCMPartHeader)) End If ts.TopPoint.TryToShow(vsPaneShowHow.vsPaneShowCentered) ' would be nice to move the point to about 1/3 from the top instead of centered ErrorHandler: End Sub

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

'Find Function headers' macro for Visual Studio .NET

Introduction

License

Comments and Discussions