TextSelection.WordLeft أسلوب

نقل نص محدد إلى اليسار المحدد رقم الكلمات.

مساحة الاسم:  EnvDTE
التجميع:  EnvDTE (في EnvDTE.dll)

بناء الجملة

'إقرار
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
)

المعلمات

• Extend
  النوع: System.Boolean
  اختياري.يحدد ما إذا كان نص المنقول هو مطوية أم لا.يكون الإعداد الافتراضي هو false.

• Count
  النوع: System.Int32
  اختياري.تمثل رقم من الكلمات تحريك لليمين.وتكون القيمة الافتراضية هي 1.

ملاحظات

إذا Extendهو True، ثم نشط إنهاء نص محدد ينتقل إلى اليسار Countعدد الكلمات. Otherwise, the محدد نص هو مطوي و positioned Count الكلمات يسار من the نشط إنهاء. إذا كان بداية مستند هو مصادفة قبل Countالكلمات، ثم الموضع يبقى في بداية مستند.

إذا كانت القيمة Countهو سالبة، ثم WordLeftينفذ مثل WordRightالأسلوب.

إدارة اللغة النشطة نص مستند بتعريف معنى "كلمه".

أمثلة

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

أمن NET Framework.

• الثقة الكاملة للمتصل الفوري. يتعذر استخدام هذا العضو بواسطة التعليمات البرمجية الموثوق بها جزئيًا. لمزيد من المعلومات، راجع باستخدام مكتبات من تعليمات برمجية موثوق بها جزئي.

راجع أيضًَا

المرجع

TextSelection واجهة

TextSelection الأعضاء

EnvDTE مساحة الاسم