Visual Studio:热键可以向上/向下移动线并移动最近的更改

我正在从Eclipse迁移到Visual Studio .NET,除了两个以外,我找到了所有我心爱的热键:

在Eclipse中,您可以按ALT- ←和ALT- →访问您最近所做的更改,我经常使用的内容返回到我在其他文件中的位置,然后返回.显然,在VS.NET的CTRL- -和CTRL- SHIFT- -做到这一点,但他们似乎并不总是工作(如笔记本电脑,可能是一个numkey问题与负),似乎没有遵循"我在那里同样的算法"正如我在Eclipse中习惯的那样.有没有人得到这个工作,每天依赖它等等？

在Eclipse中,要向上或向下移动一行,按ALT- uparrow或ALT- downarrow然后你只需将它移动到代码中,直到你将它移到你想要的地方,非常好.也使一个行的副本,您可以按SHIFT- ALT- uparrow或SHIFT- - .ALT downarrow这两个热键甚至适用于您选择的行块.

有没有人在Visual Studio .NET中发现这些热键功能？

附录:

您将使用上述第二个功能的一个示例是将底线向上移动到for循环中.在Eclipse中,您可以将光标放在Console.WriteLine上然后按ALT-(uparrow),我会一直使用它:一个键行程来上下移动行.

for (int i = 0; i < 10; i++) {

}
Console.WriteLine(i);

好的,用无选择ctrl-c推断Charlie的想法来选择一行,在Visual Studio中你可以将光标放在Console.WriteLine上,(无选择)按CTRL- X然后向上移动并按CTRL- V.

1> Paul Ostrows..：

---

提出的答案是有效的,但是它们都不像eclipse那样保存现有的粘贴缓冲区,当前选择的字符,并且它们不允许用户在一系列行上操作.这是我提出的一个解决方案,它保留了粘贴缓冲区,当前字符选择,有或没有选择(可能跨越多行也可能没有):

'' Duplicates the current line (or selection of lines) and places the copy
'' one line below or above the current cursor position (based upon the parameter)
Sub CopyLine(ByVal movingDown As Boolean)
    DTE.UndoContext.Open("CopyLine")
    Dim objSel As TextSelection = DTE.ActiveDocument.Selection

    ' store the original selection and cursor position
    Dim topPoint As TextPoint = objSel.TopPoint
    Dim bottomPoint As TextPoint = objSel.BottomPoint
    Dim lTopLine As Long = topPoint.Line
    Dim lTopColumn As Long = topPoint.LineCharOffset
    Dim lBottomLine As Long = bottomPoint.Line
    Dim lBottomColumn As Long = bottomPoint.LineCharOffset()

    ' copy each line from the top line to the bottom line
    Dim readLine As Long = lTopLine
    Dim endLine As Long = lBottomLine + 1
    Dim selectionPresent As Boolean = ((lTopLine <> lBottomLine) Or (lTopColumn <> lBottomColumn))
    If (selectionPresent And (lBottomColumn = 1)) Then
        ' A selection is present, but the cursor is in front of the first character
        ' on the bottom line. exclude that bottom line from the copy selection.
        endLine = lBottomLine
    End If

    ' figure out how many lines we are copying, so we can re-position
    ' our selection after the copy is done
    Dim verticalOffset As Integer = 0
    If (movingDown) Then
        verticalOffset = endLine - lTopLine
    End If

    ' copy each line, one at a time.
    ' The Insert command doesn't handle multiple lines well, and we need
    ' to use Insert to avoid autocompletions
    Dim insertLine As Long = endLine
    While (readLine < endLine)
        ' move to read postion, and read the current line
        objSel.MoveToLineAndOffset(readLine, 1)
        objSel.EndOfLine(True) 'extend to EOL
        Dim lineTxt As String = objSel.Text.Clone
        ' move to the destination position, and insert the copy
        objSel.MoveToLineAndOffset(insertLine, 1)
        objSel.Insert(lineTxt)
        objSel.NewLine()
        ' adjust the read & insertion points
        readLine = readLine + 1
        insertLine = insertLine + 1
    End While

    ' restore the cursor to original position and selection
    objSel.MoveToLineAndOffset(lBottomLine + verticalOffset, lBottomColumn)
    objSel.MoveToLineAndOffset(lTopLine + verticalOffset, lTopColumn, True)
    DTE.UndoContext.Close()
