报告优化

dqf

1. '检查点
   
2. Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Check CheckPoint("wd")
   
3. Browser("百度一下，你就知道").Page("百度一下，你就知道").WebButton("百度一下").Check CheckPoint("百度一下")
   
4. 
   
5. '手工代码
   
6. Dim wd_value,wd_name,wd_type,wd_visible
   
7. Dim bt_name,bt_type,bt_visible
   
8. wd_value=Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").GetROProperty("value")
   
9. wd_name=Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").GetROProperty("name")
   
10. wd_type=Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").GetROProperty("type")
    
11. wd_visible=Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").GetROProperty("visible")
    
12. If wd_value="" Then
    
13. Reporter.ReportEvent micPass,"默认值","期望为空，实际为：" & wd_value
    
14. else
    
15. Reporter.ReportEvent micFail,"默认值","期望为空，实际为：" & wd_value
    
16. End If
    
17. 
    
18. If wd_name="wd"Then
    
19. Reporter.ReportEvent micPass,"名称","期望为wd，实际为：" & wd_name
    
20. else
    
21. Reporter.ReportEvent micFail,"名称","期望为wd，实际为：" & wd_name
    
22. End If
    
23. 
    
24. If wd_type="text" Then
    
25. Reporter.ReportEvent micPass,"类型","期望为text，实际为：" & wd_type
    
26. else
    
27. Reporter.ReportEvent micFail,"类型","期望为text，实际为：" & wd_type
    
28. End If
    
29. 
    
30. If wd_visible=true Then
    
31. Reporter.ReportEvent micPass,"状态","期望为可用，实际为：" & wd_visible
    
32. else
    
33. Reporter.ReportEvent micFail,"状态","期望为可用，实际为：" & wd_visible
    
34. End If
    
35. 
    
36. bt_name=Browser("百度一下，你就知道").Page("百度一下，你就知道").WebButton("百度一下").GetROProperty("name")
    
37. bt_type=Browser("百度一下，你就知道").Page("百度一下，你就知道").WebButton("百度一下").GetROProperty("type")
    
38. bt_visible=Browser("百度一下，你就知道").Page("百度一下，你就知道").WebButton("百度一下").GetROProperty("visible")
    
39. 
    
40. If bt_name="百度一下" Then
    
41. Reporter.ReportEvent micPass,"名称","期望为百度一下，实际为：" & bt_name
    
42. else
    
43. Reporter.ReportEvent micFail,"名称","期望为百度一下，实际为：" & bt_name
    
44. End If
    
45. 
    
46. If bt_type="submit" Then
    
47. Reporter.ReportEvent micPass,"类型","期望为submit，实际为：" & bt_type
    
48. else
    
49. Reporter.ReportEvent micFail,"类型","期望为submit，实际为：" & bt_type
    
50. End If
    
51. 
    
52. If bt_visible=true Then
    
53. Reporter.ReportEvent micPass,"状态","期望为可用，实际为：" & bt_visible
    
54. else
    
55. Reporter.ReportEvent micFail,"状态","期望为可用，实际为：" & bt_visible
    
56. End If
    

复制代码

前面2句是用QTP的标准检查点来做的，后面是自己写的代码，问题：
1.在QTP的标准检查点中是否可以自行配置各检查项呢？例如它是没有visible这项检查项，是否在哪能将此添加进行？
2.报告显示问题：
能否在自己写的代码生成的报告中也能象检查点生成的报告那样，以不同的图标来显示不同类型的对象；
树状结构，自己写的代码生成的报告中能否像“wd“的检查点生成的报告一样将4项做为一个结果来显示；另外在显示的层次结构上是否也可向检查生成的报告那样呢？
请大家帮忙看一下，如果可能的话请大家指教一下如何改。谢谢！

dqf

等人解决

dqf

如何将自定义函数注册成像内置函数一样使用方便呀。
http://www.51testing.com/html/95/n-96995.html；http://www.51testing.com/html/89/n-96989.html；这两个已经参见过了，但在运行时报错，提示：需要对象

pl80601983

同意3楼

snakeshiy

回复 4# dqf
图标我有试过从200~210之间的会有不一样的图标，其他的就不知道了。。。

dqf

非常感谢 层次感出来了，但那个图标好象还是不行呀（无论我写210还是310、510的显示都是同一个）；另外将此函数注册进去，像内置函数使用方便还是去了解一下

snakeshiy

1. 应该是不能自行配置的（不是很确定），使用自定义验证的方式会更加灵活
2. 使用Reporter对象的隐藏方法LogEvent，SetContext，UnSetContext，GetContext等方法可以达到你需要的效果，具体参考http://www.ltesting.net/ceshi/ce ... 11/1215/203769.html

dqf

图片怎么没上来呀 放附件中吧