SET CLASSLIB 命 令

SET CLASSLIB 命 令 - 图1打开包含类定义的 .VCX 可视类库

语 法

SET CLASSLIB TO ClassLibraryName [IN APPF ileName | EXEFileNam e] [ADDITIVE] [ALIAS AliasName ]

参 数 描 述

TO C lassLibraryName

SET CLASSLIB 命 令 - 图2SET CLASSLIB 命 令 - 图3SET CLASSLIB 命 令 - 图4SET CLASSLIB 命 令 - 图5指 定 要 打 开 的 .VCX 可 视 类 库 的 名 称 如 果 ClassLibraryName 没 有 包 含 完 整的 路 径 名 V isual FoxPro 首 先 在 默 认 的 V isual FoxPro 目 录 中 查 找 可 视 类 库然 后 在 V isual FoxPro 路 径 下 各 目 录 中 查 找

SET CLASSLIB 命 令 - 图6SET CLASSLIB 命 令 - 图7SET CLASSLIB 命 令 - 图8如 果 不 带 ClassLibraryName 执 行 SET CLASSLIB TO 命 令 则 V isual FoxPro 将 关 闭 所 有 的 可 视 类 库 用 RELEASE CLASSLIB 命 令 也 可 以 关 闭 一 个 可 视类 库

IN APPF ileName | EXEF ileName

SET CLASSLIB 命 令 - 图9指 定 类 库 所 在 的 应 用 程 序 文 件 ( .APP) 或 可 执 行 文 件 (.EXE) ADDITIVE

SET CLASSLIB 命 令 - 图10SET CLASSLIB 命 令 - 图11打 开 .VCX 可 视 类 库 时 不 关 闭 任 何 当 前 打 开 的 .VCX 可 视 类 库 如 果 省 略

SET CLASSLIB 命 令 - 图12SET CLASSLIB 命 令 - 图13这 个 子 句 将 关 闭 所 有 .VCX 可 视 类 库

ALIAS AliasName

SET CLASSLIB 命 令 - 图14SET CLASSLIB 命 令 - 图15SET CLASSLIB 命 令 - 图16SET CLASSLIB 命 令 - 图17SET CLASSLIB 命 令 - 图18SET CLASSLIB 命 令 - 图19指 定 可 视 类 库 的 别 名 可 以 通 过 它 的 别 名 来 引 用 可 视 类 库 例 如 以 下 命 令打 开 了 一 个 名 为 M yClass 的 .v cx 可 视 类 库 将 它 赋 予 别 名 MyCntrls 然 后 创建 一 个 名 为 MyButton 的 控 件

SET CLASSLIB TO MyClass ALIAS MyCntrls mMyButton = CREATEOBJ('MyCntrls.MyButton')

说 明

SET CLASSLIB 命 令 - 图20SET CLASSLIB 命 令 - 图21SET CLASSLIB 命 令 - 图22SET CLASSLIB 命 令 - 图23当执行 CREATE 对象 ( ) DEFINE CLASS 中的 ADD 对象 或 Add 对象 Method 时Visual FoxPro 在下列位置按下列顺序查找类定义 这个类定义定义了这些命令中指定的对象

  1. SET CLASSLIB 命 令 - 图24Visual

    Fox Pro 基 类

  2. SET CLASSLIB 命 令 - 图25按

    装 入 顺 序 查 找 内 存 中 的 类 定 义

  3. SET CLASSLIB 命 令 - 图26当

    前 程 序 中 的 类 定 义

  4. SET CLASSLIB 命 令 - 图27由

    SET CLASSLIB 打 开 的 .VCX 类 库 中 的 类 定 义

  5. SET CLASSLIB 命 令 - 图28由

    SET PROCEDURE 打 开 的 过 程 文 件 中 的 类 定 义

  6. SET CLASSLIB 命 令 - 图29在

    Visual FoxPro 程 序 执 行 链 中 的 类 定 义

  7. SET CLASSLIB 命 令 - 图30注册屏幕

SET CLASSLIB 命 令 - 图31SET CLASSLIB 命 令 - 图32如果没有找到包含对象的类定义 Visual FoxPro 产生一条错误信息

示 例

SET CLASSLIB 命 令 - 图33SET CLASSLIB 命 令 - 图34SET CLASSLIB 命 令 - 图35SET CLASSLIB 命 令 - 图36SET CLASSLIB 命 令 - 图37以下 示例 使用了 CREATE CLASSLIB 命令创建了一个名 为 myclslib 的可视类库 基于Visual FoxPro 表单 ( Form ) 基类创建了一个名为 myform 的类 并将其保存在 myclslib 可视类库中 使用 SET CLASSLIB 命令打开 myclslib 可视类库 以 便使用其中的类

CREATE CLASSLIB myclslib && 新建 .VCX 可视类库

CREATE CLASS myform OF myclslib AS "Form" && 新建类

SET CLASSLIB TO myclslib ADDITIVE && 打开 MyClsLib.VCX

请 参 阅

ADD CLASS , Addobject 方 法 , CREATE CLASS , CREATE CLASSLIB , CREATEobject ( ) , MODIFY CLASS , RELEASE CLASSLIB , SET PROCEDURE , SET OLEobject