广告合作
  • 今日头条

    今日头条

  • 百度一下

    百度一下,你就知道

  • 新浪网

    新浪网 - 提供新闻线索,重大新闻爆料

  • 搜狐

    搜狐

  • 豆瓣

    豆瓣

  • 百度贴吧

    百度贴吧——全球领先的中文社区

  • 首页 尚未审核订阅工具 订阅

    VC++6.0 创建多行注释的小插件

    来源:网络收集  点击:  时间:2024-05-17
    【导读】:
    广大windows编程的同志都知道VC++6.0开发环境虽然提供了丰富的功能,但是有一个致命的缺点,就是不能进行多行注释,程序猿在注释一大段代码的时候还得一行一行的注释,过程十分的繁琐。但是环境的开发者非常的有远见,提供了一些接口来允许用户扩充开发环境的功能。我们现在用VB Script脚本来实现这个功能。工具/原料moreVC++6.0开发环境方法/步骤1/11分步阅读

    在Visual C++6.0 中选择File-New命令,打开New窗口,选择Files选项卡,如图

    2/11

    在列表中选择Macro File 选项,在File文本框中输入文件名称,单击OK按钮创建宏文件,弹出New Macro File 窗口,如图所示

    3/11

    在Description备注框中输入宏文件的描述信息,单击OK按钮创建宏文件。此时,在代码编辑器中将创建一个宏文件窗口,如图

    4/11

    向宏文件中添加两个子过程,语音为VB Script, 代码如下:

    ------------------------------------------------------------------------------

    FILE DESCRIPTION: 为开发环境添加多行注释功能

    ------------------------------------------------------------------------------

    sub SetSelNote() Sum DESCRIPTION : 过程SetSelNot用于使选中的文本成为注释

    dim CurWin 当前获得的窗口

    set CurWin = ActiveWindow

    if CurWin.typeText Then 判断当前窗口是否是文本窗口

    MsgBox 当前窗口不是代码窗口

    else

    NoteType = //

    BeginLine = ActiveDocument.Selection.TopLine

    EndLine = ActiveDocument.Selection.BottomLine

    if EndLine BeginLine then

    Line = BeginLine

    BeginLine = EndLine

    EndLine = Line

    else

    for row = BeginLine To EndLine

    ActiveDocument.Selection.GoToLine row

    ActiveDocument.Selection.SelectLine 选中当前行

    ActiveDocument.Selection = NoteType + ActiveDocument.Selection

    Next

    End if

    End if

    End Sub

    Sub CancelSelNote()

    dim CurWin 当前获得的窗口

    set CurWin = ActiveWindow

    if CurWin.typeText Then 判断当前窗口是否是文本窗口

    MsgBox 当前窗口不是代码窗口

    else

    BeginLine = ActiveDocument.Selection.TopLine

    EndLine = ActiveDocument.Selection.BottomLine

    if EndLine BeginLine

    Line = BeginLine

    BeginLine = EndLine

    EndLine = Line

    else

    for row = BeginLine To EndLine

    ActiveDocument.Selection.GoToLine row

    ActiveDocument.Selection.SelectLine 选中当前行

    SelBlock = ActiveDocument.Selection

    Trim(SelBlock)

    pos = instr(SelBlock,//)

    if pos0 then

    RightBlock = Right(SelBlock,Len(SelBlock)-2)

    ActiveDocument.Selection = RightBlock

    End if

    Next

    End if

    End if

    End Sub

    5/11

    保存宏文件。选择Tools-Customize对话框,选择Add-ins and Macro Files 选项卡,如图

    6/11

    单击Browse按钮,打开浏览对话框,选择之前创建的宏文件,此时会发现它将显示在Add-ins and macro 列表中,如图

    7/11

    切换到Commands选项卡,在Category下拉列表框中选择Macros选项,在右侧的列表中会显示当前宏文件中定义的命令,如图

    8/11

    在Commands 列表中选中宏命令,将其拖动到工具栏中,此时将弹出 Button Appearance 窗口,如图

    9/11

    在Button Appearance 窗口中选中Image only 单选按钮,在Image群组框中为按钮选择一个图标,单击OK按钮完成工具栏设置

    10/11

    按照步骤(7) - (9)的方法将图中另一个宏命令添加的工具栏中。

    11/11

    在代码编辑框中选择多行代码,单击工具栏中的宏命令按钮,就可以多行注释了

    本文关键词:

    版权声明:

    1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。

    2、本站仅提供信息发布平台,不承担相关法律责任。

    3、若侵犯您的版权或隐私,请联系本站管理员删除。

    4、文章链接:http://www.1haoku.cn/art_781750.html

    相关资讯

    ©2019-2020 http://www.1haoku.cn/ 国ICP备20009186号05-06 04:34:31  耗时:0.027
    0.0268s