VC++6.0注释快捷键的添加使用

打开VC的路径，根据自己安装的路径打开，如果找不到可以根据快捷键的属性进行查阅。

在目录里面创建一个空文本，将名字命名为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

打开软件，找到“工具”选择“定制”。

在弹出的窗口中选择“附加项和宏文件”将“comment”复选框选中，然后单击“键盘”

选择“macros”

添加新的快捷键'Ctrl+/'或按照自己喜欢的快捷方式设置。

ok，下面是使用的情况，快捷键是可以使用的。