End Sub

'' Duplicates the current line (or selection of lines) and places the copy
'' one line below the current cursor position
Sub CopyLineDown()
    CopyLine(True)
End Sub

'' Duplicates the current line (or selection of lines) and places the copy
'' one line above the current cursor position
Sub CopyLineUp()
    CopyLine(False)
End Sub


'' Moves the selected lines up one line. If no line is
'' selected, the current line is moved.
''
Sub MoveLineUp()
    DTE.UndoContext.Open("MoveLineUp")
    Dim objSel As TextSelection = DTE.ActiveDocument.Selection
    ' store the original selection and cursor position
    Dim topPoint As TextPoint = objSel.TopPoint
    Dim bottomPoint As TextPoint = objSel.BottomPoint
    Dim lTopLine As Long = topPoint.Line
    Dim lTopColumn As Long = topPoint.LineCharOffset
    Dim lBottomLine As Long = bottomPoint.Line
    Dim lBottomColumn As Long = bottomPoint.LineCharOffset()

    Dim textLineAbove As TextSelection = DTE.ActiveDocument.Selection
    textLineAbove.MoveToLineAndOffset(lTopLine - 1, 1, False)
    textLineAbove.MoveToLineAndOffset(lTopLine, 1, True)
    Dim indentChange As Integer = CountIndentations(textLineAbove.Text) * -1

    ' If multiple lines are selected, but the bottom line doesn't
    ' have any characters selected, don't count it as selected
    Dim lEffectiveBottomLine = lBottomLine
    If ((lBottomColumn = 1) And (lBottomLine <> lTopLine)) Then
        lEffectiveBottomLine = lBottomLine - 1
    End If

    ' move to the line above the top line
    objSel.MoveToLineAndOffset(lTopLine - 1, 1)
    ' and move it down, until its below the bottom line:
    Do
        DTE.ExecuteCommand("Edit.LineTranspose")
    Loop Until (objSel.BottomPoint.Line >= lEffectiveBottomLine)
    ' Since the line we are on has moved up, our location in the file has changed:
    lTopLine = lTopLine - 1
    lBottomLine = lBottomLine - 1

    IndentBlockAndRestoreSelection(objSel, lBottomLine, lBottomColumn, lTopLine, lTopColumn, indentChange)

    DTE.UndoContext.Close()
End Sub

'' Moves the selected lines down one line. If no line is
'' selected, the current line is moved.
''
Sub MoveLineDown()
    DTE.UndoContext.Open("MoveLineDown")
    Dim objSel As TextSelection = DTE.ActiveDocument.Selection
    ' store the original selection and cursor position
    Dim topPoint As TextPoint = objSel.TopPoint
    Dim bottomPoint As TextPoint = objSel.BottomPoint
    Dim lTopLine As Long = topPoint.Line
    Dim lTopColumn As Long = topPoint.LineCharOffset
    Dim lBottomLine As Long = bottomPoint.Line
    Dim lBottomColumn As Long = bottomPoint.LineCharOffset()

    ' If multiple lines are selected, but the bottom line doesn't
    ' have any characters selected, don't count it as selected
    Dim lEffectiveBottomLine = lBottomLine
    If ((lBottomColumn = 1) And (lBottomLine <> lTopLine)) Then
        lEffectiveBottomLine = lBottomLine - 1
    End If

    Dim textLineBelow As TextSelection = DTE.ActiveDocument.Selection
    textLineBelow.MoveToLineAndOffset(lEffectiveBottomLine + 1, 1, False)
    textLineBelow.MoveToLineAndOffset(lEffectiveBottomLine + 2, 1, True)
    Dim indentChange As Integer = CountIndentations(textLineBelow.Text)


    ' move to the bottom line
    objSel.MoveToLineAndOffset(lEffectiveBottomLine, 1)
    ' and move it down, which effectively moves the line below it up
    ' then move the cursor up, always staying one line above the line
    ' that is moving up, and keep moving it up until its above the top line:
    Dim lineCount As Long = lEffectiveBottomLine - lTopLine
    Do
        DTE.ExecuteCommand("Edit.LineTranspose")
        objSel.LineUp(False, 2)
        lineCount = lineCount - 1
    Loop Until (lineCount < 0)
    ' Since the line we are on has moved down, our location in the file has changed:
    lTopLine = lTopLine + 1
    lBottomLine = lBottomLine + 1

    IndentBlockAndRestoreSelection(objSel, lBottomLine, lBottomColumn, lTopLine, lTopColumn, indentChange)

    DTE.UndoContext.Close()
