TextPatternRange.GetEnclosingElement メソッド

定義

名前空間:

System.Windows.Automation.Text

アセンブリ:

UIAutomationClient.dll

テキスト範囲を囲む最も内側の AutomationElement を返します。

public:
 System::Windows::Automation::AutomationElement ^ GetEnclosingElement();

public System.Windows.Automation.AutomationElement GetEnclosingElement ();

member this.GetEnclosingElement : unit -> System.Windows.Automation.AutomationElement

Public Function GetEnclosingElement () As AutomationElement

戻り値

AutomationElement

呼び出し元を囲む最も内側の要素。

例

 private AutomationElement EnclosingElementFromSelection(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].GetEnclosingElement();
}

Private Function EnclosingElementFromSelection(ByVal target As AutomationElement) As AutomationElement
    ' 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(0).GetEnclosingElement()
End Function

注釈

外側 AutomationElement(通常はテキスト範囲を提供するテキスト プロバイダー)。 ただし、テキスト プロバイダーがテーブル、ハイパーリンクなどの子要素をサポートする場合は、外側の要素がそのテキスト プロバイダーの子孫である可能性があります。