VC++6.0注释快捷键的添加使用

在eclipse等编辑工具中都有注释代码的快捷键，但是vc++6.0没有。

vc++是以VB为脚本来控制的，在网上找到了一个VB的脚本供大家使用。

 

工具/原料

• VC++6.0

方法/步骤

1. 打开VC的路径，根据自己安装的路径打开，如果找不到可以根据快捷键的属性进行查阅。

   

    
2.  

   在目录里面创建一个空文本，将名字命名为comment.dsm

   在文件里面添加一下代码：

   Sub CustomCommentOut()

   'DESCRIPTION: 注释/取消注释宏，可处理VB和C++、Java注释

   Dim win

   set win = ActiveWindow

   If win.type <> "Text" Then

   MsgBox "This macro can only be run when a text editor window is active."

   Else

   TypeOfFile = 3

   If TypeOfFile > 0 And TypeOfFile < 6 Then

   If TypeOfFile > 3 Then

   CommentType = "'"   ' VB注释

   CommentWidth = 1

   Else

   CommentType = "//"  ' C++、java 注释

   CommentWidth = 2

   End If

   StartLine = ActiveDocument.Selection.TopLine

   EndLine = ActiveDocument.Selection.BottomLine

   If EndLine < StartLine Then

   Temp = StartLine

   StartLine = EndLine

   EndLine = Temp

   End If

   ' 单行

   If EndLine = StartLine Then

   ActiveDocument.Selection.StartOfLine dsFirstColumn

   ActiveDocument.Selection.CharRight dsExtend, CommentWidth

   If ActiveDocument.Selection = CommentType Then

   ActiveDocument.Selection.Delete

   Else

   ActiveDocument.Selection.StartOfLine dsFirstText

   ActiveDocument.Selection.CharRight dsExtend, CommentWidth

   If ActiveDocument.Selection = CommentType Then

   ActiveDocument.Selection.CharRight dsExtend

   ActiveDocument.Selection.Delete

   Else

   ActiveDocument.Selection.StartOfLine dsFirstText

   ActiveDocument.Selection = CommentType + vbTab + _

   ActiveDocument.Selection

   End If

   End If

   ' 多行

   Else

   For i = StartLine To EndLine

   ActiveDocument.Selection.GoToLine i

   CommentLoc = dsFirstColumn

   ActiveDocument.Selection.StartOfLine CommentLoc

   ActiveDocument.Selection.CharRight dsExtend, CommentWidth

   If ActiveDocument.Selection = CommentType Then

   ActiveDocument.Selection.Delete

   Else

   ActiveDocument.Selection.StartOfLine CommentLoc

   ActiveDocument.Selection = CommentType + _

   ActiveDocument.Selection

   End If

   Next

   End If

   Else

   MsgBox("Unable to comment out the highlighted text" + vbLf + _

   "because the file type was unrecognized." + vbLf + _

   "If the file has not yet been saved, " + vbLf + _

   "please save it and try again.")

   End If

   End If

   End Sub

   

    
3.  

   打开软件，找到“工具”选择“定制”。

   

    
4.  

   在弹出的窗口中选择“附加项和宏文件”将“comment”复选框选中，然后单击“键盘”

   

    
5.  

   选择“macros”

   

    
6.  

   添加新的快捷键"Ctrl+/"或按照自己喜欢的快捷方式设置。

   

    
7.  

   ok，下面是使用的情况，快捷键是可以使用的。

   

    
   END

 

 

出处：http://jingyan.baidu.com/article/2c8c281df4c7d40009252a4f.html