TextSelection.WordRight أسلوب

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

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

بناء الجملة

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

المعلمات

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

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

ملاحظات

إذا Extendهو true، ثم نشط إنهاء النص المحدد هو نقل حق Countعدد الكلمات. Otherwهوe، على نص المحدد هو مطوية وتم وضعه Countالكلمات الصحيحة من النهاية النشطة. في حالة انتهاء مستند هو مصادفة قبل Countالكلمات، ثم الموضع يبقى في إنهاء مستند.

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

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

أمثلة

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

أمن NET Framework.

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

راجع أيضًَا

المرجع

TextSelection واجهة

TextSelection الأعضاء

EnvDTE مساحة الاسم