如何在VC++6.0中添加批量注释和取消批量注释的功能

C++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.  最后在工具栏中，就出现了你自己定义的批量注释和消除批量注释的图标了。

 
=====================================================================================================
文中的代码：

'------------------------------------------------------------------------------
'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