C O M P O B J 函 数

比较两个对象的属性 若两者的属性和属性值相同 则返回 真 (.T.)

语 法

COMPOBJ ( oExpression1 , oExpression2 )

参 数 描 述

oExpression1 , oExpression2

指 定 要 比 较 的 对 象 oExpression1 和 oExpression2 可 以 是 任 何 求 值 结 果 为 对 象

的 表 达 式 如 对 象 引 用 对 象 变 量 或 对 象 数 组 元 素

返 值 类 型逻辑值 说 明

若一个对象具有另一个对象所没有的属性 或两个对象具有相同的属性但有一个或多个属性值不同 则 COMPOBJ 返回 假 (.F.)

示 例

在下面的示例中 创建了两个名为 lstMyList1 和 lstMyList2 的列表框和一个名为 cmbMyCombo

的组合框 并显示每个列表框的 Name 属性

COMPOBJ 用来比较第一个列表框和组合框的属性 因为许多属性不同 所以返 回 .F. 然后用 COMPOBJ 比较第一个列表框和第二个列表框的属性 因为 Names 属性不同 所以返回 .F. 用第一个列表框 lstMyList1 代替第二个列表框 lstMyList2 并用COMPOBJ 来比较属性 因为这两个列表框的属性相同 所以返回 .T.

lstMyList1 = CREATEOBJ('ListBox') && 创建一个 列 表 框 lstMyList2 = CREATEOBJ('ListBox') && 创建第二个 列表框cmbMyCombo = CREATEOBJ('ComboBox') && 创建一个 组合框

CLEAR

? lstMyList1.Name && 显示 List1 Name 属性

? lstMyList2.Name && 显示 List2 Name 属性

? COMPOBJ(lstMyList1, cmbMyCombo) && 显示 .F.

? COMPOBJ(lstMyList1, lstMyList2) && 显示 .F., 不同的 名称

lstMyList2.Name = lstMyList1.Name

? COMPOBJ(lstMyList1, lstMyList2) && 显示 .T., 相同的属性

请 参 阅

CREATEOBJECT , DEFINE CLASS, GETOBJECT , SET CLASSLIB