对启用了ReadOnly属性的WebEdit控件无法使用Set方法赋值的处理办法

 在测试web程序的时候,我们会遇到一些控件类型为WebEdit的控件,比如:日期为Webedit控件,但是它的赋值是通过一个日历控件选择日期进行赋值,且该Webedit内容为只读,不可直接输入,当我们在QTP中使用Set方法进行赋值的时候会报错,提示"Object is disabled",导致赋值失败,这个是由于该WebEdit的ReadOnly属性设置为true所致,如果我们要直接使用WebEdit的Set方法进行赋值时,我们可以通过以下几种方式实现Set的赋值操作.

方法1:使用对象自身接口进行赋值
      Browser("xxx")Page("xxx").WebEdit("xxx").Object.value="需要设置的值"

方法2:使用Set方法赋值前,调用clearAttributes方法清除属性.
      Browser("xxx")Page("xxx").WebEdit("xxx").Object.clearAttributes
      Browser("xxx")Page("xxx").WebEdit("xxx").set "需要设置的值"

方法3:修改WebEdit对象运行时的readOnly属性值为False,然后再调用Set方法进行赋值
      Browser("xxx")Page("xxx").WebEdit("xxx").Object.readOnly= false
      Browser("xxx")Page("xxx").WebEdit("xxx").Set "需要设置的值"
      以下是封装的一个修改readOnly属性,并进行赋值的函数
 '**************************************************************
 '功能：去除控件的只读属性(readOnly)，并赋值,赋值后,还原readOnly属性
 '参数：oWedEdit-WebEdit对象 ; SetValue - 需要设置的值
 '**************************************************************
 Function ReadOnlyWebEdit_SetValue(oWedEdit,SetValue)
      Set WedEdit_Properties = oWedEdit.Object
      '获取readOnly原属性值
      Get_OldValue = WedEdit_Properties.readOnly
      '判断readOnly原属性值是否启用
      If Get_OldValue = true  Then
           '去除控件的只读属性
            WedEdit_Properties.readOnly = false
           '进行赋值
           oWedEdit.set SetValue
           '还原readOnly属性
           WedEdit_Properties.readOnly = Get_OldValue
      Else
           oWedEdit.set SetValue
      End If
 End Function