DynamicBackColor, DynamicForeColor 属 性

指定列对象的背景和前景色 运行期间每次刷新表格控件时 都重新计算颜色值

语 法

Column .DynamicBackColor[ = cExpression ] Column .DynamicForeColor[ = cExpression ] 参 数 描 述

cExpression

用 引 号 指 定 表 达 式 运 行 期 间 每 次 刷 新 表 格 控 件 时 都 重 新 求 值 运 行 时 的 计算 结 果 必 须 是 单 个 颜 色 值

说 明

可使用 DynamicBackColor 和 DynamicForeColor 属性创建特殊效果 例如 用绿色显示奇数行 而用灰色显示偶数行

示 例

下面的示例使用 DynamicBackColor 属性和 SetAll 方法指定表格控件中记录的背景颜色 若显示在表格中的记录号为偶数 则该记录的 DyamicBackColor 是白色 否则DynamicBackColor 是绿色

在表单上放置一个表格控件后 打开 customer 表并且在表格上显示该表的内容

Caption 属性用来为 CUST_ID 字段指定不同的标头标题 在表单上放置一个命令按钮

来关闭表单

CLOSE ALL && 关闭表和数据库

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

USE customer IN 0 && 打开 Customer 表

frmMyForm = CREATEOBJECT('Form') && 创建表单

frmMyForm.Closable = .f. && 使控件菜单框无效

frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn') && 添加命令按钮

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

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

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

, RGB(0,255,0))", "Column") && 交替白色和绿色记录

frmMyForm.grdGrid1.Visible = .T. && 表格控件可见frmMyForm.cmdCommand1.Visible =.T. && 退出 命令按钮可见frmMyForm.grdGrid1.Column1.Header1.Caption = 'Customer ID'

frmMyForm.SHOW && 显示表单

READ EVENTS && 启动事件处理

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

Caption = '\<Quit' && 命令按钮上的标题Canc el = .T. && 默认取消命令按钮 (Esc) Left = 125 && 命令按钮的列

Top = 210 && 命令按钮的行

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

PROCEDURE Click

CLEAR EVENTS && 结束事件处理 关闭表单

CLOSE ALL && 关闭表和数据库

ENDDEFINE

应 用 于

列

请 参 阅

BackColor_ForeColor 属 性