Question

我需要滚动到表格中存在的WPF应用程序元素，该值是在运行时动态提供的。

我有下面的代码，对于小列表视图运行正常，因为滚动条正确移动但不会滚动到长列表末尾附近的元素。

我的列表如下，我使用名称滚动（A1，A2，...）

A1   1   3  

A2   1   5

S1   1   3  

Q2   1   5

.....

.....

Z7   1   3  

Z82   1   5

Z9   1   3  

Imports SilkTest.Ntf.Wpf
Public Module Main
  Dim _desktop As Desktop = Agent.Desktop

  Public Sub Main()
    Dim iPosition As Double = 0.5
    Dim iSumPosition As Double = 0.0
    Dim sObjlocator As String = "//WPFListView[@automationId='MyListView']"
    Dim sData As String = "Z118"
    Dim sObjSublocator As String = "//WPFToggleButton[@caption='*']"

    Dim rows As IList = _desktop.WPFListView(sObjlocator).FindAll(sObjSublocator)

    Dim sObjExist As Boolean = False
    For Each row As WPFToggleButton In rows
      Dim sString As String = row.Text
      Console.WriteLine(sString)     '  <--names
      If Trim(sString) = sData Then
        sObjExist = True
        Exit For
      Else
        iSumPosition += iPosition
        Console.WriteLine(iSumPosition)  ' <--Position

       _desktop.WPFListView(sObjlocator).ScrollToPosition(iSumPosition, Orientation.Vertical)
      End If 
    Next
  End Sub
End Module

问题：

如下面的输出所示，来自A1的打印行A10，Console.WriteLine(sString)，...和来自Console.WriteLine(iSumPosition)的数字仅适用于少数几个对象在屏幕外，滚动条垂直向下移动，但如果我的列表很大，我需要多次滚动，那么滚动不再起作用。

滚动条不会滚动到列表末尾附近的名称的末尾，只有当我的列表非常小时，它才会向下滚动到最后一个元素。

在调试模式下，我看到行列表（Dim rows As IList = _desktop.WPFListView(sObjlocator).FindAll(sObjSublocator)）没有列表末尾附近元素的值（名称）。

在下面的输出中，我们可以看到最初打印的名称和位置，但在长列表的末尾附近只打印位置。

输出：

A1
0.5
A10
1
A11
1.5
A12
2

...

...

...

9.5

10

10.5

其他信息：

定位器类型为WPFScrollBar。
SilkTest中的WPF预填表单设置为：是
使用自动化测试工具：Microfocus SilkTest 17.5

Answer 1

您可以尝试使用while循环来不断增加滚动条值（向下滚动），直到达到最大滚动条值。下面我汇总了一些示例代码，这些代码在针对Silk Test附带的WPF示例应用程序执行时进行了演示。

Imports SilkTest.Ntf.Wpf
Public Module Main
Dim _desktop As Desktop = Agent.Desktop

Public Sub Main()

    With _desktop.WPFWindow("@caption='WPF Sample Application'")
        .SetActive()
        .WPFMenu().Select("/Controls/Basic Controls")
    End With

    With _desktop.WPFWindow("@caption='Basic Controls'")
        .WPFTabControl("@automationId='tabControl'").Select("ScrollBar")
        Dim sScrollBar As WPFScrollBar
        sScrollBar = .WPFScrollBar("//WPFTabControl[@automationId='tabControl']/WPFScrollBar[2]")
        'Set the scroll bar to the top
        sScrollBar.SetValue(0.0)

        System.Threading.Thread.Sleep(1000)

        Dim iPosition As Double
        iPosition = 0.0

        While sScrollBar.Value < sScrollBar.Maximum
            Console.WriteLine("scroll Bar Maximum  " + sScrollBar.Maximum.ToString)
            Console.WriteLine("scroll Bar Value  " + sScrollBar.Value.ToString)

            'Set Scroll bar position
            sScrollBar.SetValue(iPosition)
            'Return text within scroll          
            Console.WriteLine(.WPFTextBox("@automationId='txtScrollBarEvents'").Text)
            'Increment scroll bar position for each iteration
            iPosition = iPosition + 0.1
            System.Threading.Thread.Sleep(1000)
        End While   

        .Close()
  End With

  End Sub
End Module

FindAll没有使用SilkTest 17.5获取WPFListView中的所有子对象

1 个答案: