' 創建新的 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 时间: 2006-2-10 15:18 标题: 好东西~高人终于出现了 好东西~高人终于出现了作者: m_2 时间: 2006-2-10 15:54
请问,上述的代码是不是只能加标准的控件,第三方的控件可以吗?作者: Horus_Ra 时间: 2006-2-13 13:04
有一个问题……