End Sub

'' This method takes care of indenting the selected text by the indentChange parameter
'' It then restores the selection to the lTopLine:lTopColumn - lBottomLine:lBottomColumn parameter.
'' It will adjust these values according to the indentChange performed
Sub IndentBlockAndRestoreSelection(ByVal objSel As TextSelection, ByVal lBottomLine As Long, ByVal lBottomColumn As Long, ByVal lTopLine As Long, ByVal lTopColumn As Long, ByVal indentChange As Integer)
    ' restore the cursor to original position and selection
    objSel.MoveToLineAndOffset(lBottomLine, lBottomColumn)
    objSel.MoveToLineAndOffset(lTopLine, lTopColumn, True)
    If (indentChange = 0) Then
        ' If we don't change the indent, we are done
        Return
    End If

    If (lBottomLine = lTopLine) Then
        If (indentChange > 0) Then
            objSel.StartOfLine()
        Else
            objSel.StartOfLine()
            objSel.WordRight()
        End If
    End If
    objSel.Indent(indentChange)

    ' Since the selected text has changed column, adjust the columns accordingly:
    ' restore the cursor to original position and selection
    Dim lNewBottomColumn As Long = (lBottomColumn + indentChange)
    Dim lNewTopColumn As Long = (lTopColumn + indentChange)
    ' ensure that we we still on the page.
    ' The "or" clause makes it so if we were at the left edge of the line, we remain on the left edge.
    If ((lNewBottomColumn < 2) Or (lBottomColumn = 1)) Then
        ' Single line selections, or a bottomColumn that is already at 1 may still have a new BottomColumn of 1
        If ((lTopLine = lBottomLine) Or (lBottomColumn = 1)) Then
            lNewBottomColumn = 1
        Else
            ' If we have multiple lines selected, don't allow the bottom edge to touch the left column,
            ' or the next move will ignore that bottom line.
            lNewBottomColumn = 2
        End If
    End If
    If ((lNewTopColumn < 2) Or (lTopColumn = 1)) Then
        lNewTopColumn = 1
    End If

    ' restore the selection to the modified selection
    objSel.MoveToLineAndOffset(lBottomLine, lNewBottomColumn)
    objSel.MoveToLineAndOffset(lTopLine, lNewTopColumn, True)
End Sub


'' This method counts the indentation changes within the text provided as the paramter
Function CountIndentations(ByVal text As String) As Integer
    Dim indent As Integer = 0
    While (Text.Length > 0)
        If (Text.StartsWith("//")) Then
            Dim endOfLine As Integer = Text.IndexOf("\n", 2)
            If (Equals(endOfLine, -1)) Then
                ' The remaining text is all on one line, so the '//' terminates our search
                ' Ignore the rest of the text
                Exit While
            End If
            ' continue looking after the end of line
            Text = Text.Substring(endOfLine + 1)
        End If

        If (Text.StartsWith("/*")) Then
            Dim endComment As Integer = Text.IndexOf("*/", 2)
            If (Equals(endComment, -1)) Then
                ' This comment continues beyond the length of this line.
                ' Ignore the rest of the text
                Exit While
            End If
            ' continue looking after the end of this comment block
            Text = Text.Substring(endComment + 1)
        End If

        If (Text.StartsWith("{")) Then
            indent = indent + 1
        Else
            If (Text.StartsWith("}")) Then
                indent = indent - 1
            End If
        End If
        Text = Text.Substring(1)
    End While
    Return indent
End Function

我编辑了这篇文章,在MoveLineUp()和MoveLineDown()方法的开头添加了UndoContext机制(由Nicolas Dorier建议)并在它们的末尾关闭它.11/23/11 - 我再次对此进行了更新,以允许移动的线条在跨越支架边界时缩进

