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

最新推荐文章于 2020-01-11 15:15:22 发布

yinshuilan

最新推荐文章于 2020-01-11 15:15:22 发布

阅读量469

点赞数

分类专栏： QTP/UFT

本文链接：https://blog.csdn.net/yinshuilan/article/details/77188968

版权

QTP/UFT 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

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

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

Function SelectAllRecord(Parameter, Object)
	On Error Resume Next
	Err.Clear
	Dim rowNo
	rowNo = 0
	If OBJ_Find(Object) = False Then
		SelectAllRecord = "Error|"&FormatCurrentTime() & " Cannot find object. Error Details: " & Err.Description & ".|"
		Exit Function
	End If
	rowNo = Action_Object.RowCount
	Action_Object.ChildItem(1, 2,  "WebElement",0).Click
	If Cint(rowNo) > 1 Then
		For i = 2 To Cint(rowNo)
		'	Press CTRL Key
			oDeviceReplay.KeyDown VK_CONTROL
		'	Get X&Y axes of the object from application
			X_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 object
			oDeviceReplay.MouseClick X_Axis,Y_Axis,LEFT_MOUSE_BUTTON
		'	Release the CTRL Key
			oDeviceReplay.KeyUp VK_CONTROL
		Next
	End If
	If Err.Number = 0 Then
		SelectAllRecord =  "Pass|" & FormatCurrentTime() & " All the table record is selected successfully.|"
	Else
		SelectAllRecord = "Error|" & FormatCurrentTime() & " Failed. Error Number :" & Err.Number & " Error Description :"&Err.Description&"|"
	End If
End Function