VC++6.0注释快捷键设置

本文介绍如何在VC++6.0中添加注释快捷键Ctrl+/,通过编写宏实现对VB、C++及Java代码的快速注释与取消注释,提高编程效率。

在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,并打开增加以下内容:

 

 

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
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 + /",进行注释或取消注释。

 本文转自二郎三郎博客园博客,原文链接:http://www.cnblogs.com/haore147/p/3919544.html,如需转载请自行联系原作者

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值