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

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

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

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

在目录里面创建一个空文本，将名字命名为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

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

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

选择“macros”

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

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