VC6.0 中多行代码注释工具的制作
1、打开 VC6.0,File->New->File->Macro File,在右侧名字中写入 zhushi,点击 OK。 2、 在弹出的 Description 中写入这个宏的作用。 可以随便写。 比如: 多行注释。 然后点击 OK。 3、把下边的代码复制到代码编辑框中,并保存。 Sub SetSelNote() dim CurWin set CurWin=ActiveWindow if CurWin.type<>"Text"Then MsgBox"当前窗口不是代码窗口" else NoteType="//" BeginLine=ActiveDocument.Selection.TopLine EndLine=ActiveDocument.Selection.BottomLine
if EndLine
Sub CancelSelNote() dim CurWin Set CurWin=ActiveWindow if CurWin.type<>"Text"Then MsgBox"当前窗口不是代码窗口" else BeginLine=ActiveDocument.Selection.TopLine EndLine=ActiveDocument.Selection.BottomLine
if EndLine BegineLine=EndLine EndLine=Line else for row=BeginLine to EndLine ActiveDocument.Selection.GoToLine row ActiveDocument.Selection.SelectLine SelBlock=ActiveDocument.Selection Trim(SelBock) 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 4、在菜单栏中选择 Tools->Customize->Add-ins and Macro Files 选项卡,点击 Browse…,选择 刚保存的 zhushi.dsm 5、选择 Commends 选项卡,在 Category 栏目中选择 Macros,右边会显示定义的两个工具 SetSelNote 和 CancelSelNote。 6、点击 SetSelNote 拖动到 VC 环境的工具栏空白处添加多行注释工具,在弹出的窗口选择 一个工具图标,同样,也添加一个 CancelSelNote 的工具。 7、打开一个工程,选择多行代码,点击工具栏中的多行注释工具,这些行代码都被注释, 再选择被注释的代码,点击删除注释工具,还原代码。