QTP之相干富文本框赋值

2013-11-06

QTP之有关富文本框赋值前段时间在做QTP脚本时，遇到一个问题，主要问题是给富文本框赋值的问题。在录制时可以

QTP之有关富文本框赋值

前段时间在做QTP脚本时，遇到一个问题，主要问题是给富文本框赋值的问题。在录制时可以录制到给富文框赋值的过程，但是当回放时却放不了。通过SPY查看，富文本框的outerHtml发现，设置富文本框实际上是一个BODY，而不是Edit，所以回放时赋值是失败的。那么如何解决这个问题呢？最终通过操纵IE DOM结构来完成了这一过程。废话不说了，直接上代码(注意使用Object时不能回放于fireFox中)：

'设置富文本框的值

'bjtextAreaBelongFrameId:富文本框所在objFrame中的ID

'textAreaValue：想在富文本框中所设置的值

'返回想设置的值

Function Set_TextAreaValue(textAreaBelongFrameId,textAreaValue)

??????????????????On error resume next

??????????????????‘富文本框是在某个Frame框加下面的

??????????????????If Browser("").page("").Frame("html id:="&textAreaBelongFrameId).Exist(0) then

???????????????????????????SetobjFrame=Browser("").page("").Frame("htmlid:="&textAreaBelongFrameId).Object

???????????????????????????'获取Frame中所有的属性

???????????????????????????Set bjTextArea=objFrame.getElementsByTagName("BODY")

‘因为在这个Frame下面只有一个Body，而这个Body刚好就是富文框设置内容的地方，所以我们只需要给innertext属性赋一个值即可。

????????????????????????????????????objTextArea(0).InnerText=textAreaValue

???????????????????????????????????Set_TextAreaValue=textAreaValue

??????????????????end if

??????????????????If err.Number<>0 Then

???????????????????????????msgbox "出现异常"

??????????????????End If

??????????????????Set bjFrame=nothing

??????????????????Set bjTextArea=nothing

??????????????????Set TextAreaCount=nothing

??????????????????Set i=nothing

End Function

'获得富文本框的值,供查看时用

'textAreaBelongFrameId:富文本框所在objFrame中的ID

'返回所获得的值

Function Get_TextAreaValue(textAreaBelongFrameId)