VC++6.0注释快捷键设置

找到VC++6.0的安装路径下的 Microsoft Visual Studio 6.0\Common\MSDev98\Macros 路径

在该目录新建一个文本文件,并重命名为: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

此时打开VC++6.0窗口,以下步骤:

1.打开菜单栏"Tools" -> "Customize" 打开了"Customize"对话框。

2.

VC++6.0注释快捷键设置_第1张图片

3. 

VC++6.0注释快捷键设置_第2张图片

4.在代码中,只需要选中代码或者在光标所在行,执行快捷键"Ctrl + /",进行注释或取消注释。

 

文章出处:http://blog.csdn.net/gzshun/article/details/7782458

 

你可能感兴趣的:(VC)