目前学习C/C++，我常用的几个IDE：VC++6.0，DEV C++，visual studio。比较频繁的操作是 多行加注释。
 
每个IDE的快捷键不同，
 
DEV C++：ctrl+/ ，取消注释同样
visual studio：ctrl+K —> ctrl+C ，取消注释：ctrl+K —> ctrl+U
 
而在VC6.0中没有自带的快捷键，需要自行设置。
 百度了一下设置方法，如下。
 
VC6.0如何设置多行注释快捷键？
 
这里，我们用VBScript脚本来添加这个功能。
 
1.首先，打开VC++6.0，选择File->New->Macro file。
 
 
2.点击确定，填写相应的描述。
 
 
3.输入代码，点击保存，关闭VC++6.0。（代码见后面）
 

 这样就在文件夹中生成了一个 .dsm 文件。
 
 4.打开一个C++文件，tools->customize。
 5.选择 Add-ins and Macro Files -> Browse选择node.dsm。
 
 6. 勾上node。
 7. 选择 Command -> Category ，选择 Macros 。
 8. 将 鼠标 按住 SetSelNote ，将其拖到工具栏中，会弹出下面的对话框。
 9. CancelSelNote的做法与SetSelNote一样。
 10.最后在工具栏中，就出现了你自己定义的批量注释和消除批量注释的图标了。
 
文中的代码：
 
'------------------------------------------------------------------------------
 'FILE DESCRIPTION: 为开发环境添加批量注释或取消注释
 '------------------------------------------------------------------------------
 
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
 RightBlock = Right(SelBlock, Len(SelBlock)-2)
 ActiveDocument.Selection = RightBlock
 End if
 Next
 End if
 End if
 End Sub
 
【转自 https://www.cnblogs.com/qiulidong/p/11736982.html】

本文转自：http://blog.163.com/fantasy_sunny/blog/static/195918212201222504855353/
 
 

 
 
VC++6.0开发环境虽然有丰富的功能，但是没有提供批量注释和取消批量注释的功能。
 
这里，我们用VBScript脚本来添加这个功能。
 
 
 
1.首先打开VC++6.0，选择File/New，然后选择要新建的文件类型。
 
 
 
 
 
2.点击确定后，填写相应的描述。
 
  
  
 3.然后输入代码，点击保存后，关闭VC++6.0。
 
  
 这样就在文件夹中生成了一个 .dsm 文件。
 
  
 
 
4. 打开一个C++工程，按照图片中的操作选择 工具——>定制 。
 
  
 5. 选择  附加项和宏文件，选择刚才制作的文件node.dsm。
 
  
 6. 勾上node。
 
  
 7.  选择  命令， 在 类别 中选择  Macros  。
 
 

 


  

 8.  将 鼠标 按住 SetSelNote ，将其拖到工具栏中，会弹出下面的对话框。

 


  

 9. CancelSelNote的做法与SetSelNote一样。

  

 10.  最后在工具栏中，就出现了你自己定义的批量注释和消除批量注释的图标了。

 
 
代码：转自：http://blog.csdn.net/yuzhoufeng888/article/details/6031227
 
 
    '------------------------------------------------------------------------------  
    'FILE DESCRIPTION: 为开发环境添加批量注释或取消注释  
    '------------------------------------------------------------------------------  
    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  
                        RightBlock = Right(SelBlock,Len(SelBlock)-2)  
                        ActiveDocument.Selection = RightBlock  
                    End if  
                Next  
            End if  
        End if  
    End Sub  
以上实现了功能，但是没有设置快捷键，我来设置快捷键： 
 
还是打开工具--->定制
 
 
点击键盘：
 
 
类别中选择Macros,然后点击命令：设置快捷键，最后点击分配即可
 

 

第一步：工具
 
 
第二步：点击定制（Customize）-键盘-All commands-选择CommentOut，在新建快捷键处填写Ctrl+/。
 
 
 
 

注释 CTRL+K+C
 
取消注释 CTRL+K+U