夏鹏 编译

简 介 

Edition 使 创 建 ActiveX™ 控 键 如 同 创 建 一 般 的 VB 应 用 程 序 那 样 容 易 。 读 完 本 文 ， 你 就 会 看 到 是 怎 样 的 容 易 。 

本 文 概 述 了 用 VISUALBASIC 创 建 ActiveX 控 键 的 简 单 过 程 。 如 果 你 对 VISUALBASIC 的 各 个 版 本 已 经 很 熟 悉 ， 那 么 在 10 分 钟 内 你 就 能 创 建 你 的 第 一 个 ActiveX 控 键 。 

下 面 的 步 骤 将 引 导 你 完 成 创 建 一 个 通 常 叫 作 " 微 调 控 制 项 " 控 键 的 过 程 。 微 调 控 制 项 控 键 是 一 个 图 形 化 的 ActiveX 控 键 ， 它 使 用 户 能 够 用 鼠 标 而 不 是 键 盘 来 增 加 获 降 低 一 个 值 ， 下 图 就 是 一 个 微 调 控 制 项 控 键 。 

现 在 你 已 经 对 要 建 立 的 对 象 有 了 一 个 概 念 。 下 面 就 开 始 吧 ！ 

步 骤 1 ： 创 建 一 个 测 试 容 器 

启 动 ControlCreationEdition, 点 亮 Standard.EXE ， 单 击 Open ， 如 下 图 所 示 。 这 是 为 了 创 建 主 应 用 程 序 。 这 个 主 应 用 程 序 将 被 用 来 作 为 微 调 控 制 项 控 键 的 测 试 容 器 。 

步 骤 2 ： 添 加 一 个 空 白 的 ActiveX 控 键 工 程 文 件 。 

从 File 菜 单 中 选 择 Add Project 命 令 。 

在 Add Project 对 话 框 中 点 量 ActiveX Control ， 并 单 击 Open 。 

这 里 需 要 打 开 两 个 工 程 文 件 。 如 下 面 的 图 所 示 ， 这 些 工 程 文 件 都 很 相 似 。 注 意 ： 一 个 新 的 控 键 在 工 具 框 中 是 可 见 的 （ 在 图 5 中 被 点 量 ， 并 标 注 编 号 为 1 ） 。 如 果 你 把 鼠 标 移 到 在 Toolbox 中 的 这 个 控 键 上 ， 就 会 弹 出 一 个 Tooltip ， 显 示 出 控 键 的 当 前 名 称 ： "UserControl1" 。 由 于 这 个 控 键 是 被 禁 用 的 ， 因 此 Toolbox 中 它 的 图 标 应 当 变 灰 。 再 下 几 步 后 ， 这 个 控 键 应 当 被 允 许 。 

VISUAL BASIC 5.0 使 用 与 建 立 一 般 应 用 程 序 相 同 的 可 视 metaphor 来 建 立 ActiveX 控 键 。 利 用 这 个 metaphor ， 你 首 先 可 以 " 绘 制 " 界 面 ， 设 置 一 些 属 性 ， 编 写 一 些 事 件 驱 动 代 码 ， 然 后 你 就 可 以 步 入 正 轨 了 。 

步 骤 3: 为 控 键 绘 制 可 视 界 面 

使 用 ControlCreationEdition 可 以 很 容 易 创 建 一 个 微 调 控 制 项 ， 因 为 它 能 够 将 现 有 的 控 键 合 并 成 为 新 的 ， 更 加 专 门 化 的 控 键 ， 在 这 个 例 子 中 ， 一 个 标 准 文 本 框 和 一 个 垂 直 滚 动 条 的 控 键 将 被 组 合 来 建 立 这 个 微 调 控 制 项 。 

单 击 VISUALBASIC 工 具 框 中 的 文 本 框 控 键 ， 这 个 控 键 在 下 图 中 被 标 注 为 1, 用 鼠 标 将 一 个 小 的 textbox 绘 制 到 Project2 窗 口 的 左 上 角 。 
单 击 工 具 框 中 的 垂 直 滚 动 条 控 键 ， 并 把 它 绘 制 到 文 本 框 控 键 的 右 侧 。 
拖 动 新 绘 制 的 控 键 周 围 的 控 制 尺 寸 柄 ， 调 整 控 键 的 大 小 。 这 个 控 制 尺 寸 柄 在 下 图 中 标 为 3 。 你 的 ActiveX 应 当 与 下 图 的 控 键 差 不 多 。 
步 骤 4 ： 编 写 事 件 驱 动 代 码 

我 们 已 经 为 一 个 微 调 控 制 项 建 好 了 可 视 界 面 。 下 一 步 就 应 当 编 写 事 件 驱 动 代 码 ， 使 文 本 框 显 示 垂 直 滚 动 条 的 当 前 值 。 文 本 框 的 值 应 当 随 着 用 户 用 鼠 标 拖 动 垂 直 滚 动 条 箭 头 上 下 移 动 而 增 减 。 为 了 把 这 两 个 事 件 绑 在 一 起 ， 应 当 把 一 些 代 码 写 在 垂 直 滚 动 条 的 Change 事 件 中 。 双 击 垂 直 滚 动 条 ， 使 出 现 代 码 窗 ， 将 下 面 一 行 代 码 敲 进 窗 口 中 ： 

text1.text=vscroll1.value

