回复 3楼 Wayneboc
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 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)命令按钮
left = 125 && 命令按钮所在的列
top = 150 && 命令按钮所在的行
height = 25 && 命令按钮的高度
procedure click
clear events && 结束事件处理,关闭表单
enddefine