給VC++6.0加快捷註釋和取消註釋

首先在根目錄下找到你的vc++6.0，個人是在c盤的一個叫MSDev98的文件夾裏，打開文件夾後，在Macros文件夾中有下面的文件：

找到以後，先新建一個文本框，並命名爲comment.dsm，最開始的時候，我直接把程序粘貼到文本框裏，保存後，發現是txt的格式，而後想在屬性裏改格式，可是沒能成功。以後百度過不少轉換格式的，包括暴風影音也能夠在文件下的工具裏轉換dsm文件。最後是在無心間看到一個問題的回答，終於解決了問題。

在記事本里面把txt轉換成其餘格式的方法：另存爲的時候，選擇保存類型爲全部文件，而後在文件名中輸入文件名，並輸入你要的格式的後綴，好比我輸入的是commend.dsm（其實應該是comment）

在記事本里面輸入如下程序，

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， 工具->定製->附加項和宏文件，選擇commend以下：（英文版的相似）

再選擇命令，在下拉選項中選擇Macros,出現以下的，拖動CustomCommentOut放置在工具欄裏

拖動後出現以下界面，選擇本身喜歡的方式便可:

出現的效果以下：

這樣就大功告成啦

我以爲在這個過程當中，網絡的資源特別重要，不懂得多在網上查找，多看一些資料和回答，讓我對一個我不清楚的問題認識的更清楚，印象也更深入。