1.4.3　基本功训练3--批量注释

视频讲解：光盘\mr\01\lx\批量注释.exe

实例位置：光盘\mr\01\zmhh\03

Visual C++(www.cppentry.com) 6.0开发环境虽然提供了丰富的功能，但是也有不尽人意之处。例如，它没有提供批量注释和取消批量注释的功能。不过，Visual C++(www.cppentry.com) 6.0开发环境的设计者还是非常有远见的，它提供了一些接口允许用户扩充开发环境的功能。例如，可以使用VBScript脚本来添加新的功能。下面详细介绍使用VBScript脚本实现批量注释和取消批量注释的功能。

（1）在Visual C++(www.cppentry.com) 6.0中选择File/New命令，打开New对话框，选择Files选项卡，如图1.33所示。

图1.33  New对话框

（2）在左侧列表框中选择Macro File选项，在File编辑框中输入文件名称，单击OK按钮，弹出New Macro File（新建宏文件）对话框，如图1.34所示。

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

图1.34  New Macro File（新建宏文件）对话框

图1.35  宏文件代码窗口

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(SelBock)  
                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.36所示。

（6）单击Browse按钮，在弹出的浏览对话框中选择之前创建的宏文件，单击Open按钮，返回Customize对话框后，即可发现它显示在Add-ins and macro列表框中，如图1.37所示。

图1.36  Add-ins and Macro Files选项卡

图1.37  导入宏文件

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

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

图1.38  导出宏命令

图1.39  Button Appearance对话框

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

（10）在代码编辑窗口中选中多行代码，单击工具栏中的宏命令按钮，即可发现这些代码被注释了，如图1.40所示。

图1.40  注释窗口