StrataFrame Forum » Updates and Information » StrataFrame Users Contributed Samples » Fun with Macros

Fun with Macros

Charles R Hankey — Fri, 18 Apr 2008 12:09:13 GMT

In VFP I enjoyed the comment / uncomment right click menu option for blocks of code. The closest I've been able to find in the VB 2008 IDE is a macro sample to comment and nothing to uncomment. Soooo, this may be old hat to experienced VS users but if you're a newbie like me you may find this useful :

Tools / Customize / Macros

Now you can drag that Samples.VSEditor.CommentRegion right onto a toolbar. Then, with the Customize dialog still open, right click on what you dragged onto the bar and select Default Style

Which will reduce it to a blank icon and then pick Chang Button Image to give it an icon.

Okay, now if you hightlight a block of text in code it will all be commented out with single quotes

But what of uncommenting ?

I wrote this macro which you can paste into the macro file that comes up when you open the Macros IDE ( you can drag that out of Tools in customize and onto a menu )

[codesnippet]

Sub UncommentBlock()

Dim current As String

current = DTE.Activedocument.Name

DTE.ExecuteCommand("Edit.Find")

DTE.ExecuteCommand("Edit.SwitchtoQuickReplace")

DTE.ExecuteCommand("Edit.SelectAll")

DTE.Windows.Item(current).Activate()

DTE.Find.FindWhat = "'"

DTE.Find.ReplaceWith = ""

DTE.Find.Target = vsFindTarget.vsFindTargetCurrentDocumentSelection

DTE.Find.MatchCase = False

DTE.Find.MatchWholeWord = False

DTE.Find.MatchInHiddenText = True

DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral

DTE.Find.ResultsLocation = vsFindResultsLocation.vsFindResultsNone

DTE.Find.Action = vsFindAction.vsFindActionReplaceAll

If (DTE.Find.Execute() = vsFindResult.vsFindResultNotFound) Then

Throw New System.Exception("vsFindResultNotFound")

End If

DTE.Windows.Item("{CF2DDC32-8CAD-11D2-9302-005345000000}").Close()

End Sub

[/codesnippet]

Just does a search and replace for ' inside a highlighted block

As soon as you save the macro file, you'll find that one the same place you found the CommentRegion() and you can put it on a toolbar the same way.

I'll put the tasklist thing in a separate message.

RE: Fun with Macros

Greg McGuffey — Fri, 18 Apr 2008 12:09:13 GMT

[quote]Goes along with my life maxim that most of the valuable stuff I know I learned on my way to looking up something else :)[/quote]

Ahmen! And I learned a lot about marcos from your example :D

RE: Fun with Macros

Ivan George Borges — Fri, 18 Apr 2008 08:37:56 GMT

Hey, thanks for the links Charles. ;)

RE: Fun with Macros

Charles R Hankey — Thu, 17 Apr 2008 22:37:38 GMT

gotta remember to google !!!

http://blogs.msdn.com/vbteam/archive/2007/04/24/save-time-use-keyboard-shortcuts-lisa-feigenbaum.aspx

http://www.microsoft.com/downloads/details.aspx?FamilyID=6bb41456-9378-4746-b502-b4c5f7182203&DisplayLang=en

RE: Fun with Macros

Charles R Hankey — Thu, 17 Apr 2008 22:27:02 GMT

[quote]Do you know about the keyboard shortcuts?[/quote]

Obviously no :blush:

Seemed like there should be something like that but darned if I could find them ( where shoulld I have been looking to find a list of such shortcuts? )

Oh well, learned a lot of cool stuff about macros along the way.

Goes along with my life maxim that most of the valuable stuff I know I learned on my way to looking up something else :)

RE: Fun with Macros

Trent L. Taylor — Thu, 17 Apr 2008 08:17:52 GMT

[quote]Do you know about the keyboard shortcuts?

Highlight the code desired and then
Ctl +k+c to comment
Ctl +k+u to uncomment [/quote]

Very close and personal friends :D

RE: Fun with Macros

Greg McGuffey — Wed, 16 Apr 2008 23:06:08 GMT

Do you know about the keyboard shortcuts?

Highlight the code desired and then
Ctl +k+c to comment
Ctl +k+u to uncomment

RE: Fun with Macros

Charles R Hankey — Wed, 16 Apr 2008 13:35:15 GMT

And here's the comment / task list token macro :

[codesnippet]

'And you can customize this even further by using YOUR initials instead of mine :-)

Sub InsertCRH()

Dim textSelection As EnvDTE.TextSelection

textSelection = CType(DTE.Activedocument.Selection(), EnvDTE.TextSelection)

textSelection.Text = "' CRH: " & System.DateTime.Now.ToString() & CrLf _

& "' "

End Sub

[/codesnippet]

See prior message for putting it on a toolbar and my message about snippets in General .NET section to see about the method and reasons to put your initials into a task list token

Charles