VC6.0中有什么快捷键可以注释多行语句吗?
发布网友
发布时间:2022-04-24 00:35
我来回答
共4个回答
热心网友
时间:2023-10-15 18:56
第一步:工具栏上右键选择Customize(自定义),选择“Add-ins and Macro Files(附加项和宏文件)”页,把SAMPLE前面打上钩。
第二步:选择“Commands(命令)”页,Category(类别)选Macros,然后在Commands中把CommentOut(注释)拖曳到工具栏快捷方式。
第三步:选择“Keyboard”tab页,还是Category选Macros,选中CommentOut,然后换到“Press new shortcut key”,设置快捷键ALT+/,如下图所示,单击分配后确认即完成设置。
热心网友
时间:2023-10-15 18:56
vc++6.0多行注释宏命令代码,
Sub CustomCommentOut()
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
StartLine = ActiveDocument.Selection.TopLine
EndLine = ActiveDocument.Selection.BottomLine
If EndLine < StartLine Then
Temp = StartLine
StartLine = EndLine
EndLine = Temp
End If
For i = StartLine To EndLine
ActiveDocument.Selection.GoToLine i
ActiveDocument.Selection =+ "//"
Next
End If
End Sub
Sub CustomCancelSelNote()
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
BeginLine = ActiveDocument.Selection.TopLine
EndLine = ActiveDocument.Selection.BottomLine
If EndLine < BeginLine Then
Temp = StartLine
StartLine = EndLine
EndLine = Temp
End If
For i = BeginLine To EndLine
ActiveDocument.Selection.GoToLine i
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 Sub
热心网友
时间:2023-10-15 18:57
楼下正解。不过不需要什么工具栏界面。在英文输出发下面。选中(注意要选中)需要的语句块。然后按下下“/”这个键,就搞定。
热心网友
时间:2023-10-15 18:57
装一个VisualAssistX插件
很强大的功能自动识别各种关键字,系统函数,成员变量,自动给出输入提示,自动更正大小写错误,自动标示错误 。。。。
或者手动 /* */不过不如我说的那个软件方便,那里面有“//”的快捷键,可以注释多行,还恩那个取消注释追问这个我装了,我就是想知道怎么样才能多行注释,有什么快捷键,我不能100行每一行前面都用//吧?我说的不是/* ..... */哈!有什么办法可以在选中了几行之后按下什么快捷键可以自动在每一行的前面加上//呢?
追答那里面有“//”的快捷键,在工具栏里面
热心网友
时间:2023-10-15 18:56
第一步:工具栏上右键选择Customize(自定义),选择“Add-ins and Macro Files(附加项和宏文件)”页,把SAMPLE前面打上钩。
第二步:选择“Commands(命令)”页,Category(类别)选Macros,然后在Commands中把CommentOut(注释)拖曳到工具栏快捷方式。
第三步:选择“Keyboard”tab页,还是Category选Macros,选中CommentOut,然后换到“Press new shortcut key”,设置快捷键ALT+/,如下图所示,单击分配后确认即完成设置。
热心网友
时间:2023-10-15 18:56
vc++6.0多行注释宏命令代码,
Sub CustomCommentOut()
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
StartLine = ActiveDocument.Selection.TopLine
EndLine = ActiveDocument.Selection.BottomLine
If EndLine < StartLine Then
Temp = StartLine
StartLine = EndLine
EndLine = Temp
End If
For i = StartLine To EndLine
ActiveDocument.Selection.GoToLine i
ActiveDocument.Selection =+ "//"
Next
End If
End Sub
Sub CustomCancelSelNote()
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
BeginLine = ActiveDocument.Selection.TopLine
EndLine = ActiveDocument.Selection.BottomLine
If EndLine < BeginLine Then
Temp = StartLine
StartLine = EndLine
EndLine = Temp
End If
For i = BeginLine To EndLine
ActiveDocument.Selection.GoToLine i
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 Sub
热心网友
时间:2023-10-15 18:57
楼下正解。不过不需要什么工具栏界面。在英文输出发下面。选中(注意要选中)需要的语句块。然后按下下“/”这个键,就搞定。
热心网友
时间:2023-10-15 18:57
装一个VisualAssistX插件
很强大的功能自动识别各种关键字,系统函数,成员变量,自动给出输入提示,自动更正大小写错误,自动标示错误 。。。。
或者手动 /* */不过不如我说的那个软件方便,那里面有“//”的快捷键,可以注释多行,还恩那个取消注释追问这个我装了,我就是想知道怎么样才能多行注释,有什么快捷键,我不能100行每一行前面都用//吧?我说的不是/* ..... */哈!有什么办法可以在选中了几行之后按下什么快捷键可以自动在每一行的前面加上//呢?
追答那里面有“//”的快捷键,在工具栏里面