TextSelection.WordLeft, méthode

Étend la sélection de texte a permis au nombre spécifié de mots.

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 : Boolean

  Optionnel. Détermine si le texte déplacé est réduit ou non. La valeur par défaut est false.

• Count
  Type : Int32

  Optionnel. Représente le nombre mots à déplacer vers la gauche. La valeur par défaut est 1.

Notes

Si Extend est True, l'extrémité active de la sélection de texte est nombre gauche déplacé d'Count de mots. Sinon, la sélection de texte est réduite et des mots positionnés d'Count est autorisé de la fin 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 
        ' text selection.
        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, voir Utilisation de bibliothèques à partir de code d'un niveau de confiance partiel.

Voir aussi

Référence

TextSelection Interface

EnvDTE, espace de noms