TIB工作室成员 文青山 作品
前段时间在做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)
On error resume next
If Browser("").page("title:=IBook后台管理").Frame("html id:="&textAreaBelongFrameId).Exist(0) then
Set bjFrame= Browser("").page("").Frame("html id:="&textAreaBelongFrameId).Object
'获取Frame中所有的属性
Set bjTextArea=objFrame.getElementsByTagName("BODY")
Get_TextAreaValue=objTextArea(0).InnerText
end if
If err.Number<>0 Then
msgbox "出现异常"
End If
Set bjFrame=nothing
Set bjTextArea=nothing
Set TextAreaCount=nothing
Set i=nothing
End Function