This is a migrated thread and some comments may be shown as answers.

Script help for finding a value in Listbox

12 Answers 311 Views

General Discussions

This is a migrated thread and some comments may be shown as answers.

Akbar asked on 31 May 2011, 12:42 AM

Hi Telerik/All,

I have a situation where I need to automate test in which automation test should searches for a value in the list box and if value is present in the list box then it needs to highlight it. I have developed a customize code which is as follows:

pages.BORWL08D63186Wmservice.SilverlightApp.LstProcessOrdersListbox.Find.ByTextContent(Data("Process Order").ToString()).User.Click()

This code works fine when the value is visible in the listbox without scrolling down. But if the value is at the bottom of the listbox (with vertical scroll bar enabled) then the above codes does not work.

I need your suggestion/help to develop a script, where it looks for the value in the listbox if it’s not present then scroll down and search for the value till the end of listbox. Your help would be a great help.

Currently the alternative way which I am using is as follows:

1) Look for value in listbox with above customize code. (Mark the step as continue on failure)

2) Press the vertical scroll bar. (Mark the step as continue on failure)

3) Look for value in listbox with above customize code. (Mark the step as continue on failure)

4) Press the vertical scroll bar. (Mark the step as continue on failure)

5) Look for value in listbox with above customize code.

This codes work fine but its not fully automate, and it has following issues:

1) If the value is at the bottom of a very large amount data in the list box then this will not work (stops after two vertical scroll down).

2) If the value is in the middle of the list box after one vertical scroll down pressed, then we will have few failed steps and the overall result of the test will be failed. Even though it had successfully passed the test.

Your help in this regards will be be much appreciated. Also please note that i have scripts written in VB

Cheers

Akbar

12 Answers, 1 is accepted

answered on 02 Jun 2011, 03:10 PM

Press-Enter.PNG

Hello Support,

I'm also waiting for Akbar query solution?

Also, "Press Return" is not working (attached screenshot), when I ran script all steps are showing passed including "Press Return" , but data is not filtered after "pressing return" (Enter Key). If I hit Enter Key manually it is working fine.

I need help on Passing Enter Key via coding?

Thanks,
Madhu.

answered on 07 Jun 2011, 05:32 AM

Hi,

Thanks for the code converter link.

Now i have issue, where i am getting complilation error which is as below:
C:\CIMSharp\Tools\Telerik Automation Test\Original Code\Main Step.tstest.vb: Line 129: (BC30652) Reference required to assembly 'System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089' containing the type 'System.Windows.Forms.Keys'. Add one to your project.
C:\CIMSharp\Tools\Telerik Automation Test\Original Code\Main Step.tstest.vb: Line 130: (BC30456) 'Windows' is not a member of 'System'.

And my customize code is :

Imports Telerik.WebAii.Controls.Html
Imports Telerik.WebAii.Controls.Xaml
Imports System
Imports System.Collections.Generic
Imports System.Text

Imports ArtOfTest.Common.UnitTesting
Imports ArtOfTest.WebAii.Core
Imports ArtOfTest.WebAii.Controls.HtmlControls
Imports ArtOfTest.WebAii.Controls.HtmlControls.HtmlAsserts
Imports ArtOfTest.WebAii.Design
Imports ArtOfTest.WebAii.Design.Execution
Imports ArtOfTest.WebAii.ObjectModel
Imports ArtOfTest.WebAii.Silverlight
Imports ArtOfTest.WebAii.Silverlight.UI

    '
    ' You can add custom execution steps by simply
    ' adding a 'Sub' routine and decorating it with the <CodedStep("Description")>
    ' attribute to the test method.
    ' Those steps will automatically show up in the test steps on save.
    '
    ' The BaseWebAiiTest exposes all key objects that you can use
    ' to access the current testcase context. [i.e. ActiveBrowser, Find ..etc]
    '
    ' Data driven tests can use the Data(columnIndex) or Data("columnName")
    ' to access data for a specific data iteration.
    '
    ' Example:
    '
    ' <CodedStep("MyCustom Step Description")> Public Sub MyTestMethod()
    '
    '       // Custom code goes here
    '      ActiveBrowser.NavigateTo("http://www.google.com")
    '
    '       // Or
    '       ActiveBrowser.NavigateTo(Data("url"))
    '
    ' End Sub
    '
    Public Class Main_Step
        Inherits BaseWebAiiTest

