51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 4340|回复: 10
打印 上一主题 下一主题

[原创] 发点有质量的贴——QTP自定义检查点

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-6-9 17:33:51 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
强烈呼吁大家发点有质量对大家有用的贴,又不是宝贝,在下先拍个砖引个玉
'********************************************************************************
'Function Name: Check_ComboBox_ItemValue
'Description:检查ComboBox的Item值是否一直
'Input : objVbComboBox :VbComboBox的对象实例, strItemValue: itemvalue的期望值, intItemValueLength: 截取ItemValue的值,传递给Left函数
'对于汉字的长度,一般一个汉字为2位
'Output:输出到Report, Pass Or Fail

'Developed by : xixihahahu
'Create Date:2008-08-26
'********************************************************************************
Function Check_ComboBox_ItemValue(objVbComboBox,strItemValue,intItemValueLength)
   Dim i
   Dim Cnt
   Cnt = objVbComboBox.GetItemsCount
   For i = 0 to Cnt -1
           If  Trim(Left(objVbComboBox.getItem(i),intItemValueLength))= strItemValue Then
                   Reporter.ReportEvent micPass,"检查ComboBox下拉项目","下拉项目包含“" & strItemValue & "”,测试通过"
                   Exit Function
           End If
   Next
   Reporter.ReportEvent micFail,"检查ComboBox下拉项目","下拉项目不包含“" & strItemValue & "”,测试失败"
End Function

'********************************************************************************
'Function Name: Check_Objects_ItemValue
'Description:检查obj的Item值是否和期望值相同
'Input : obj :控件对象实例, arrItemValue: 数组类型,存放待检查的包含项的期望值, arrItemValueLength: 截取ItemValue的值,传递给Left函数
'Output:输出到Report, Pass Or Fail

'Developed by : xixihahahu
'Create Date:2008-08-26
'********************************************************************************
Function Check_Objects_ItemValue(obj,arrItemValue,arrItemValueLength)
   Dim i
   Dim Cnt
   Cnt = UBound(arrItemValue)
   strReport = obj.ToString()&"包含下列项:"
   For i = 0 to Cnt
           If Trim(Left(obj.getItem(i),arrItemValueLength(i))) = arrItemValue(i) Then
                   strReport = strReport & vbNewLine & arrItemValue(i)
                   Else
                                Reporter.ReportEvent micFail,"检查控件包含项符合性","包含项不完全符合,"&arrItemValue(i)&"为第一个不符合项"
                                Exit Function
           End If
   Next
   Reporter.ReportEvent micPass,"检查控件包含项符合性",strReport
End Function

'********************************************************************************
'Function Name: Check_Objects_Text
'Description:检查控件如Dialog的字符串是否如期望值,适用于dialog类的对话框
'Input : obj :对象实例, strText:待验证的字符串期望值,
'Output:输出到Report, Pass Or Fail

'Developed by : xixihahahu
'Create Date:2008-08-27
'********************************************************************************
Function Check_Objects_Text(obj,strText)
   Dim i
   Dim Cnt
        txtArray = Split(obj.GetVisibleText(),vbCrLf,-1,1)
    Cnt = UBound(txtArray)  '取数组上限
        For i = 0 to Cnt
                If   Trim(txtArray(i)) = Trim(strText) Then
                        Reporter.ReportEvent micPass,"检查字符串是否一致","界面中包含字符串:"&strText
                        Exit Function          
                End If
        Next
                        Reporter.ReportEvent micFail,"检查字符串是否一致","界面中不包含字符串:"&strText
End Function

'********************************************************************************
'Function Name: Check_Object_SelectedText
'Description:检查控件如Dialog的字符串是否如期望值,适用于dialog类的对话框,是Check_Objects_Text改进
'Input : obj :对象实例, strText:待验证的字符串期望值,  intTextLength:价差字符串的长度
'Output:输出到Report, Pass Or Fail

'Developed by : qcc
'Create Date:2008-08-27
'********************************************************************************
Function Check_Object_SelectedText(obj,strText,intTextLength)
     Dim i
   Dim Cnt
        txtArray = Split(obj.GetVisibleText(),vbCrLf,-1,1)
    Cnt = UBound(txtArray)  '取数组上限
        For i = 0 to Cnt
                If   Left(Trim(txtArray(i)),intRequiredLength) = Left(Trim(strText),intRequiredLength) Then
                        Reporter.ReportEvent micPass,"检查字符串是否一致","界面中包含字符串:"&strText
                        Check_Object_SelectedText = True
                        Exit Function          
                End If
        Next
                        Reporter.ReportEvent micFail,"检查字符串是否一致","界面中不包含字符串:"&strText
                        Check_Object_SelectedText = False
End Function

'********************************************************************************
'Function Name: Check_List_Selection
'Description:检查list的Selection值是否一致
'Input : objVbList :VbList的对象实例, Exist:选择检查包含哪些项还是不包含任何项,如为True则表示检查包含哪些项,如为false,表示检查不包含任何项
'strSltValue:表示List中被选择项的期望值,intSltLength: 截取所选择项的值,传递给Left函数
'Output:输出到Report, Pass Or Fail

'Developed by : xixihahahu
'Create Date:2008-08-26
'********************************************************************************
Function Check_List_Selection(objVbList,Exist,strSltValue,intSltLength)
   Dim i
   Dim Cnt
   If Exist  Then
                   sltArray = Split(objVbList.GetRoProperty("Selection"),vblf,-1,1)
                    Cnt = UBound(sltArray)  '取数组上限
                For i = 0 to Cnt  
                        If Trim(Left(sltArray(i),intSltLength) = strSltValue) Then
                                        Reporter.ReportEvent micPass,"检查list选中项","选中项包含“" & strSltValue & "”,测试通过"
                                        Exit Function
                        End If
                Next
   Reporter.ReportEvent micFail,"检查list选中项","选中项不包含“" & strSltValue & "”,测试失败"
   End If
   If Not Exist Then
        If objVbList.GetRoProperty("Selection") = "" Then
                        Reporter.ReportEvent micPass,"检查list选中项","不包含任何选中项,测试通过"
                        Exit Function
                Else
                        Reporter.ReportEvent micFail,"检查list选中项","包含某些选中项,测试失败"
        End If
        End If
End Function

发错地方了,哎

[ 本帖最后由 xixihahahu 于 2009-6-9 17:38 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2009-6-10 09:14:09 | 只看该作者
学习了  研究研究
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2009-6-12 11:49:43 | 只看该作者
呵呵,学习了
回复 支持 反对

使用道具 举报

  • TA的每日心情
    奋斗
    2014-10-15 22:18
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    4#
    发表于 2009-6-14 15:37:17 | 只看该作者
    学习了,哈哈
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
    发表于 2009-6-14 17:32:14 | 只看该作者
    好东西,谢谢
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
    发表于 2009-6-14 18:17:17 | 只看该作者
    ::shanguang::: 真有质量。
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2015-2-28 09:48
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    7#
    发表于 2009-7-1 16:03:26 | 只看该作者
    有点强大,呵呵!!!
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    8#
    发表于 2009-7-1 16:11:37 | 只看该作者
    学习!
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    9#
    发表于 2010-3-4 16:26:22 | 只看该作者
    学习
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    10#
    发表于 2010-3-4 22:40:39 | 只看该作者
    楼主,这些function是放在lib里头吗?那么qtp调用的时候要怎么声明一下呢?。。。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    11#
    发表于 2011-6-25 12:27:52 | 只看该作者
    不错
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-8 11:45 , Processed in 0.075131 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表