AddObject 方法

AddObject 方法 - 图1 AddObject 方法 - 图2 运行时在容器对象中添加对象

语法

object .Add O bjec t( cNam e, cClass [, cOLEClass ] [, aInit1 , aInit2 ...])

参数描述

cName

AddObject 方法 - 图3 指定引用新对象的名称

cClass

AddObject 方法 - 图4 指定添加对象所在的类

cOLEClass

AddObject 方法 - 图5 指定添加对象的 OLE 类

aInit1 , aInit2

AddObject 方法 - 图6 指定传给新对象的 Init 事件的参数

说明

AddObject 方法 - 图7 AddObject 方法 - 图8 AddObject 方法 - 图9 调用 AddObject 方法时将触发新添加对象的 Init 事件在表单集中加入表单时

AddObject 方法 - 图10 Load 事件在 Init 事件之前发生

AddObject 方法 - 图11 AddObject 方法 - 图12 AddObject 方法 - 图13 AddObject 方法 - 图14 AddObject 方法 - 图15 注意 当用 AddObject 方法往容器中加入对象时对象的 V isible 属性设置为假 (.F.) 因此您可以设置对象的属性而不看更改对象外观时的

AddObject 方法 - 图16 一些中间效果

示例

AddObject 方法 - 图17 下面的示例介绍怎样使用 AddObject 方法将对象或控件添加到表单中此例用

AddObject 方法 - 图18 AddObject 方法往表单中加入一个 Line 控件和三个命令按钮

AddObject 方法 - 图19 AddObject 方法 - 图20 AddObject 方法 - 图21 AddObject 方法 - 图22 AddObject 方法 - 图23 AddObject 方法 - 图24 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 Click

ThisForm.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 Click

ThisForm.shpLine.Visible = .F. && 隐藏 Line 控件ThisForm.shpLine.LineSlant ='\' && 向下斜ThisForm.shpLine.Visible = .T. && 显示 Line 控件

ENDDEFINE

DEFINE CLASS cmdMyCmndBtn3 AS CommandButton && 创建命令按钮

Caption = '\<Quit' && 命令按钮的标题Cancel = .T. && 默认的取消 (ESC )命令按钮Le ft = 125 && 命令按钮所在的列

Top = 150 && 命令按钮所在的行

Height = 25 && 命令按钮的高度

PROCEDURE Click

AddObject 方法 - 图25 CLEAR EVENTS && 结束事件处理关闭表单

ENDDEFINE

应用于

AddObject 方法 - 图26 AddObject 方法 - 图27 AddObject 方法 - 图28 AddObject 方法 - 图29 AddObject 方法 - 图30 AddObject 方法 - 图31 AddObject 方法 - 图32 AddObject 方法 - 图33 AddObject 方法 - 图34 AddObject 方法 - 图35 AddObject 方法 - 图36 AddObject 方法 - 图37 列命令组容器对象定制数据环境表单表单集表格选项组页面页框 _SCREEN 工具栏

请参阅

Init 事件 , Load 事件 , RemoveObject 方法 , V isible 属性

AddObject 方 法

AddObject 方 法

AddObject 方法

AddObject 方法