How to get the location(x,y) of an highlighted item in WinList

[Tarik Sheth]

You can use the following function to accomodate your requirement.

Code:

Public Sub ClickOnTextLocation()
        l = -1
    t = -1
    r = -1
    b = -1
    
    rtn = SwfWindow("xyz").SwfObject("abc").GetTextLocation("pqr",l,t,r,b,True)
    
    myX = SwfWindow("xyz").SwfObject("abc").GetROProperty("x")
    myY = SwfWindow("xyz").SwfObject("abc").GetROProperty("y")
    x= (l+r)/2
    y=(t+b)/2
    
    myX = myX + x
    myY = myY + y
    SwfWindow("xyz").Activate
    Set dr = CreateObject("Mercury.DeviceReplay")
    
    dr.MouseClick myX, myY, 0

End Sub