SetAll 方法

SetAll 方法 - 图1 为容器对象中的所有控件或某类控件指定一个属性设置

语法

*Container.*SetAll( c Property ,Value [, cClas s])

参数描述

cProperty

SetAll 方法 - 图2 要设置的属性

Value

SetAll 方法 - 图3 SetAll 方法 - 图4 属性的新设置 Value 的数据类型取决于要设置的属性

cClass

SetAll 方法 - 图5 SetAll 方法 - 图6 SetAll 方法 - 图7 指定类名该类为对象的基类不能是 Visual FoxPro 基类

说明

SetAll 方法 - 图8 SetAll 方法 - 图9 SetAll 方法 - 图10 SetAll 方法 - 图11 使用 SetAll 方法可为容器中的所有控件或某类控件设置一个属性例如为了把表格控件中列对象的 BackColor 属性设置为红色可以使用下列命令

F orm1.Grid1.SetAll( BackColor, RGB(255, 0, 0), ‘Column’)

SetAll 方法 - 图12 SetAll 方法 - 图13 SetAll 方法 - 图14 也可以设置容器中其他对象包含的对象属性要把表格控件中每个列对象包含的标头的 ForeColor 属性设置为绿色可以使用下列命令

F orm1.Grid1.SetAll('ForeColor', RGB(0, 255, 0), 'Header')

示例

SetAll 方法 - 图15 SetAll 方法 - 图16 SetAll 方法 - 图17 SetAll 方法 - 图18 下面的示例用 Set All 方法和 DynamicBackColor 属性为一个表格控件中的记录指定背景颜色如果表格中显示的记录编号是偶数则记录的 DynamicBackColor 为白色否则它的颜色为绿色

SetAll 方法 - 图19 SetAll 方法 - 图20 SetAll 方法 - 图21 SetAll 方法 - 图22 SetAll 方法 - 图23 SetAll 方法 - 图24 SetAll 方法 - 图25 在示例中表格控件放在一个表单内 customer 表是打开的而且内容用表格控件显示 Caption 属性用来为 CUST_ID 字段指定一个标头标题 (Customer ID) 表单中放有一个命令按钮用来关闭表单

CLOSE ALL && 关闭表和数据库

OPEN DATABASE (HOME( 2 ) + 'data\testdata')

USE customer IN 0 && 打开 Customer 表

frmMyForm = CREATE OBJECT ('Form') && 创建一个表单

frmMyForm.Closable = .f. && 禁止控件菜单框

frmMyForm.Addobject('cmd Command 1','cmdMyCmdBtn') && 添加命令按钮

frmMyForm.Addobject('grdGrid1','Grid') && 添加表格控件

frmMyForm.grdGrid1.Left = 25 && 调整表格位置

frmMyForm.grdGrid1.SetAll("DynamicBackColor", ; "IIF(MOD(RECNO( ), 2)=0, RGB(255,255,255) ;

, RGB(0,255,0))", "Column") && 动态设置白和绿记录

SetAll 方法 - 图26 SetAll 方法 - 图27 frmMyForm.grdGrid1.Visible = .T. && 使表格控件可见 frmMyForm.cmd Command 1.Visible =.T. && 使 Quit 命令按钮可视frmMyForm.grdGrid1.Column1.Header1.Caption = 'Customer ID' frmMyForm.SHOW && 显示表单

READ eventS && 开始事件循环

DEFINE CLASS cmdMyCmdBtn AS Command Button && 创建命令按钮

Caption = '\<Quit' && 为命令按钮加标题Cancel = .T. && 默认的取消命令按钮 (Esc) Left = 125 && 命令按钮起始点所在的列 Top = 210 && 命令按钮起始点所在的行Height = 25 && 命令按钮的高度

PROCEDURE Click

SetAll 方法 - 图28 CLEAR eventS && 终止事件循环关闭表单

CLOSE ALL && 关闭表和数据库

ENDDEFINE

应用于

SetAll 方法 - 图29 SetAll 方法 - 图30 SetAll 方法 - 图31 SetAll 方法 - 图32 SetAll 方法 - 图33 SetAll 方法 - 图34 SetAll 方法 - 图35 SetAll 方法 - 图36 SetAll 方法 - 图37 SetAll 方法 - 图38 列命令组容器对象表单表单集表格选项组页面页框 _SCREEN 工具栏

请参阅

SaveAs 方法 , SaveAsClass 方法

SetAll 方 法

SetAll 方 法

SetAll 方法

SetAll 方法