VC6.0多行代码注释工具，VC6.0怎么添加多行注释

http://www.84kf.com/html/9523.html

内容摘要：http://www.bcwhy.com/thread-15038-1-1.html1、打开VC6.0，File->New->File->Macro File,在右侧名字中写入 zhushi，点击OK。2、在弹出的Description中写入这个宏的作用。可以随...

http://www.bcwhy.com/thread-15038-1-1.html

1、打开VC6.0，File->New->File->Macro File,在右侧名字中写入 zhushi，点击OK。
2、在弹出的Description中写入这个宏的作用。可以随便写。比如：多行注释。然后点击OK。
3、把下边的代码复制到代码编辑框中，并保存。

1. Sub SetSelNote()
   
2.     dim CurWin
   
3.     set CurWin=ActiveWindow
   
4.     if CurWin.type<>"Text"Then
   
5.          MsgBox"当前窗口不是代码窗口"
   
6.     else
   
7.               NoteType="//"
   
8.                     BeginLine=ActiveDocument.Selection.TopLine
   
9.                     EndLine=ActiveDocument.Selection.BottomLine
   
10.                     
    
11.          if EndLine<BottomLine then
    
12.               Line=BeginLine
    
13.                          BegineLine=EndLine
    
14.                          EndLine=Line
    
15.          else
    
16.                    for row=BeginLine to EndLine
    
17.                              ActiveDocument.Selection.GoToLine row
    
18.                              ActiveDocument.Selection.SelectLine
    
19.                              ActiveDocument.Selection=NoteType+ActiveDocument.Selection
    
20.                          Next
    
21.                     End if
    
22.      End if
    
23. End Sub
    
24. Sub CancelSelNote()
    
25.     dim CurWin
    
26.     Set CurWin=ActiveWindow
    
27.     if CurWin.type<>"Text"Then
    
28.          MsgBox"当前窗口不是代码窗口"
    
29.     else
    
30.                     BeginLine=ActiveDocument.Selection.TopLine
    
31.                     EndLine=ActiveDocument.Selection.BottomLine
    
32.                     
    
33.          if EndLine<BottomLine then
    
34.               Line=BeginLine
    
35.                          BegineLine=EndLine
    
36.                          EndLine=Line
    
37.          else
    
38.                    for row=BeginLine to EndLine
    
39.                              ActiveDocument.Selection.GoToLine row
    
40.                              ActiveDocument.Selection.SelectLine
    
41.                              SelBlock=ActiveDocument.Selection
    
42.                   Trim(SelBock)
    
43.                                        pos=instr(SelBlock,"//")
    
44.                                         if pos<>0 then
    
45.                                            RightBlock=Right(SelBlock,Len(SelBlock)-2)
    
46.                                                  ActiveDocument.Selection=RightBlock
    
47.                                        End if
    
48.                          Next
    
49.                     End if
    
50.      End if
    
51. End Sub

复制代码

4、在菜单栏中选择Tools->Customize->Add-ins and Macro Files选项卡，点击Browse…，选择刚保存的zhushi.dsm 
5、选择Commends选项卡，在Category栏目中选择Macros，右边会显示定义的两个工具SetSelNote和CancelSelNote。
6、点击SetSelNote拖动到VC环境的工具栏空白处添加多行注释工具，在弹出的窗口选择一个工具图标，同样，也添加一个CancelSelNote的工具。
7、打开一个工程，选择多行代码，点击工具栏中的多行注释工具，这些行代码都被注释，
再选择被注释的代码，点击删除注释工具，还原代码。