How to implement Mouse Right button

[Ravi_Chandra]

Hi,

As part of the application functionality, we have to righ click a record and select one of the options.

Can anyone provide a solution on how to write the code so that QTP can right click a record and select one of its options?

Thanks,
Ravi.

[PrabhatN]

Hi Ravi,

You have mentioned that you have to right click on a record. What exactly a record is here? I mean is it a link or table content or what?

I presume that it is a link and let say it has a name "Record1". After clicking the right mouse button, let say the menu comes is a WebElement. Below code may solve your purpose,

Code:

Set dReplayObj = CreateObject("Mercury.DeviceReplay")// Create an object of DeviceReplay

get_X = Browser("").Page("").Link("Record1").GetROProperty("abs_x")// Get X axis value of Record1

get_Y = Browser("").Page("").Link("Record1").GetROProperty("abs_y")// Get Y axis value of Record1

dReplayObj.MouseClick get_X,get_Y,RIGHT_MOUSE_BUTTON// Right click on the Record1

Browser("").Page("").WebElement("Menu").Click// Chose any option

You can spy on the objects, know the class types and then customize the above code accordingly.

Let me know for further clarification.

[Ravi_Chandra]

Hi Prabhat,

I have a data grid where
I have to search the record (webelement)
select the record
right click on it and
select the options from the right click menu.

I am able to get webelement using the below code:

Browser("XXX").Page("YYY").WebElement("ABC").SetToProperty "innertext", "abcd"
Browser("XXX").Page("YYY").WebElement("ABC").Click

Now I have to right click on this webelement....
Can you help me how can i achieve this?

Thanks,
Ravi.

[Saket]

See if any of this thread helps you-
https://www.learnqtp.com/forums/archive/...-2356.html
https://www.learnqtp.com/forums/Thread-R...-Web-Table
or you may try this -

Code:

Dim strObj
set strObj = browser("Google").Page("Google")
x_coord = strObj.GetROProperty("abs_x")

y_coord = strObj.GetROProperty("abs_y")

Set objDr = CreateObject("Mercury.DeviceReplay")

objDr.MouseClick x_coord, y_coord, 2
Dim WshShell
set WshShell = CreateObject("WScript.Shell")
Dim i ,n
For i = 0 to 14
If i = 12 Then
wshshell.sendkeys "{ENTER}"
For n = 0 to 6
If n = 5 Then
wait(1)
wshshell.sendkeys "{ENTER}"
Exit for
else
wshshell.sendkeys "{DOWN}"
End If
Next
Exit for
else
wshshell.sendkeys "{DOWN}"
End If
Next

[MailJayAbhi]

Hi Ravi,

Since you say that you have the Webelement , The simplest way to achieve this is
1.Use the Focus option onto the Webelement
2.Click on Shift+F10.

This is a easier way and can be put in a loop as well.

I hope this Helped.