首先在Visual C++ 6.0的安装目录下“Microsoft Visual Studio\Common\MSDev98\Macros”中新建一个txt文件,复制如下代码到文件中:
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
然后把文件保存为Comment.dsm,注意文件后缀为dsm,文件类型也要更改。
打开VC6.0,Tools-Customize
打开Add-ins and Macro Files标签页,在下面勾上刚刚新建的文件名Comment,如果没有,点击下面的Browse找到自己保存的文件。
打开Commands标签页,下拉Category找到Macros,右边会出现CancelSelNote和SetSelNote,分别代表取消注释和添加注释的功能。
用左键选中CancelSelNote或SetSelNote不放,把它们拖动到工具栏上,然后放手,会弹出下面的对话框,让你给这个功能选择一个图标,可以随意选择,然后确定即可。
最后效果如下:
注意:
当你用【取消注释】这个功能时,它会删除选中行的前两个字符。。。
正常情况下,删除的是每一行前面“//”这两个字符,但是,有时候,你选中多行时,如果其中有1行是不带注释的,那么,它也会删除这行的前两个字符。自己可以慢慢试一下,就清楚了。
所以,在使用【 取消注释 】功能时,要慎用。