VC++6.0 多行注释/取消注释 快捷键

时间:2024-03-23 13:19:37

目前学习C/C++,我常用的几个IDE:VC++6.0,DEV C++,visual studio。比较频繁的操作是 多行加注释

每个IDE的快捷键不同,

  1. DEV C++:ctrl+/ ,取消注释同样
  2. visual studio:ctrl+K —> ctrl+C ,取消注释:ctrl+K —> ctrl+U

而在VC6.0中没有自带的快捷键,需要自行设置。
百度了一下设置方法,如下。

VC6.0如何设置多行注释快捷键?

这里,我们用VBScript脚本来添加这个功能。

1.首先,打开VC++6.0,选择File->New->Macro file。

VC++6.0 多行注释/取消注释 快捷键

2.点击确定,填写相应的描述。

VC++6.0 多行注释/取消注释 快捷键

3.输入代码,点击保存,关闭VC++6.0。(代码见后面)

VC++6.0 多行注释/取消注释 快捷键
这样就在文件夹中生成了一个 .dsm 文件。
VC++6.0 多行注释/取消注释 快捷键
4.打开一个C++文件,tools->customize。VC++6.0 多行注释/取消注释 快捷键
5.选择 Add-ins and Macro Files -> Browse选择node.dsm。
VC++6.0 多行注释/取消注释 快捷键
6. 勾上node。VC++6.0 多行注释/取消注释 快捷键
7. 选择 Command -> Category ,选择 Macros 。VC++6.0 多行注释/取消注释 快捷键
8. 将 鼠标 按住 SetSelNote ,将其拖到工具栏中,会弹出下面的对话框。VC++6.0 多行注释/取消注释 快捷键
9. CancelSelNote的做法与SetSelNote一样。
10.最后在工具栏中,就出现了你自己定义的批量注释和消除批量注释的图标了。VC++6.0 多行注释/取消注释 快捷键

文中的代码

'------------------------------------------------------------------------------
'FILE DESCRIPTION: 为开发环境添加批量注释或取消注释
'------------------------------------------------------------------------------

Sub SetSelNote()'Sun DESCRIPTION: 过程SetSelNote 用于将选中的文本转换为注释
dim CurWin '当前获得的窗口
set CurWin = ActiveWindow
if CurWin.type<>“Text” Then '判断当前窗口是否是文本窗口
MsgBox “当前窗口不是代码窗口”
else
NoteType = “//”
BeginLine = ActiveDocument.Selection.TopLine
EndLine = ActiveDocument.Selection.BottomLine
if EndLine < BeginLine then
Line = BeginLine
BeginLine = EndLine
EndLine = Line
else
for row = BeginLine To EndLine
ActiveDocument.Selection.GoToLine row
ActiveDocument.Selection.SelectLine’选中当前行
ActiveDocument.Selection = NoteType + ActiveDocument.Selection
Next
End if
End if
End Sub
Sub CancelSelNote()
dim CurWin '当前获得的窗口
set CurWin = ActiveWindow
if CurWin.type<>“Text” Then '判断当前窗口是否是文本窗口
MsgBox “当前窗口不是代码窗口”
else
BeginLine = ActiveDocument.Selection.TopLine
EndLine = ActiveDocument.Selection.BottomLine
if EndLine < BeginLine then
Line = BeginLine
BeginLine = EndLine
EndLine = Line
else
for row = BeginLine To EndLine
ActiveDocument.Selection.GoToLine row
ActiveDocument.Selection.SelectLine’选中当前行
SelBlock = ActiveDocument.Selection
Trim(SelBlock)
pos = instr(SelBlock,"//")
if pos <>0 then
RightBlock = Right(SelBlock, Len(SelBlock)-2)
ActiveDocument.Selection = RightBlock
End if
Next
End if
End if
End Sub

【转自 https://www.cnblogs.com/qiulidong/p/11736982.html】