VC++6.0注释快捷键设置

转载自   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
plaincopy

Sub CustomCommentOut()  

'DESCRIPTION: 注释/取消<a target="_blank" style="color: #0000F0; display:inline; position:static; background:none;" href="http://www.so.com/s?q=%E6%B3%A8%E9%87%8A%E5%AE%8F&ie=utf-8&src=se_lighten_f">注释宏</a>，可处理VB和C++、<a target="_blank" style="color: #0000F0; display:inline; position:static; background:none;" href="http://www.so.com/s?q=Java%E6%B3%A8%E9%87%8A&ie=utf-8&src=se_lighten_f">Java注释</a>  

    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++、<a target="_blank" style="color: #0000F0; display:inline; position:static; background:none;" href="http://www.so.com/s?q=java&ie=utf-8&src=se_lighten_f">java</a> 注释  

                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 + /"，进行注释或取消注释。