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

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

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

 

工具/原料

• VC++6.0

方法/步骤

2. 打开VC的路径，根据自己安装的路径打开，如果找不到可以根据快捷键的属性进行查阅。
    
    
   
    
   
    
3.  
   
   在目录里面创建一个空文本，将名字命名为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  
   
   
    
4.  
   
   打开软件，找到“工具”选择“定制”。
   
   
    
5.  
   
   在弹出的窗口中选择“附加项和宏文件”将“comment”复选框选中，然后单击“键盘”
   
   
    
6.  
   
   选择“macros”
   
   
    
7.  
   
   添加新的快捷键"Ctrl+/"或按照自己喜欢的快捷方式设置。
   
   
    
8.  
   
   ok，下面是使用的情况，快捷键是可以使用的。
   
   
    
   END