VC 6.0 快捷键添加/取消注释

最新推荐文章于 2020-04-20 19:12:25 发布

转载最新推荐文章于 2020-04-20 19:12:25 发布 · 699 阅读

文章标签：

#macros #java #vb #c++ #file #c

VC 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种在Visual C++中实现代码注释与取消注释的方法，通过自定义宏来快速处理C++, Java和VB等语言的注释操作。用户可以通过设置快捷键来提高编程效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

取消/注释的宏，可以用于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