---

真棒!这就像一个魅力!对于不熟悉宏的人和害怕VB的人:只需打开宏浏览器(工具|宏的|宏浏览器)并添加一个新的Marco项目.将上述代码复制并粘贴到marco模块文件中.然后在键盘快捷键设置(工具|选项|环境|键盘)中搜索MoveLineUp命令(或宏浏览器中显示的任何其他命令).当您找到宏时,只需指定所需的快捷键(确保它们不与任何其他键冲突).

---

这应该是答案,而不是米奇小麦的答案.很好!

2> Polshgiant..：

---

对于想要在Visual Studio 2010中执行此操作的任何人,免费的Visual Studio 2010 Pro Power Tools扩展添加了上下移动线的功能.

http://visualstudiogallery.msdn.microsoft.com/en-us/d0d33361-18e2-46c0-8ff2-4adea1e34fef

3> Charlie..：

---

如果您还没有找到它,那么设置这些键盘快捷键的位置在Tools |下 选项| 环境| 键盘.通过浏览列表可以找到许多方便的命令,但不幸的是,我从来没有找到任何好的参考来描述每个命令的目的.

至于具体命令:

我相信你所指的前进/后退导航命令是View.NavigateBackward和View.NavigateForward.如果键盘未与VS键绑定配合,则可以将它们重新映射到首选的Eclipse键.不幸的是,我不知道如何改变它用来实际决定去哪里的算法.

我认为没有用于复制行的内置命令,但是在没有选择文本的情况下按Ctrl + C会将当前行复制到剪贴板上.鉴于此,这是一个简单的宏,它复制下一行的当前行:

    Sub CopyLineBelow()
        DTE.ActiveDocument.Selection.Collapse()
        DTE.ActiveDocument.Selection.Copy()
        DTE.ActiveDocument.Selection.Paste()
    End Sub

    Sub CopyLineAbove()
        DTE.ActiveDocument.Selection.Collapse()
        DTE.ActiveDocument.Selection.Copy()
        DTE.ActiveDocument.Selection.LineUp()
        DTE.ActiveDocument.Selection.Paste()
    End Sub

要移动一行文本,Edit.LineTranspose将向下移动选定的行.我不认为有一个命令可以移动一个阵容,但这是一个快速的宏来做到这一点:

    Sub MoveLineUp()
        DTE.ActiveDocument.Selection.Collapse()
        DTE.ActiveDocument.Selection.Cut()
        DTE.ActiveDocument.Selection.LineUp()
        DTE.ActiveDocument.Selection.Paste()
        DTE.ActiveDocument.Selection.LineUp()
    End Sub

如果你还没有开始使用宏,它们真的很有用.工具| 宏| 宏IDE将带您进入编辑器,一旦定义它们,您就可以通过我上面提到的相同UI设置键盘快捷键.我使用非常方便的Record Temporary Macro命令生成了这些宏,也在Tools |下 宏.此命令允许您记录一组键盘输入并重放它们任意次,这有助于构建高级编辑命令以及自动执行重复性任务(例如代码重新格式化).

---

没有选择复制一行的CTRL-C,CTRL-V很好,不知道那一个,谢谢.

4> serg10..：

---

我最近做了同样的事情,当我搬到一个新项目时,从Eclipse迁移到Visual Studio. 强烈建议使用Resharper加入 - 它增加了eclipse对VS的一些丰富的编辑,导航和重构功能.

Resharper还允许您使用与InteliJ非常相似的keybaord映射方案.Java逃脱者非常方便......

关于你的第二个问题,Resharper具有与eclipse相同的移动代码上/下功能,但有一些警告.首先,使用InteliJ键盘映射,键组合相当曲折.

向上移动代码:ctrl + shift + alt +向上光标

向下移动代码:ctrl + shift + alt +向下光标

其次,它并不总是仅移动一行,而是实际跳转代码块.所以它不能从if语句外部移动一行到它内部 - 它将所选行跳过if块.要做到这一点,你需要使用"左"和"右"

将代码移动到外部代码块:ctrl + shift + alt + left cursor

将代码移动到下一个内部代码块:ctrl + shift + alt + right cursor