设置批量注释

设置批量注释

Visual C++ 6.0开发环境虽然提供了丰富的功能，但是也有不尽人意之处。例如，它没有提供批量注释和取消批量注释的功能。但是，Visual C++ 6.0开发环境的设计者还是非常有远见的，提供了一些接口允许用户扩充开发环境的功能。例如，可以使用VB Script脚本来添加新的功能。本实例将介绍使用VB Script脚本实现批量注释和取消批量注释的功能，批量注释效果如图1.49所示。

（1）在Visual C++ 6.0中选择File→New命令，打开New窗口，选择Files选项卡，如图1.50所示。

图1.49  批量注释

图1.50  New窗口

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

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

图1.51  New Macro File窗口

图1.52  宏文件窗口

（4）向宏文件中添加两个子过程，语言为VB Script，代码如下：

 

 
 
Sub SetSelNote()'Sun DESCRIPTION: 过程SetSelNote用于使选中的文本成为注释  
    dim CurWin '当前获得的窗口  
    set CurWin = ActiveWindow 
    if CurWin.type<>"Text" 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.type<>"Text" Then '判断当前窗口是否是文本窗口  
        MsgBox "当前窗口不是代码窗口"  
    else  
         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 '选中当前行  
                SelBlock = ActiveDocument.Selection  
                Trim(SelBlock)  
                pos = instr(SelBlock,"//")  
                if pos <>0 then  
                    RightRightBlock = Right(SelBlock,Len(SelBlock)-2)  
                    ActiveDocument.Selection = RightBlock 
                 End If  
            Next  
        End if  
    End if  
End Sub  

（5）保存宏文件。选择Tools→Customize命令打开Customize对话框，选择Add-ins and Macro Files选项卡，如图1.53所示。

图1.53  Add-ins and Macro Files选项卡

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

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

图1.54  导入宏文件

图1.55  导出宏命令

（8）在Commands列表中选中宏命令，将其拖动到工具栏中，此时将弹出Button Appearance窗口，如图1.56所示。

图1.56  Button Appearance窗口

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

（10）按照步骤（7）～（9）的方法将图1.55中的另一个宏命令添加到工具栏中。

（11）在代码编辑框中选中多行代码，单击工具栏中的宏命令按钮，便会发现这些代码被注释了。

心法领悟015：恢复批量注释的代码。

如果要恢复被批量注释的代码，首先选中注释掉的代码，然后单击工具栏中的另一个宏命令按钮，就会发现这些代码取消了注释。

 

http://book.51cto.com/art/201101/242717.htm