如何在object Repository中，加入目前没有的对象。

zhengfeng

如何在object Repository中，加入目前没有的对象。
(注： 由于目前没有对象，所以不能用spy add object)

[ 本帖最后由 zhengfeng 于 2006-2-9 15:03 编辑 ]

zhengfeng

又请问： 如何将一个Action的objects  导入另外一个Aciton的对象库中。

oldsidney

你可以寫 script 的方式將目前 Object Repository 沒有的對象加到 Object Repository 中，詳細的 API 文件在 QuickTest Plus 套件中(含在 QTP 光盤中)。
不過我想問題是，目前沒有的對象，你怎麼知道其屬性為何，因為要加到 Object Repository 中一定要知道屬性才有用呀？？？

以下是 Example script：
' 載入 Object Repository
Set oru = CreateObject ("Mercury.ObjectRepositoryUtil")
oru.LoadActionRepository "C:\Temp\Login","Action1"

' 取得 Parent Object
Set ParentObj = oru.GetObjectByParent( NULL, "Dialog(""Login"")" )

' 創建新的 Test Object ( A Stdbutton in this case ) 並設置其屬性
set StdButton = CreateObject("Mercury.WinButton")
StdButton.SetTOProperty "text","Cancel"
StdButton.SetTOProperty "nativeclass","Button"

' 將新的 Test Object (StdButton) 加到 parent object
' ( DialogBox). Set the logical name of the new Test Object to "Cancel"
oru.AddObject StdButton, ParentObj, "Cancel"

' 儲存 Object Repository
oru.Save
Set ParentObj = nothing
Set StdButton = nothing
Set oru = nothing

hongtang

好东西~高人终于出现了

m_2

请问，上述的代码是不是只能加标准的控件，第三方的控件可以吗？

Horus_Ra

有一个问题……

如果QTP能识别这个对象的话，那么就用不着自己手工添加了对吧？你点下面的“Add/Remove...”就可以添加属性了……

如果QTP不能识别的话，那么就算你添加了属性，但QTP取不到这个属性的值，不还是没用？