目前学习C/C++，我常用的几个IDE：VC++6.0，DEV C++，visual studio。比较频繁的操作是 多行加注释。
每个IDE的快捷键不同，

DEV C++：ctrl+/ ，取消注释同样
visual studio：ctrl+K —> ctrl+C ，取消注释：ctrl+K —> ctrl+U

而在VC6.0中没有自带的快捷键，需要自行设置。

百度了一下设置方法，如下。
VC6.0如何设置多行注释快捷键？
这里，我们用VBScript脚本来添加这个功能。
1.首先，打开VC++6.0，选择File->New->Macro file。

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

3.输入代码，点击保存，关闭VC++6.0。（代码见后面）


这样就在文件夹中生成了一个 .dsm 文件。



4.打开一个C++文件，tools->customize。

5.选择 Add-ins and Macro Files -> Browse选择node.dsm。



6. 勾上node。

7. 选择 Command -> Category ，选择  Macros  。

8. 将 鼠标 按住 SetSelNote ，将其拖到工具栏中，会弹出下面的对话框。

9. CancelSelNote的做法与SetSelNote一样。

10.最后在工具栏中，就出现了你自己定义的批量注释和消除批量注释的图标了。
文中的代码：
'------------------------------------------------------------------------------

'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】

 Pycharm 

Pycharm 批量注释代码：Ctrl + /
Pycharm 批量取消注释：Ctrl + /
Pycharm 批量缩进：Tab
Pycharm 批量取消缩进：Shift + Tab

 Spyder 

Spyder 批量注释代码：Ctrl + 1
Spyder 批量取消注释：Ctrl + 1
缩进：tab
反向缩进：shift+tab

 Visual Studio 

Visual Studio 批量注释代码: Ctrl+K,Ctrl+C
Visual Studio 批量取消注释: Ctrl+K,Ctrl+U

 Matlab 

Matlab 批量注释代码：Ctrl+r 或者 Ctrl+R
Matlab 批量取消注释：Ctrl+t 或者 Ctrl+T

 VC 

缩进：tab
反向缩进：shift+tab
点击查看

vc2019的快捷键
一.多行注释 : ctrl+k+c
二.多行注释取消 : ctrl + k + u
//后面待写…

取消/注释的宏，可以用于C++，java,VB
VC内使用方法：
将文件格式更改为dsm，放置于Program Files/Microsoft Visual Studio/COMMON/MSDev98/Macros目录下
打开VC——Customize——add-ins and Macro files
勾选上Comment，然后选择键盘，类别里选择Macros，CustomCommentOut设置好快捷键就可以了..
 
 
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