TextPatternRange.GetBoundingRectangles 方法

定义

命名空间:

System.Windows.Automation.Text

程序集:

UIAutomationClient.dll

检索由文本范围中每个完全或部分可见的文本行的边框组成的集合。

public:
 cli::array <System::Windows::Rect> ^ GetBoundingRectangles();

public System.Windows.Rect[] GetBoundingRectangles ();

member this.GetBoundingRectangles : unit -> System.Windows.Rect[]

Public Function GetBoundingRectangles () As Rect()

返回

Rect[]

文本范围中每个完全或部分可见的文本行的边框组成的数组。

对于退化文本范围，则为一个空数组。

对于其屏幕坐标完全位于屏幕之外的文本范围、滚动到视图之外的文本范围或者被某个重叠窗口遮盖住的文本范围，为一个空数组。

示例

 private Rect[] BoundingRectanglesFromSelection(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].GetBoundingRectangles();
}

Private Function BoundingRectanglesFromSelection(ByVal target As AutomationElement) As Rect()
    ' 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).GetBoundingRectangles()
End Function