#Region "[ Dynamic Pages Reference ]"

        Private _pages As Pages

        '''<summary>
        ''' Gets the Pages object that has references
        ''' to all the elements, frames or regions
        ''' in this project.
        '''</summary>
        Public ReadOnly Property Pages() As Pages
            Get
                If (_pages Is Nothing) Then
                    _pages = New Pages(Manager.Current)
                End If
                Return _pages
            End Get
        End Property

#End Region

        ' Add your test methods here...



        Private Shared Function FindListboxItemByText(itemToFind As String, myLB As ListBox) As ListBoxItem
            ' We may have to scroll the list box to find the item we
            ' want, so get the scroll viewer attached to the listbox
            Console.WriteLine("in function")
            Dim scroller As ScrollViewer = myLB.Find.ByType(Of ScrollViewer)()
            Dim items As IList(Of ListBoxItem)
            Dim scrollPos As Double = 0
            Do
                ' Get all list box items currently contained in the
                ' visual tree
                items = myLB.Find.AllByType(Of ListBoxItem)()
                ' Iterate through each list box item looking for the one
                ' we want
                For i As Integer = 0 To items.Count - 1
                    Console.WriteLine(items(i).Text.ToString())
                    If items(i).Text.Contains(itemToFind) Then
                        ' We found the one we want. Scroll it to the top
                        ' (in case it's outside the listbox's viewport)
                        ' then return it to the caller.
                        Console.WriteLine("In if condition")
                        scroller.InvokeMethod("ScrollToVerticalOffset", i)
                        Return items(i)
                    End If
                Next
                ' We didn't find it, scroll down by a page worth of data
                ' to populate the VisualTree with the next page of data
                ' and try again.
                scrollPos += scroller.ViewportHeight
                scroller.InvokeMethod("ScrollToVerticalOffset", scrollPos)
                    ' Refresh our cached copy of the listbox.
                myLB.Refresh()
            Loop While scrollPos <= scroller.ExtentHeight
            ' We scanned the entire list and didn't find the right item
            ' to select.
            Return Nothing
        End Function

        <CodedStep("New Coded Step")> _
        Public Sub Main_Step_CodedStep()
            Dim itemToFind As String = "PO_SMK_40"
            Dim app As SilverlightApp = ActiveBrowser.SilverlightApps()(0)
            Dim myLB As ListBox = app.Find.ByAutomationId(Of ListBox)("lstProcessOrders")
            Dim item As ListBoxItem = FindListboxItemByText(itemToFind, myLB)
            Assert.IsNotNull(item, """" + itemToFind + """ not found in the listbox.")
            item.Click(MouseClickType.LeftClick, False, False, 0, 0, ArtOfTest.Common.OffsetReference.AbsoluteCenter, _
   ArtOfTest.Common.ActionPointUnitType.Pixel, System.Windows.Forms.Keys.None)

        End Sub


    End Class

It seems i need to add System.Windows.Forms.Keys to the project. But i am unable to do it.

Cheers

Akbar

answered on 07 Jun 2011, 05:38 PM

Hello Akbar,

Add the System.Windows.Forms reference to the Project:

1. Click the Project tab.
2. Click the Show button in the Setting ribbon.
3. Click Script Options in the left column of User Settings.
4. Click "Add Reference."
5. Browse to the following folder:

32-bit machine:
C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v3.5\Profile\Client

64-bit machine:
C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v3.5\Profile\Client

6. Choose System.Windows.Forms.dll and click Open.
7. Click OK.

Please see this KB article for more information.

Kind regards,
Anthony
the Telerik team

Explore the entire Telerik portfolio by downloading the Ultimate Collection trial package. Get now >>

answered on 01 Jul 2011, 06:02 PM

Outside-Bounds.PNG

Hello Support/Akbar,

Please can you help me out, I'm getting below exception:

System.InvalidOperationException: Point (224, 1975) outside bounds of browser window: (0, 90, 1280, 881)

Here I'm searching for ComboBox item. My VB code as follows:

Private Shared Function FindComboBoxItemByText(itemToFind As String, myCB As ComboBox) As ComboBoxItem
   Dim scroller As ScrollViewer = myCB.Find.ByType(Of ScrollViewer)()
   Dim items As IList(Of ComboBoxItem)
   Dim scrollPos As Double = 0

   Do
   items = myCB.Find.AllByType(Of ComboBoxItem)()

   For i As Integer = 0 To items.Count - 1
   If items(i).Text.Equals(itemToFind) Then
         scroller.InvokeMethod("ScrollToVerticalOffset", i)
   Return items(i)
   End If
   Next

   scrollPos += scroller.ViewportHeight
   scroller.InvokeMethod("ScrollToVerticalOffset", scrollPos)
   myCB.Refresh()

   Loop While scrollPos <= scroller.ExtentHeight
   Return Nothing
End Function

   <CodedStep("New Coded Step")> _
   Public Sub LoanTradeEntry_QuickTrades_CodedStep()
   Dim itemToFind As String = "AutoPortfolio21731"
   Dim app As SilverlightApp = ActiveBrowser.SilverlightApps()(0)
Dim myCB As ComboBox = app.Find.ByAutomationId(Of ComboBox)("PageScrollViewer")
Dim item As ComboBoxItem = FindComboBoxItemByText(itemToFind, myCB)
   Assert.IsNotNull(item, """" + itemToFind + """ not found in the ComboBox.")
   item.Click(MouseClickType.LeftClick, False, False, 0, 0, ArtOfTest.Common.OffsetReference.AbsoluteCenter, _
ArtOfTest.Common.ActionPointUnitType.Pixel, System.Windows.Forms.Keys.None)
   End Sub

If I'm passing search string which is not in ComboBox list, it is scrolling down until last record and throws error, that is fine and I expected.
Also, if the string is visible (after opening CoboBox) works fine.

But, if I'm passing string which is in list (but not visible, needs to scroll down to see), throwing outside bounds of browser window exception!

What I'm doing wrong in this one?

Thanks,
Madhu.