調用 addobject 方法時,將觸發新添加對象的 Init 事件。在表單集中加入表單時,Load 事件在 Init 事件之前發生。
語法,參數,附註,addobject方法示例,套用於,
addobject 方法運行時,在容器對象中添加對象。
語法
Object.AddObject(cName, cClass [, cOLEClass] [, ainit1, aInit2 ...])
參數
cName
指定引用新對象的名稱。
cClass
指定添加對象所在的類。
cOLEClass
指定添加對象的 OLE 類。
aInit1, aInit2 ...
指定傳給新對象的 Init 事件的參數。
附註
當用 addobject 方法往容器中加入對象時,對象的 Visible 屬性設定為“假”(.F.)。因此您可以設定對象的屬性,而不看更改對象外觀時的一些中間效果。
addobject方法示例
下面的示例介紹怎樣使用 addobject 方法將對象或控制添加到表單中。此例用 addobject 方法往表單中加入一個 line 控制和三個命令按鈕。line 控制和命令按鈕的 visible 屬性設定為“真”(.t.)。在默認情況下,將對象或控制添加到表單後,它們是不可見的。
frmmyform = createobject('form') && 創建表單frmmyform.closable = .f. && 廢止控制選單框
frmmyform.addobject('shpline','line') && 在表單中添加 line 控制frmmyform.addobject('cmdcmndbtn1','cmdmycmndbtn1') && 向上命令按鈕frmmyform.addobject('cmdcmndbtn2','cmdmycmndbtn2') && 向下命令按鈕frmmyform.addobject('cmdcmndbtn3','cmdmycmndbtn3') && 退出命令按鈕
frmmyform.shpline.visible = .t. && 設定 line 控制可見
frmmyform.shpline.top = 20 && 指定 line 控制所在的行frmmyform.shpline.left = 125 && 指定 line 控制所在的列
frmmyform.cmdcmndbtn1.visible =.t. && 使向上命令按鈕可視frmmyform.cmdcmndbtn2.visible =.t. && 使向下命令按鈕可視frmmyform.cmdcmndbtn3.visible =.t. && 使退出命令按鈕可視
frmmyform.show && 顯示錶單read events && 開始事務處理
define class cmdmycmndbtn1 as CommandButton && 創建命令按鈕caption = 'slant \<up' && 命令按鈕的標題
left = 50 && 命令按鈕所在的列top = 100 && 命令按鈕所在的行height = 25 && 命令按鈕的高度
procedure clickthisform.shpline.visible = .f. &&隱藏 line 控制thisform.shpline.lineslant ='/' && 向上傾斜thisform.shpline.visible = .t. && 顯示 line 控制enddefine
define class cmdmycmndbtn2 as commandbutton && 創建命令按鈕caption = 'slant \<down' && 命令按鈕的標題left = 200 && 命令按鈕所在的列top = 100 && 命令按鈕所在的行height = 25 && 命令按鈕的高度
procedure clickthisform.shpline.visible = .f. && 隱藏 line 控制
thisform.shpline.lineslant ='\' && 向下斜thisform.shpline.visible = .t. && 顯示 line 控制enddefine
define class cmdmycmndbtn3 as commandbutton && 創建命令按鈕caption = '\<quit' && 命令按鈕的標題cancel = .t. && 默認的取消(esc)命令按鈕left = 125 && 命令按鈕所在的列top = 150 && 命令按鈕所在的行height = 25 && 命令按鈕的高度
procedure clickclear events && 結束事件處理,關閉表單enddefine
套用於
column, commandgroup, container對象, custom, dataenvironment, form, formset, grid, optiongroup, page, pageframe, _screen, toolbar