在 你 将 上 面 的 代 码 敲 入 的 时 候 ， 可 能 会 感 到 很 惊 异 。 当 敲 入 " 逗 点 " 时 ， VISUALBASIC5.0 会 显 示 出 一 列 这 个 文 本 框 可 有 的 属 性 。 ActiveX 组 建 包 含 有 这 种 类 型 的 信 息 ， 而 且 VISUALBASIC 自 动 使 它 立 即 可 用 。 这 是 你 将 在 VISUALBASIC5.0ControlCreationEdition 开 发 环 境 中 发 现 的 新 " 智 能 " 的 一 个 例 子 。 

代 码 全 部 敲 入 后 ， 单 击 关 闭 框 （ 图 7 中 的 编 号 1 ） 关 闭 代 码 窗 。 最 后 单 击 微 调 控 制 项 控 键 窗 体 的 关 闭 框 （ 图 7 中 的 编 号 2 ） ， 关 闭 微 调 控 制 项 控 键 窗 体 。 

步 骤 5: 使 用 并 控 制 建 好 的 控 键 

如 果 控 键 被 成 功 建 立 ， 而 且 关 闭 了 微 调 控 制 项 窗 体 ， 那 么 微 调 控 制 项 控 键 应 当 被 允 许 了 。 检 查 一 下 ， 确 认 它 在 工 具 框 窗 口 中 不 在 是 变 灰 的 。 你 的 环 境 应 当 与 下 图 中 的 类 似 。 

准 备 好 待 测 的 控 键 如 图 8 中 的 1 号 所 示 。 

要 测 试 新 创 建 的 控 键 ， 首 先 在 工 具 框 中 单 击 它 ， 把 它 绘 制 在 窗 体 1 中 ， 如 下 图 所 示 。 然 后 按 F5 运 行 这 个 应 用 程 序 。 当 你 用 鼠 标 上 下 移 动 微 调 控 制 项 控 键 中 的 箭 头 ， 文 本 框 的 值 将 会 随 着 改 变 ， 这 与 我 们 编 的 程 序 代 码 的 目 的 相 一 致 。 

恭 喜 你 ， 你 刚 刚 创 建 了 你 的 第 一 个 ActiveX 控 键 ， 而 且 只 写 了 一 行 代 码 。 

　

从 这 儿 我 们 在 往 哪 去 呢 ？ 

下 一 步 ， 你 应 当 看 一 些 位 于 http://www.microsoft.com/vbasic/controls/ 的 资 料 ， 学 习 更 多 有 用 的 功 能 ， 这 些 功 能 可 以 很 容 易 地 在 你 的 ActiveX 控 键 中 建 立 。 这 些 资 料 包 括 属 性 页 ， 使 你 的 控 键 数 据 清 晰 易 懂 ， 并 把 你 的 控 键 放 在 WEB 页 中 而 不 需 使 用 Java 程 序 语 言 编 写 。 

一 旦 建 好 一 个 控 键 ， 你 就 可 以 马 上 把 它 放 到 所 有 的 MicrosoftActiveX 控 键 宿 主 中 投 入 使 用 、 这 些 宿 主 包 括 ： 

Office97 、 VisualBasic4.0 、 VisualC++ 、 FrontPage™2.0

如 果 你 愿 意 将 你 的 ActiveX 控 键 放 到 Web 页 上 ， 必 需 使 用 ActiveX ControlPad 。 ActiveX ControlPad 是 作 为 VISUALBASIC5.0 和 Control Creation Edition 一 部 份 发 布 的 ， 可 以 免 费 从 http://www.microsoft.com/workshop/author/cpad/ 下 载 。 

ActiveX 控 键 可 以 所 有 应 用 程 序 为 宿 主 ， 但 这 些 应 用 程 序 的 制 作 者 必 需 具 有 Visual Basic for Applications 环 境 的 。 截 至 1996 年 11 月 ， 这 些 应 用 环 境 包 括 ： 

Adobe Systems     http://www.adobe.com/ 
Autodesk      http://www.autodesk.com/ 
B&C Micro systems Inc.  http://www.bcmicro.com/ 
HAHT Software,Inc.   http://www.haht.com/ 
Micrografx     http://www.micrografx.com/ 
NetManage     http://www.netmanage.com/ 
Onpoint Technologies,Inc. http://www.onpoint.com/ 
OSI Software,Inc.   http://www.osisoft.com/ 
Rockwell Software   http://www.software.rockwell.com/ 
Sagent Technology,Inc.  http://www.sagenttech.com/ 
SAP       http://www.sap.com/ 
StarBase Corporation   http://www.starbasecorp.com/ 
Systems Modeling,Inc.  http://www.sm.com/ 
Tandata Corp.    http://www.tandata.com/ 
The EC Company    http://www.eccompany.com/ 
Vantive      http://www.vantive.com/ 
Visio Corporation   http://www.visio.com/ 
要 得 到 最 新 的 目 录 ， 请 访 问 Visual Basic for Applications Web 站 点 或 直 接 进 入 "Who is Licensing Visual Basic for Applications" 页 

如 果 希 望 在 Web 页 中 使 用 你 的 Active X 控 键 ， 你 可 以 用 编 写 Active X 控 键 和 VBScript 之 间 的 互 操 作 。 ActiveX ControlPad 是 作 为 VISUAL BASIC5.0 ， Control Creation Edition 和 Front Page'97. 的 一 部 份 发 行 的 。