VC++6.0注释快捷键设置

在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 plain​​ ​ ​copy​​ ​ ​print​​ ​ ​?​​

2. Sub CustomCommentOut()  
3. 'DESCRIPTION: 注释/取消注释宏，可处理VB和C++、Java注释   
4.     Dim win  
5.     set win = ActiveWindow  
6.     If win.type <> "Text" Then  
7.       MsgBox "This macro can only be run when a text editor window is active."  
8.     Else  
9.         TypeOfFile = 3  
10.         If TypeOfFile > 0 And TypeOfFile < 6 Then  
11.             If TypeOfFile > 3 Then  
12.                 CommentType = "'"   ' VB注释  
13.                 CommentWidth = 1  
14.             Else  
15.                 CommentType = "//"  ' C++、java 注释   
16.                 CommentWidth = 2  
17.             End If  
18.            
19.             StartLine = ActiveDocument.Selection.TopLine  
20.             EndLine = ActiveDocument.Selection.BottomLine  
21.             If EndLine < StartLine Then  
22.                 Temp = StartLine  
23.                 StartLine = EndLine  
24.                 EndLine = Temp  
25.             End If  
26.             ' 单行   
27.             If EndLine = StartLine Then  
28.                 ActiveDocument.Selection.StartOfLine dsFirstColumn  
29.                 ActiveDocument.Selection.CharRight dsExtend, CommentWidth  
30.                 If ActiveDocument.Selection = CommentType Then  
31.                     ActiveDocument.Selection.Delete  
32.                 Else  
33.                     ActiveDocument.Selection.StartOfLine dsFirstText  
34.                     ActiveDocument.Selection.CharRight dsExtend, CommentWidth  
35.                     If ActiveDocument.Selection = CommentType Then  
36.                         ActiveDocument.Selection.CharRight dsExtend  
37.                         ActiveDocument.Selection.Delete  
38.                     Else  
39.                         ActiveDocument.Selection.StartOfLine dsFirstText  
40.                         ActiveDocument.Selection = CommentType + vbTab + _  
41.                                         ActiveDocument.Selection  
42.                     End If  
43.                 End If  
44.             ' 多行   
45.             Else  
46.                 For i = StartLine To EndLine  
47.                     ActiveDocument.Selection.GoToLine i  
48.                     CommentLoc = dsFirstColumn  
49.                     ActiveDocument.Selection.StartOfLine CommentLoc  
50.                     ActiveDocument.Selection.CharRight dsExtend, CommentWidth  
51.                     If ActiveDocument.Selection = CommentType Then  
52.                         ActiveDocument.Selection.Delete  
53.                     Else  
54.                         ActiveDocument.Selection.StartOfLine CommentLoc  
55.                         ActiveDocument.Selection = CommentType + _  
56.                                                   ActiveDocument.Selection  
57.                     End If  
58.                 Next  
59.             End If  
60.         Else  
61.             MsgBox("Unable to comment out the highlighted text" + vbLf + _  
62.                 "because the file type was unrecognized." + vbLf + _  
63.                 "If the file has not yet been saved, " + vbLf + _  
64.                 "please save it and try again.")  
65.         End If  
66.     End If  
67. End Sub  

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"对话框。

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