Visual Studio 2010: Highlight Text and CSS Comment

Question

Consider a CSS snippet from a .css file in Visual Studio 2010 so that you can comment on it.

Usually Ctrl + E , Ctrl + C will comment on the selected HTML and other source code.

But highlighting the CSS code and executing this combo shortcut leads to a warning:

The key combination is tied to a command (comment), which is currently unavailable.

Is there a toolbar or keyboard shortcut in Visual Studio 2010 to comment on selected CSS text?

Answer 1

The Comment command is not available for css files.

However, you can create a simple macro and assign it a keyboard shortcut ...

Sub CommentCSS() Dim selection As String selection = DTE.ActiveDocument.Selection.Text selection = "/*" + selection + " */" DTE.ActiveDocument.Selection.Text = selection End Sub 

To “uncomment” the choice, use another simple macro:

 Sub UncommentCSS() Dim selection As String selection = DTE.ActiveDocument.Selection.Text selection = selection.Remove(0, 2) selection = selection.Remove(selection.Length - 2, 2) DTE.ActiveDocument.Selection.Text = selection End Sub 

Answer 2

 Option Strict Off Option Explicit Off Imports System Imports EnvDTE Imports EnvDTE80 Imports EnvDTE90 Imports EnvDTE90a Imports EnvDTE100 Imports System.Diagnostics Public Module RecordingModule 'Document Comment[English Version] 'Author:kai cui([e-mail]) 'BuildTime:2010-7-8 15:26:19 'Purpose:To patch the bug of Visual Studio 2010 can not make correct comments of css '文档注释[简体中文] '作者:崔凯([e-mail]) '创建时间:2010年7月8日15:30:24 '目的:修正Visual Studio 2010对CSS添加的错误注释Sub CommentCSS() 'ref:VSEditor.CommentRegion() 'source code: ' '' CommentRegion 将面向行的注释语法放在' '' 所选内容涉及的每一行的行首，并创建撤消操作' '' 以便对编辑的所有行仅执行一次撤消操作。 ' '' 'Sub CommentRegion() ' Dim selection As EnvDTE.TextSelection ' Dim startPoint As EnvDTE.EditPoint ' Dim endPoint As TextPoint ' Dim commentStart As String ' selection = DTE.ActiveDocument.Selection() ' startPoint = selection.TopPoint.CreateEditPoint() ' endPoint = selection.BottomPoint ' commentStart = Utilities.LineOrientedCommentStart() ' DTE.UndoContext.Open("Comment Region") ' Try ' Do While (True) ' Dim line As Integer ' line = startPoint.Line ' startPoint.Insert(commentStart) ' startPoint.LineDown() ' startPoint.StartOfLine() ' If (line = endPoint.Line) Then ' Exit Do ' End If ' Loop ' Finally ' ' 如果发生错误，则要确保对撤消上下文进行清理。 ' ' 否则，编辑器可能会处于永久的撤消上下文中。 ' DTE.UndoContext.Close() ' End Try 'End Sub Dim selection As EnvDTE.TextSelection Dim startPoint As EnvDTE.EditPoint Dim endPoint As TextPoint Dim commentStart As String Dim commentEnd As String selection = DTE.ActiveDocument.Selection() startPoint = selection.TopPoint.CreateEditPoint() endPoint = selection.BottomPoint commentStart = "/*" commentEnd = "*/" DTE.UndoContext.Open("Comment Region") Try Do While (True) Dim line As Integer line = startPoint.Line startPoint.Insert(commentStart) startPoint.EndOfLine() startPoint.Insert(commentEnd) startPoint.LineDown() startPoint.StartOfLine() If (line = endPoint.Line) Then Exit Do End If Loop Finally ' 如果发生错误，则要确保对撤消上下文进行清理。 ' 否则，编辑器可能会处于永久的撤消上下文中。 DTE.UndoContext.Close() End Try End Sub Sub UncommentCSS() 'ref:Find.FindReplace 'url:http://msdn.microsoft.com/zh-cn/library/envdte.find.findreplace(v=VS.80).aspx 'source code: 'Sub FindReplaceExample() ' Dim objTextDoc As TextDocument ' Dim objEditPt As EditPoint ' Dim iCtr As Integer ' Dim objFind As Find ' ' Create a new text file. ' DTE.ItemOperations.NewFile("General\Text File") ' ' Get a handle to the new document and create an EditPoint. ' objTextDoc = DTE.ActiveDocument.Object("TextDocument") ' objEditPt = objTextDoc.StartPoint.CreateEditPoint ' objFind = objTextDoc.DTE.Find ' ' Insert ten lines of text. ' For iCtr = 1 To 10 ' objEditPt.Insert("This is a test." & Chr(13)) ' Next iCtr ' objEditPt.StartOfDocument() ' objFind.FindReplace(vsFindAction.vsFindActionReplaceAll, "test", vsFindOptions.vsFindOptionsMatchWholeWord, "NEW THING", vsFindTarget.vsFindTargetOpenDocuments, , , vsFindResultsLocation.vsFindResultsNone) 'End Sub Dim objEditPt As EditPoint Dim objFind As Find Dim selection As EnvDTE.TextSelection Dim startPoint As EnvDTE.EditPoint Dim endPoint As TextPoint Dim commentStart As String Dim commentEnd As String selection = DTE.ActiveDocument.Selection() startPoint = selection.TopPoint.CreateEditPoint() endPoint = selection.BottomPoint commentStart = "/*" commentEnd = "*/" objEditPt = selection.TopPoint.CreateEditPoint() objFind = selection.DTE.Find objEditPt.StartOfDocument() objFind.FindReplace(vsFindAction.vsFindActionReplaceAll, commentStart, vsFindOptions.vsFindOptionsMatchWholeWord, "", vsFindTarget.vsFindTargetOpenDocuments, , , vsFindResultsLocation.vsFindResultsNone) objFind.FindReplace(vsFindAction.vsFindActionReplaceAll, commentEnd, vsFindOptions.vsFindOptionsMatchWholeWord, "", vsFindTarget.vsFindTargetOpenDocuments, , , vsFindResultsLocation.vsFindResultsNone) End Sub End Module 

