VC++6.0注释快捷键设置

但是在VC6.0中，最不舒服的就是注释时，可惜VC6.0没有设置注释。

 

从网上发现很好的解决方案，嘻嘻，又可以与Eclispe一样喽……

以下为转载――转载地址：http://blog.csdn.net/gzshun/article/details/7782458

 

在Qt Creator，eclipse等编辑器中，都默认有注释代码的快捷键：Ctrl + /。

注释快捷键在程序编程当中的作用相当明显，提高了编程效率。我在网上找到了一个在VC++6.0工具中添加注释快捷键的方法，VC++6.0是以VB为脚本来配置的。

 

首先，找到VC++6.0的安装路径，假设在：D:\Program Files (x86)\Microsoft Visual Studio 6.0，那么进入到Common\MSDev98\Macros目录下，全路径为：D:\Program Files (x86)\Microsoft Visual Studio 6.0\Common\MSDev98\Macros。

在该目录新建一个文本文件，并重命名为：comment.dsm，并打开增加以下内容：

[vb] view plaincopyprint?

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.

3.

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