VC++6.0注释快捷键的添加使用

在eclipse等编辑工具中都有注释代码的快捷键，但是vc++6.0没有。

vc++是以VB为脚本来控制的，在网上找到了一个VB的脚本供大家使用。

 

工具/原料

• VC++6.0

方法/步骤

1. 打开VC的路径，根据自己安装的路径打开，如果找不到可以根据快捷键的属性进行查阅。

    

    

   

    

    
2.  

   在目录里面创建一个空文本，将名字命名为comment.dsm

   在文件里面添加一下代码：

   Sub CustomCommentOut()  

   'DESCRIPTION: 注释/取消注释宏，可处理VB和C++、Java注释  

       Dim win  

       set win = ActiveWindow  

       If win.type <> "Text" Then  

         MsgBox "This macro can only be run when a text editor window is active."  

       Else  

           TypeOfFile = 3  

           If TypeOfFile > 0 And TypeOfFile < 6 Then  

               If TypeOfFile > 3 Then  

                   CommentType = "'"   ' VB注释  

                   CommentWidth = 1  

               Else  

                   CommentType = "//"  ' C++、java 注释  

                   CommentWidth = 2  

               End If  

              

               StartLine = ActiveDocument.Selection.TopLine  

               EndLine = ActiveDocument.Selection.BottomLine  

               If EndLine < StartLine Then  

                   Temp = StartLine  

                   StartLine = EndLine  

                   EndLine = Temp  

               End If  

               ' 单行  

               If EndLine = StartLine Then  

                   ActiveDocument.Selection.StartOfLine dsFirstColumn  

                   ActiveDocument.Selection.CharRight dsExtend, CommentWidth  

                   If ActiveDocument.Selection = CommentType Then  

                       ActiveDocument.Selection.Delete  

                   Else  

                       ActiveDocument.Selection.StartOfLine dsFirstText  

                       ActiveDocument.Selection.CharRight dsExtend, CommentWidth  

                       If ActiveDocument.Selection = CommentType Then  

                           ActiveDocument.Selection.CharRight dsExtend  

                           ActiveDocument.Selection.Delete  

                       Else  

                           ActiveDocument.Selection.StartOfLine dsFirstText  

                           ActiveDocument.Selection = CommentType + vbTab + _  

                                           ActiveDocument.Selection  

                       End If  

                   End If  

               ' 多行  

               Else  

                   For i = StartLine To EndLine  

                       ActiveDocument.Selection.GoToLine i  

                       CommentLoc = dsFirstColumn  

                       ActiveDocument.Selection.StartOfLine CommentLoc  

                       ActiveDocument.Selection.CharRight dsExtend, CommentWidth  

                       If ActiveDocument.Selection = CommentType Then  

                           ActiveDocument.Selection.Delete  

                       Else  

                           ActiveDocument.Selection.StartOfLine CommentLoc  

                           ActiveDocument.Selection = CommentType + _  

                                                     ActiveDocument.Selection  

                       End If  

                   Next  

               End If  

           Else  

               MsgBox("Unable to comment out the highlighted text" + vbLf + _  

                   "because the file type was unrecognized." + vbLf + _  

                   "If the file has not yet been saved, " + vbLf + _  

                   "please save it and try again.")  

           End If  

       End If  

   End Sub  

   

    
3.  

   打开软件，找到“工具”选择“定制”。

   

    
4.  

   在弹出的窗口中选择“附加项和宏文件”将“comment”复选框选中，然后单击“键盘”

   

    
5.  

   选择“macros”

   

    
6.  

   添加新的快捷键"Ctrl+/"或按照自己喜欢的快捷方式设置。

   

    
7.  

   ok，下面是使用的情况，快捷键是可以使用的。

   

    
   END

 

 

出处：http://jingyan.baidu.com/article/2c8c281df4c7d40009252a4f.html