Using #region Directive With JavaScript Files in Visual Studio

OptionStrictOff
OptionExplicitOff

ImportsSystem
ImportsEnvDTE
ImportsEnvDTE80
ImportsSystem.Diagnostics
ImportsSystem.Collections

PublicModuleJsMacros

SubOutlineRegions()
DimselectionAsEnvDTE.TextSelection=DTE.ActiveDocument.Selection

ConstREGION_STARTAsString="//#region"
ConstREGION_ENDAsString="//#endregion"

selection.SelectAll()
DimtextAsString=selection.Text
selection.StartOfDocument(True)

DimstartIndexAsInteger
DimendIndexAsInteger
DimlastIndexAsInteger=0
DimstartRegionsAsStack=NewStack()

Do
startIndex=text.IndexOf(REGION_START,lastIndex)
endIndex=text.IndexOf(REGION_END,lastIndex)

IfstartIndex=-1AndAlsoendIndex=-1Then
ExitDo
EndIf

IfstartIndex<>-1AndAlsostartIndex<endIndexThen
startRegions.Push(startIndex)
lastIndex=startIndex+1
Else
'Outlineregion...
selection.MoveToLineAndOffset(CalcLineNumber(text,CInt(startRegions.Pop())),1)
selection.MoveToLineAndOffset(CalcLineNumber(text,endIndex)+1,1,True)
selection.OutlineSection()

lastIndex=endIndex+1
EndIf
Loop

selection.StartOfDocument()
EndSub

PrivateFunctionCalcLineNumber(ByValtextAsString,ByValindexAsInteger)
DimlineNumberAsInteger=1
DimiAsInteger=0

Whilei<index
Iftext.Chars(i)=vbCrThen
lineNumber+=1
i+=1
EndIf

i+=1
EndWhile

ReturnlineNumber
EndFunction

EndModule

2.然后指派一个快捷键给它

这里的快捷键是无所谓的，但一定要两个键