A G E T C L A S S 函 数

在 打开 对话框 中 显示类库 并且创建一个包含该 类库 和所选类名称的 数组

语 法

AGETCLASS( ArrayName [, cLibraryName [, cClassName [, cTitleText

[, cFileNameCaption [, cButtonCaption ]]]]])

返 值 类 型逻辑型 参 数 描 述

ArrayName

指 定 数 组 的 名 称 在 该 数 组 中 保 存 类 库 和 类 的 名 称 如 果 所 指 定 的 数 组 不 存在 V isual FoxPro 会 自 动 创 建 该 数 组 如 果 该 数 组 存 在 但 是 大 小 不 足 以 容纳 类 库 和 类 的 名 称 则 V isual FoxPro 自 动 增 加 该 数 组 的 大 小 如 果 该 数 组 比所 需 的 要 大 则 V isual FoxPro 会 截 短 该 数 组 如 果 该 数 组 存 在 并 且 由 于 关闭 了 类 库 对 话 框 通 过 按 ESC 键 选 择 了 取 消 命 令 或 单 击 了 关 闭 按 钮 而 使 AGETCLASS 返 回 了 假 (.F.) 则 该 数 组 保 持 不 变

如 果 该 数 组 不 存 在 并 且 AGETCLASS 返 回 了 假 (.F.) 则 不 创 建 该数 组

下表列出了 当选择一个类时所创建 数组 的每个元素的内容

元 素 内 容

1. 所选 类库 的名称

2. 所选

   类库 的名称

cLibraryName

指 定 当 显 示 打 开 对 话 框 时 初 始 选 中 的 类 库 的 名 称 所 指 定 的 类 库 的 名 称显 示 在 文 件 名 文 本 框 中 如 果 所 指 定 的 类 库 不 存 在 或 者 cLibraryName 是 空 字 符 串 或 null 值 则 会 产 生 一 个 错 误

cClassName

指 定 当 显 示 打 开 对 话 框 时 在 类 名 列 表 中 初 始 选 中 的 类 的 名 称 如 果所 指 定 的 类 不 存 在 则 选 中 类 名 列 表 中 的 第 一 个 类 如 果 省 略cLibraryName 或 cClassName 是 null 值 则 会 产 生 一 个 错 误

cTitleText

指 定 在 打 开 对 话 框 的 标 题 栏 显 示 的 文 本 在 默 认 情 况 下 显 示 打开

cFileNameCaption

指 定 在 文 件 名 文 本 框 旁 边 显 示 的 文 本 在 默 认 情 况 下 显 示 文 件名

cButtonCaption

指 定 O K 按 钮 的 标 题

说 明

如果 您选择了一个类 则 AGETCLASS 返回 真 (.T.) 并且创建一个包含两个元素的一维 数组 第一个元素 包含 所选 类库 的名称 第二个元素 包含 所选 类 的名称 如果退出了 类库 对话框 通过按 ESC 键 选择了 取消 命令或单击了 关 闭 按钮 则返回 假 (.T.)

示 例

下面的示例创建了一个名为 aClassLib 的数组 目录更改到包含示范类的子目录Samples AGETCLASS ( ) 显示带有 Buttons 类库和选定的 VCR 类的对话框 如果选择了 修改 按扭 类库的名称和选定的类将存储在数组中 然后在 类设计器 中打开类

LOCAL aClassLib(2) && 创建一个数组 初始化为 .F.

cCurrentDir = CURDIR && 保存当前目录

CD HOME(2) + 'CLASSES' && 转换目录

aClassLib, 'BUTTONS.VCX', 'VCR', 'Modify Class', ; 'Class File:', 'Modify' && 显示对话框

CD (cCurrentDir) && 转换到先前目录

IF TYPE('aClassLib(2)') = 'C' && 选择了类

MODIFY CLASS (aClassLib(2)) OF (aClas sLib(1)) && 打开并修改

ENDIF

请 参 阅

ACLASS ( ), AMEMBERS( ), AVCXCLASSES( ) , CREATE CLASS