次の方法で共有

TextPatternRange.Clone メソッド

  • リファレンス

定義

名前空間:
System.Windows.Automation.Text
アセンブリ:
UIAutomationClient.dll

元の TextPatternRange と同一で、元のプロパティをすべて継承する新しい TextPatternRange を取得します。

public:
 System::Windows::Automation::Text::TextPatternRange ^ Clone();
public System.Windows.Automation.Text.TextPatternRange Clone ();
member this.Clone : unit -> System.Windows.Automation.Text.TextPatternRange
Public Function Clone () As TextPatternRange

戻り値

TextPatternRange

新しいテキスト範囲。 null 参照 (Visual Basic では Nothing) は返されません。

例

private TextPatternRange CloneSelection(AutomationElement target)
{
    // Specify the control type we're looking for, in this case 'Document'
    PropertyCondition cond = new PropertyCondition(AutomationElement.ControlTypeProperty, ControlType.Document);

    // target --> The root AutomationElement.
    AutomationElement textProvider = target.FindFirst(TreeScope.Descendants, cond);

    TextPattern textpatternPattern = textProvider.GetCurrentPattern(TextPattern.Pattern) as TextPattern;

    if (textpatternPattern == null)
    {
        Console.WriteLine("Root element does not contain a descendant that supports TextPattern.");
        return null;
    }
    TextPatternRange[] currentSelection = textpatternPattern.GetSelection();
    return currentSelection[0].Clone();
}

Private Function CloneSelection(ByVal target As AutomationElement) As TextPatternRange
    ' Specify the control type we're looking for, in this case 'Document'
    Dim cond As PropertyCondition = New PropertyCondition(AutomationElement.ControlTypeProperty, ControlType.Document)

    ' target --> The root AutomationElement.
    Dim textProvider As AutomationElement = target.FindFirst(TreeScope.Descendants, cond)

    Dim textpatternPattern As TextPattern = CType(textProvider.GetCurrentPattern(TextPattern.Pattern), TextPattern)

    If (textpatternPattern Is Nothing) Then
        Console.WriteLine("Root element does not contain a descendant that supports TextPattern.")
        Return Nothing
    End If
    Dim currentSelection As TextPatternRange() = textpatternPattern.GetSelection()
    Return currentSelection.Clone(0)
End Function

注釈

または、 からTextPattern新DocumentRangeしい を作成し、元のテキスト範囲のエンドポイントに対応するように 2 つのエンドポイントを移動します。

新しい範囲は、元の範囲とは別に操作できます。

適用対象

こちらもご覧ください