vc6.0中添加快捷注释

恕我孤陋寡闻，数月前才知道2005里有很多ctrl+某键的快捷方式，最常用的ctrl+k、ctrl+c批量注释 和ctrl+k、ctrl+u批量取消注释。现在突然想在本本上用，只有6.0，找了个方法，可行，如下：

打开记事本，输入如下代码：

 

Sub CommentBlock()
With ActiveDocument.Selection
'对于当前窗口打开的文档中选中的文本
    .ReplaceText "%", "//", dsMatchRegExpB
'在开始位置增加 // 注释
End With
End Sub

Sub UncommentBlock()
With ActiveDocument.Selection
   .ReplaceText "%//", "", dsMatchRegExpB
   '同样的，去掉在选择文本中开头找到的注释符号
End With
End Sub

 

安装使用这个宏文件：

1、把这个文件命名为COMMENTMAC.dsm，保存到你的VS安装目录下的O:\VS6\Common\MSDev98\Macros中；

2、在VS6的工具条上按下右键，点击Customize下

1）、ADD-INS and Macro Files属性页，选择COMMENTMAC”；

2）、选择keyboard属性页，category下选Macros，为Commands选择快捷键

大功告成。

如图置顶。