Quantcast
Channel: Automation Beyond
Viewing all articles
Browse latest Browse all 156

How to simulate “mouse over” (TestComplete)

$
0
0

Description

“Mouse Over” event triggers responses like highlighting, pop-up hints, etc.

  • With TestComplete we can use one of GUI object’s methods – HoverMouse – to simulate mouse over by placing mouse cursor over object.
  • Alternatively, we can use LLPlayer object to simulate mouse moves.

In the example provided both methods are simulating mouse overs on Google Search page.

Implementation

  Dim PropNames, PropValues, IEProcess
  Dim objSearch1, objSearch2
  Dim Iter

  'Before running this code example make sure Google Search page is up in IE

  PropNames = Array("processname", "index")
  PropValues = Array("iexplore", 1)

  Set IEProcess = Sys.FindChild(PropNames, PropValues, 1, True)
  If Not IEProcess.Exists Then
    'not found - exit
  End If

  ' "Google Search" button
  PropNames = Array("ObjectType", "ObjectIdentifier")
  PropValues = Array("SubmitButton", "btnK")
  Set objSearch1 = IEProcess.FindChild(PropNames, PropValues, 100, True)
  If Not objSearch1.Exists Then
    'not found - exit
  End If

  ' "I'm Feeling Lucky" button
  PropNames = Array("ObjectType", "ObjectIdentifier")
  PropValues = Array("SubmitButton", "btnI")
  Set objSearch2 = IEProcess.FindChild(PropNames, PropValues, 100, True)
  If Not objSearch2.Exists Then
    'not found - exit
  End If

  '1st method
  For Iter = 1 To 2
    objSearch1.HoverMouse
    aqUtils.Delay 500

    objSearch2.HoverMouse
    aqUtils.Delay 500
  Next

  '2nd method
  For Iter = objSearch1.ScreenLeft To objSearch1.ScreenLeft+objSearch1.Width
    Call LLPlayer.MouseMove(Iter, objSearch1.ScreenTop+Int(objSearch1.Height/2), 10)
  Next

Viewing all articles
Browse latest Browse all 156

Trending Articles