TextSelection.WordRight, méthode

Article
08/10/2011

Déplace le texte sélectionné vers la droite, selon le nombre de mots spécifié.

Espace de noms : EnvDTE
Assembly : EnvDTE (dans EnvDTE.dll)

Syntaxe

'Déclaration
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
)

Paramètres

Extend
Type : System.Boolean
Facultatif.Détermine si le texte déplacé est réduit ou non.La valeur par défaut est false.

Count
Type : System.Int32
Facultatif.Représente le nombre de mots à déplacer vers la droite.La valeur par défaut est 1.

Notes

Si la valeur de Extend est true, l'extrémité active du texte sélectionné est déplacée vers la droite, selon le nombre Count de mots. Sinon, le texte sélectionné est réduit et placé Count mots vers la droite à partir de l'extrémité active. Si la fin du document se trouve avant Count mots, le texte est laissé à la fin du document.

Si la valeur de Count est négative, WordRight agit comme la méthode WordLeft.

Le gestionnaire du langage actif pour le document texte définit le sens d'un « mot ».

Exemples

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

Sécurité .NET Framework

Confiance totale accordée à l'appelant immédiat. Ce membre ne peut pas être utilisé par du code d'un niveau de confiance partiel. Pour plus d'informations, consultez Utilisation de bibliothèques à partir de code d'un niveau de confiance partiel.

Voir aussi

Référence

TextSelection Interface

EnvDTE, espace de noms

Partager via