Question

ScreenShotName = "Name_of_the_Screen2" &  CurrentTime & ".png"
ScreenName ="C:\"&ScreenShotName
Browser("Pat").Page("Car").WebEdit("UserName").Set "sdfsdf"
Browser("Pat").Page("Car").WebEdit("UserName").highlight    
Browser("Pat").Page("Car").CaptureBitmap ScreenName,True

我喜欢看到突出显示对象的页面图像。它在运行时突出显示，但screenprint不显示突出显示的对象。如何使用突出显示的对象获取丝网印刷？

Answer 1

Higlight方法是同步的，这意味着它会在测试的下一步运行之前完成所有操作。

如果要捕获突出显示的对象，则需要更改元素，捕获屏幕截图然后恢复元素。像这样（未经测试）：

' Definition
Public Function CaptureHighlight(ByRef containerObj, ByRef testObj, ByVal path)
       oldBorder = testObj.Object.style.border
       testObj.Object.style.border = "solid"
       containerObj.CaptureBitmap path, true
       testObj.Object.style.border = oldBorder
End Function


' Usage
CaptureHighlight Browser("Pat").Page("Car"), Browser("Pat").Page("Car").WebEdit("UserName"), ScreenName

如何使用UFT使用突出显示的对象进行丝网印刷？

1 个答案: