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

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、打开一个工程，选择多行代码，点击工具栏中的多行注释工具，这些行代码都被注释，
再选择被注释的代码，点击删除注释工具，还原代码。