TextPatternRange.ScrollIntoView(Boolean) Método

Definición

Espacio de nombres:

System.Windows.Automation.Text

Ensamblado:

UIAutomationClient.dll

Hace que el control de texto se desplace verticalmente hasta que el intervalo de texto esté visible en la ventanilla.

public:
 void ScrollIntoView(bool alignToTop);

public void ScrollIntoView (bool alignToTop);

member this.ScrollIntoView : bool -> unit

Public Sub ScrollIntoView (alignToTop As Boolean)

Parámetros

alignToTop

Boolean

true si el control de texto se debe desplazar de forma que el intervalo de texto quede alineado con la parte superior de la ventanilla; false si debe alinearse con la parte inferior de la ventanilla.

Excepciones

InvalidOperationException

Si el control no admite el desplazamiento.

Ejemplos

private void ScrollToSelection(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;
    }
    TextPatternRange[] currentSelection = textpatternPattern.GetSelection();

    currentSelection[0].ScrollIntoView(true);
}

Private Sub ScrollToSelection(ByVal target 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
    End If
    Dim currentSelection As TextPatternRange() = textpatternPattern.GetSelection()
    currentSelection(0).ScrollIntoView(True)
End Sub

Comentarios

ScrollIntoView respeta el texto oculto y visible. El cliente de Automatización de la interfaz de usuario puede comprobar si hay IsHiddenAttribute visibilidad de texto. Si el intervalo de texto está oculto, el control de texto solo se desplazará si el texto oculto tiene un delimitador en la ventanilla.