Answer 3

 Option Strict Off Option Explicit Off Imports System Imports EnvDTE Imports EnvDTE80 Imports EnvDTE90 Imports EnvDTE90a Imports EnvDTE100 Imports System.Diagnostics Public Module RecordingModule Sub CommentCode() Dim objSel As TextSelection = DTE.ActiveDocument.Selection If objSel.IsEmpty Then singleLine = True 'Dim ts1 As TextSelection = CType(DTE.ActiveDocument.Selection(), EnvDTE.TextSelection) 'Dim ep1 As EditPoint2 = ts1.TopPoint.CreateEditPoint() 'Dim ep2 As EditPoint2 = ts1.BottomPoint.CreateEditPoint() 'text = ep1.GetLines(ep1.Line, ep2.Line + 1) End If Dim fileName = DTE.ActiveDocument.FullName ' We should default to regular commenting if we're not editing CSS. ' This allows this macro to be attached to the Ctrl+K+C shortcut ' without breaking existing file format commenting. If fileName.EndsWith(".cs") Then If objSel.Text.Trim().StartsWith("//") Then DTE.ExecuteCommand("Edit.UncommentSelection") Return Else DTE.ExecuteCommand("Edit.CommentSelection") Return End If End If If fileName.EndsWith(".css") Then ' enable undo Dim weOpenedUndo As Boolean = False If Not DTE.UndoContext.IsOpen Then DTE.UndoContext.Open("comment/uncomment code") weOpenedUndo = True End If ' locate cursor Dim startPoint As VirtualPoint startPoint = objSel.ActivePoint Dim iCol As Int32 = startPoint.DisplayColumn Dim iRow As Int32 = startPoint.Line ' locate selection beginning and end Dim ep1 As EditPoint2 = objSel.TopPoint.CreateEditPoint() Dim ep2 As EditPoint2 = objSel.BottomPoint.CreateEditPoint() ' in case no text is selected If objSel.IsEmpty Then objSel.SelectLine() End If ' process selection If objSel.Text.Trim().StartsWith("/*") Then ' uncomment objSel.MoveToPoint(objSel.TopPoint) objSel.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstText) objSel.Delete(2) While ep1.Line < ep2.Line objSel.MoveToDisplayColumn(ep1.Line, 0) ep1.LineDown() End While objSel.EndOfLine() objSel.DeleteLeft(2) Else ' comment objSel.MoveToPoint(objSel.TopPoint) objSel.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstText) objSel.Text = "/*" While ep1.Line < ep2.Line objSel.MoveToDisplayColumn(ep1.Line, 0) ep1.LineDown() End While objSel.EndOfLine() objSel.Text = "*/" End If ' move back to the original cursor point objSel.MoveToDisplayColumn(iRow, iCol) ' close the undo If weOpenedUndo Then DTE.UndoContext.Close() End If End If End Sub End Module 

Answer 4

um, get ReSharper and a million pains will go away instantly.