检查界面层对象是否存在并写入测试报告

' 检查界面层对象是否存在并写入测试报告

Public Function IsContextLoaded(ByRef htContext)

Dim ix, items, keys, strDetails, strAdditionalRemarks

IsContextLoaded=true

items = htContext.Items

keys = htContext.Keys

For ix = 0 To htContext.Count-1

IsContextLoaded = IsContextLoaded And items(ix).Exist(0)

strDetails = strDetails & vbNewLine & "Object #" & ix+1 & ": '" & keys(ix) & "' was"

If IsContextLoaded Then

intStatus = micPass

strDetails = strDetails & ""

strAdditionalRemarks = ""

Else

intStatus = micWarning

strDetails = strDetails & " not"

strAdditionalRemarks = " Please check the object properties."

End If

strDetails = strDetails & " found." & strAdditionalRemarks

Next

Reporter.ReportEvent intStatus, "IsContextLoaded", strDetails

End Function