VisualStudio实现JS代码折叠功能

环境

目前创新互联已为成百上千家的企业提供了网站建设、域名、网页空间、网站运营、企业网站设计、安国网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

Microsoft Visual Studio 2008

正文

1. 打开宏资源管理器:视图 -> 其他窗口 -> 宏资源管理器

2. 创建一个新模块

3.编辑宏:选中模块 -> 右键编辑

 
 
 
 
  
  
  
  Option Strict Off 
  
  
  
  Option Explicit Off 
  
  
  
  Imports System 
  
  
  
  Imports EnvDTE 
  
  
  
  Imports EnvDTE80 
  
  
  
  Imports System.Diagnostics 
  
  
  
  Imports System.Collections 
  
  
  
  Public Module JsMacros 
  
  
  
      Sub OutlineRegions() 
  
  
  
          Dim selection As EnvDTE.TextSelection = DTE.ActiveDocument.Selection 
  
  
  
          Const REGION_START As String = "//#region"
  
  
  
          Const REGION_END As String = "//#endregion"
  
  
  
          selection.SelectAll() 
  
  
  
          '农民伯伯 --- 自动为"//#endregion"结束的代码添加***一行，不然出错 
  
  
  
          If selection.Text.EndsWith(REGION_END) Then 
  
  
  
              selection.EndOfLine() 
  
  
  
              selection.NewLine() 
  
  
  
              selection.SelectAll() 
  
  
  
          End If 
  
  
  
          Dim text As String = selection.Text 
  
  
  
          selection.StartOfDocument(True) 
  
  
  
          Dim startIndex As Integer 
  
  
  
          Dim endIndex As Integer 
  
  
  
          Dim lastIndex As Integer = 0
  
  
  
          Dim startRegions As Stack = New Stack() 
  
  
  
          Do 
  
  
  
              startIndex = text.IndexOf(REGION_START, lastIndex) 
  
  
  
              endIndex = text.IndexOf(REGION_END, lastIndex) 
  
  
  
              If startIndex = -1 AndAlso endIndex = -1 Then 
  
  
  
                  Exit Do 
  
  
  
              End If 
  
  
  
              If startIndex <> -1 AndAlso startIndex < endIndex Then 
  
  
  
                  startRegions.Push(startIndex) 
  
  
  
                  lastIndex = startIndex + 1 
  
  
  
              Else 
  
  
  
                  ' Outline region  
  
  
  
                  selection.MoveToLineAndOffset(CalcLineNumber(text, CInt(startRegions.Pop())), 1) 
  
  
  
                  selection.MoveToLineAndOffset(CalcLineNumber(text, endIndex) + 1, 1, True) 
  
  
  
                  selection.OutlineSection() 
  
  
  
                  lastIndex = endIndex + 1 
  
  
  
              End If 
  
  
  
          Loop 
  
  
  
          selection.StartOfDocument() 
  
  
  
      End Sub 
  
  
  
      Private Function CalcLineNumber(ByVal text As String, ByVal index As Integer) 
  
  
  
          Dim lineNumber As Integer = 1
  
  
  
          Dim i As Integer = 0
  
  
  
          While i < index
  
  
  
              If text.Chars(i) = vbCr Then 
  
  
  
                  lineNumber += 1 
  
  
  
                  i += 1 
  
  
  
              End If 
  
  
  
              i += 1 
  
  
  
          End While 
  
  
  
          Return lineNumber 
  
  
  
      End Function 
  
  
  
  End Module

保存即可。这里可以省去新建宏的步骤，他会根据代码自动给你生成一个宏的。

注意我加的代码段，如果不加，并且你的JS***一行为#endregion，宏将报错，显示“值不在预期的范围内”。

4.设置快捷键

4.1工具 -> 选项 - > 环境 -> 键盘

4.2在显示命令包含下面的文本框中输入宏名outli，不用输全，下面能显示你新建的宏

4.3点一下按快捷键下面的文本框，然后自定义快捷键组合，我定义的是Ctrl+M,Ctrl+J，点分配(别忘了！)，点确定。

5.效果

5.1输入代码:

 
 
 
 
  
  
  
  //aasdsadsad 
  
  
  
  //#region 
  
  
  
  //#endregion

5.2快捷键Ctrl+M,Ctrl+J启动宏，能看到系统的右下角显示可爱的小方块在转动，js编辑框显示效果如下：

5.3之后就可以用快捷键Ctrl+M,Ctrl+L来[展开/折叠]代码了，注意关闭之后重新打开需要再启动一次宏，展开效果如下:

结束

想到不如做到，但做之前要是能先Google一下也许能事半功倍。

网站标题：VisualStudio实现JS代码折叠功能
文章出自：http://www.csdahua.cn/qtweb/news19/545869.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：快上网

成都快上网为您推荐相关内容