TextSelection.WordLeft, méthode

Article
08/10/2011

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

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

Syntaxe

'Déclaration
Sub WordLeft ( _
    Extend As Boolean, _
    Count As Integer _
)

void WordLeft(
    bool Extend,
    int Count
)

void WordLeft(
    [InAttribute] bool Extend, 
    [InAttribute] int Count
)

abstract WordLeft : 
        Extend:bool * 
        Count:int -> unit

function WordLeft(
    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 mots à déplacer vers la gauche.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 gauche, selon le nombre Count de mots. Sinon, le texte sélectionné est réduit et placé Count mots vers la gauche à partir de l'extrémité active. Si le début du document se trouve avant Count mots, le texte est laissé au début du document.

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

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

Exemples

Sub WordLeftExample()
    ' 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