Método TextSelection.WordRight
Move o texto selecionado à direita do número especificado de palavras.
Namespace: EnvDTE
Assembly: EnvDTE (em EnvDTE.dll)
Sintaxe
'Declaração
Sub WordRight ( _
Extend As Boolean, _
Count As Integer _
)
void WordRight(
bool Extend,
int Count
)
void WordRight(
[InAttribute] bool Extend,
[InAttribute] int Count
)
abstract WordRight :
Extend:bool *
Count:int -> unit
function WordRight(
Extend : boolean,
Count : int
)
Parâmetros
- Extend
Tipo: System.Boolean
Opcional.Determina se o texto movido é recolhido ou não.O padrão é false.
- Count
Tipo: System.Int32
Opcional.Representa o número de palavras para mover para a direita.O valor padrão é 1.
Comentários
Se Extend é true, e em seguida, o final ativo do texto selecionado é movido para a direita Count número de palavras.Caso contrário, o texto selecionado é recolhido e posicionado Count palavras desde o final ativo.Se o final do documento for encontrado antes de Count palavras, em seguida, a posição permanece no final do documento.
Se o valor de Count for negativo, em seguida, WordRight desempenho igual a WordLeft método.
O Gerenciador de idioma ativo para o documento de texto define o significado de "word".
Exemplos
Sub WordRightExample()
' Before running this example, open a text document.
Dim objSel As TextSelection = DTE.ActiveDocument.Selection
If objSel.IsEmpty Then
' If there is no text selected, swap the words before and after
' the insertion point. We begin by selecting the word before
' the insertion point.
objSel.WordLeft(True)
If Not objSel.IsEmpty Then
' We can continue only if the selection was not already at
' the beginning of the document.
Dim strBefore As String = objSel.Text
' The text is saved in strBefore; now delete it and move
' past the following word.
objSel.Delete()
objSel.WordRight(True)
If objSel.Text.StartsWith(" ") Or objSel.Text.StartsWith(Microsoft.VisualBasic.ControlChars.Tab) Then
' The previous call to WordRight may have skipped some
' white space instead of an actual word. In that case,
' we should call it again.
objSel.WordRight(True)
End If
' Insert the new text at the end of the selection.
objSel.Insert(strBefore, vsInsertFlags.vsInsertFlagsInsertAtEnd)
End If
Else
' If some text is selected, replace the following word with the
' selected text.
Dim strSelected As String = objSel.Text
objSel.MoveToPoint(objSel.BottomPoint)
objSel.WordRight(True)
If objSel.Text.StartsWith(" ") Or objSel.Text.StartsWith(Microsoft.VisualBasic.ControlChars.Tab) Then
' The previous call to WordRight may have skipped some
' white space instead of an actual word. In that case, we
' should call it again.
objSel.WordRight(True)
End If
' Insert the text, overwriting the existing text and leaving
' the selection containing the inserted text.
objSel.Insert(strSelected, vsInsertFlags.vsInsertFlagsContainNewText)
End If
End Sub
Segurança do .NET Framework
- Confiança total para o chamador imediato. O membro não pode ser usado por código parcialmente confiável. Para obter mais informações, consulte Usando bibliotecas de código parcialmente confiáveis.