QTP 自动化测试之按住CTRL键click

来源：互联网发布：java ssh 书籍编辑：程序博客网时间：2024/05/17 01:31

'------------------------------------------------------------------------------------------------------------------------

'如果table下有多条记录则选择所有table下面的记录
'------------------------------------------------------------------------------------------------------------------------

Function SelectAllRecord(Parameter, Object)On Error Resume NextErr.ClearDim rowNorowNo = 0If OBJ_Find(Object) = False ThenSelectAllRecord = "Error|"&FormatCurrentTime() & " Cannot find object. Error Details: " & Err.Description & ".|"Exit FunctionEnd IfrowNo = Action_Object.RowCountAction_Object.ChildItem(1, 2,  "WebElement",0).ClickIf Cint(rowNo) > 1 ThenFor i = 2 To Cint(rowNo)'Press CTRL KeyoDeviceReplay.KeyDown VK_CONTROL'Get X&Y axes of the object from applicationX_Axis=Action_Object.ChildItem(i, 2,  "WebElement",0).GetROProperty("abs_x")Y_Axis=Action_Object.ChildItem(i, 2,  "WebElement",0).GetROProperty("abs_y")Action_Object.ChildItem(i, 2,  "WebElement",0).highlight'Click on the objectoDeviceReplay.MouseClick X_Axis,Y_Axis,LEFT_MOUSE_BUTTON'Release the CTRL KeyoDeviceReplay.KeyUp VK_CONTROLNextEnd IfIf Err.Number = 0 ThenSelectAllRecord =  "Pass|" & FormatCurrentTime() & " All the table record is selected successfully.|"ElseSelectAllRecord = "Error|" & FormatCurrentTime() & " Failed. Error Number :" & Err.Number & " Error Description :"&Err.Description&"|"End IfEnd Function

阅读全文

0 0

QTP 自动化测试 之 按住CTRL键click

QTP 自动化测试之按住CTRL键click