📄 m36.htm
字号:
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
<td bgcolor=#000000 height=11>
<div align=center class=H1> <font color="#FFFFFF">用VISUAL BASIC5.0创建ActiveX控件</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=2>
<p align="right"> <br>
</span></font> </font></p>
<p> <font size="+0" color="#000000">Edition 使 创
建 ActiveX</font> ™<font size=+0> 控 键 如 同
创 建 一 般 的 VB 应 用 程 序 那 样 容 易 。 读 完 本 文 ， 你 就 会 看 到 是 怎 样 的 容 易 。 </font></font></span></p>
<p> 本 文 概 述 了 用 VISUALBASIC
创 建 ActiveX 控 键 的 简 单 过 程 。 如 果 你 对 VISUALBASIC 的 各 个 版 本 已 经 很 熟 悉
， 那 么 在 10 分 钟 内 你 就 能 创 建 你 的 第 一 个 ActiveX 控 键 。 </font></span></p>
<p> <font size="+0" color="#000000">下 面 的 步 骤 将
引 导 你 完 成 创 建 一 个 通 常 叫 作 </font> "<font
size=+0> 微 调 控 制 项 </font>"<font size=+0> 控 键 的 过 程 。 微 调 控 制 项 控 键 是 一
个 图 形 化 的 ActiveX 控 键 ， 它 使 用 户 能 够 用 鼠 标 而 不 是 键 盘 来 增 加 获 降 低 一 个
值 ， 下 图 就 是 一 个 微 调 控 制 项 控 键 。 </font></font></span></p>
<p> <font color="#000000">现 在 你 已 经 对 要 建 立 的 对
象 有 了 一 个 概 念 。 下 面 就 开 始 吧 ！ </font></span></p>
<p> <font size="5" color="#000000"> 步 骤 1 ： 创
建 一 个 测 试 容 器 </font></span></p>
<p> <font color="#000000">启 动 ControlCreationEdition,
点 亮 Standard.EXE ， 单 击 Open ， 如 下 图 所 示 。 这 是 为 了 创 建 主 应 用 程 序 。 这
个 主 应 用 程 序 将 被 用 来 作 为 微 调 控 制 项 控 键 的 测 试 容 器 。 </font></span></p>
<p> <font size="5" color="#000000"> 步 骤 2 ： 添
加 一 个 空 白 的 ActiveX 控 键 工 程 文 件 。 </font></span></p>
<p> 从 File 菜 单 中 选 择 Add Project
命 令 。 </font></span></p>
<p> <font color="#000000">在 Add Project 对 话 框 中
点 量 ActiveX Control ， 并 单 击 Open 。 </font></span></p>
<p> <font size="+0" color="#000000">这 里 需 要 打 开
两 个 工 程 文 件 。 如 下 面 的 图 所 示 ， 这 些 工 程 文 件 都 很 相 似 。 注 意 ： 一 个 新 的 控
键 在 工 具 框 中 是 可 见 的 （ 在 图 5 中 被 点 量 ， 并 标 注 编 号 为 1 ） 。 如 果 你 把 鼠 标
移 到 在 Toolbox 中 的 这 个 控 键 上 ， 就 会 弹 出 一 个 Tooltip ， 显 示 出 控 键 的 当 前
名 称 ： </font> "<font size=+0>UserControl1" 。 由
于 这 个 控 键 是 被 禁 用 的 ， 因 此 Toolbox 中 它 的 图 标 应 当 变 灰 。 再 下 几 步 后 ， 这
个 控 键 应 当 被 允 许 。 </font></font></span></p>
<p> <font size="+0" color="#000000">VISUAL BASIC
5.0 使 用 与 建 立 一 般 应 用 程 序 相 同 的 可 视 metaphor 来 建 立 ActiveX 控 键 。 利 用
这 个 metaphor ， 你 首 先 可 以 </font> "<font size=+0>
绘 制 </font>"<font size=+0> 界 面 ， 设 置 一 些 属 性 ， 编 写 一 些 事 件 驱 动 代 码 ，
然 后 你 就 可 以 步 入 正 轨 了 。 </font></font></span></p>
<p> <font size="5" color="#000000"> 步 骤 3: 为 控
键 绘 制 可 视 界 面 </font></span></p>
<p> <font color="#000000">使 用 ControlCreationEdition
可 以 很 容 易 创 建 一 个 微 调 控 制 项 ， 因 为 它 能 够 将 现 有 的 控 键 合 并 成 为 新 的 ， 更
加 专 门 化 的 控 键 ， 在 这 个 例 子 中 ， 一 个 标 准 文 本 框 和 一 个 垂 直 滚 动 条 的 控 键 将
被 组 合 来 建 立 这 个 微 调 控 制 项 。 </font></span>
<ol>
<li> 单 击 VISUALBASIC 工 具
框 中 的 文 本 框 控 键 ， 这 个 控 键 在 下 图 中 被 标 注 为 1, 用 鼠 标 将 一 个 小 的 textbox
绘 制 到 Project2 窗 口 的 左 上 角 。 </font></span>
<li> 单 击 工 具 框 中 的 垂 直 滚
动 条 控 键 ， 并 把 它 绘 制 到 文 本 框 控 键 的 右 侧 。 </font></span>
<li> <font color="#000000">拖 动 新 绘 制 的 控 键 周 围
的 控 制 尺 寸 柄 ， 调 整 控 键 的 大 小 。 这 个 控 制 尺 寸 柄 在 下 图 中 标 为 3 。 你 的 ActiveX
应 当 与 下 图 的 控 键 差 不 多 。 </font></span></li>
</ol>
<p> <font size="5" color="#000000"> 步 骤 4 ： 编
写 事 件 驱 动 代 码 </font></span></p>
<p> <font color="#000000">我 们 已 经 为 一 个 微 调 控 制
项 建 好 了 可 视 界 面 。 下 一 步 就 应 当 编 写 事 件 驱 动 代 码 ， 使 文 本 框 显 示 垂 直 滚 动
条 的 当 前 值 。 文 本 框 的 值 应 当 随 着 用 户 用 鼠 标 拖 动 垂 直 滚 动 条 箭 头 上 下 移 动 而
增 减 。 为 了 把 这 两 个 事 件 绑 在 一 起 ， 应 当 把 一 些 代 码 写 在 垂 直 滚 动 条 的 Change
事 件 中 。 双 击 垂 直 滚 动 条 ， 使 出 现 代 码 窗 ， 将 下 面 一 行 代 码 敲 进 窗 口 中 ： </font></span></p>
<p> <font color="#000000">text1.text=vscroll1.value</font></span></p>
<p> <font size="+0" color="#000000">在 你 将 上 面 的
代 码 敲 入 的 时 候 ， 可 能 会 感 到 很 惊 异 。 当 敲 入 </font> "<font size=+0>
逗 点 </font>"<font size=+0> 时 ， VISUALBASIC5.0 会 显 示 出 一 列 这 个 文 本 框
可 有 的 属 性 。 ActiveX 组 建 包 含 有 这 种 类 型 的 信 息 ， 而 且 VISUALBASIC 自 动 使
它 立 即 可 用 。 这 是 你 将 在 VISUALBASIC5.0ControlCreationEdition 开 发 环 境 中
发 现 的 新 </font>"<font
size=+0> 智 能 </font>"<font size=+0> 的 一 个 例 子 。 </font></font></span></p>
<p> 代 码 全 部 敲 入 后 ， 单 击 关
闭 框 （ 图 7 中 的 编 号 1 ） 关 闭 代 码 窗 。 最 后 单 击 微 调 控 制 项 控 键 窗 体 的 关 闭 框
（ 图 7 中 的 编 号 2 ） ， 关 闭 微 调 控 制 项 控 键 窗 体 。 </font></span></p>
<p> 步 骤 5: 使 用 并 控 制 建 好 的
控 键 </font></span></p>
<p> <font color="#000000">如 果 控 键 被 成 功 建 立 ， 而
且 关 闭 了 微 调 控 制 项 窗 体 ， 那 么 微 调 控 制 项 控 键 应 当 被 允 许 了 。 检 查 一 下 ， 确
认 它 在 工 具 框 窗 口 中 不 在 是 变 灰 的 。 你 的 环 境 应 当 与 下 图 中 的 类 似 。 </font></span></p>
<p> 准 备 好 待 测 的 控 键 如 图 8
中 的 1 号 所 示 。 </font></span></p>
<p> <font color="#000000">要 测 试 新 创 建 的 控 键 ， 首
先 在 工 具 框 中 单 击 它 ， 把 它 绘 制 在 窗 体 1 中 ， 如 下 图 所 示 。 然 后 按 F5 运 行 这 个
应 用 程 序 。 当 你 用 鼠 标 上 下 移 动 微 调 控 制 项 控 键 中 的 箭 头 ， 文 本 框 的 值 将 会 随
着 改 变 ， 这 与 我 们 编 的 程 序 代 码 的 目 的 相 一 致 。 </font></span></p>
<p> 恭 喜 你 ， 你 刚 刚 创 建 了 你
的 第 一 个 ActiveX 控 键 ， 而 且 只 写 了 一 行 代 码 。 </font></span></p>
<p> </font></span></p>
<p> 从 这 儿 我 们 在 往 哪 去 呢
？ </font></span></p>
<p> <font color="#000000">下 一 步 ， 你 应 当 看 一 些 位
于 http://www.microsoft.com/vbasic/controls/ 的 资 料 ， 学 习 更 多 有 用 的 功
能 ， 这 些 功 能 可 以 很 容 易 地 在 你 的 ActiveX 控 键 中 建 立 。 这 些 资 料 包 括 属 性 页
， 使 你 的 控 键 数 据 清 晰 易 懂 ， 并 把 你 的 控 键 放 在 WEB 页 中 而 不 需 使 用 Java 程 序
语 言 编 写 。 </font></span></p>
<p> <font color="#000000">一 旦 建 好 一 个 控 键 ， 你 就
可 以 马 上 把 它 放 到 所 有 的 MicrosoftActiveX 控 键 宿 主 中 投 入 使 用 、 这 些 宿 主 包
括 ： </font></span></p>
<p> <font size="+0" color="#000000">Office97 、 VisualBasic4.0
、 VisualC++ 、 FrontPage</font> ™<font size=+0>2.0</font></font></span></p>
<p> <font color="#000000">如 果 你 愿 意 将 你 的 ActiveX
控 键 放 到 Web 页 上 ， 必 需 使 用 ActiveX ControlPad 。 ActiveX ControlPad 是
作 为 VISUALBASIC5.0 和 Control Creation Edition 一 部 份 发 布 的 ， 可 以 免 费
从 http://www.microsoft.com/workshop/author/cpad/ 下 载 。 </font></span></p>
<p> <font color="#000000">ActiveX 控 键 可 以 所 有 应
用 程 序 为 宿 主 ， 但 这 些 应 用 程 序 的 制 作 者 必 需 具 有 Visual Basic for Applications
环 境 的 。 截 至 1996 年 11 月 ， 这 些 应 用 环 境 包 括 ： </font></span>
<ul>
<li> <font size="+0" color="#000000">Adobe Systems
</font> <font
size=+0>http://www.adobe.com/</font></font> </span>
<li> <font size="+0" color="#000000">Autodesk
</font> <font
size=+0>http://www.autodesk.com/</font></font> </span>
<li> <font size="+0" color="#000000">B&C Micro
systems Inc.</font> <font
size=+0>http://www.bcmicro.com/</font></font> </span>
<li> <font size="+0" color="#000000">HAHT Software,Inc.</font> <font
size=+0>http://www.haht.com/</font></font> </span>
<li> <font size="+0" color="#000000">Micrografx</font> <font
size=+0>http://www.micrografx.com/</font></font> </span>
<li> <font size="+0" color="#000000">NetManage</font> <font
size=+0>http://www.netmanage.com/</font></font> </span>
<li> <font size="+0" color="#000000">Onpoint Technologies,Inc.</font> <font
size=+0>http://www.onpoint.com/</font></font> </span>
<li> <font size="+0" color="#000000">OSI Software,Inc.</font> <font
size=+0>http://www.osisoft.com/</font></font> </span>
<li> <font size="+0" color="#000000">Rockwell
Software</font> <font
size=+0>http://www.software.rockwell.com/</font></font> </span>
<li> <font size="+0" color="#000000">Sagent Technology,Inc.</font> <font
size=+0>http://www.sagenttech.com/</font></font> </span>
<li> <font size="+0" color="#000000">SAP</font> <font
size=+0>http://www.sap.com/</font></font> </span>
<li> <font size="+0" color="#000000">StarBase
Corporation</font> <font
size=+0>http://www.starbasecorp.com/</font></font> </span>
<li> <font size="+0" color="#000000">Systems Modeling,Inc.</font> <font
size=+0>http://www.sm.com/</font></font> </span>
<li> <font size="+0" color="#000000">Tandata Corp.</font> <font
size=+0>http://www.tandata.com/</font></font> </span>
<li> <font size="+0" color="#000000">The EC Company</font> <font
size=+0>http://www.eccompany.com/</font></font> </span>
<li> <font size="+0" color="#000000">Vantive</font> <font
size=+0>http://www.vantive.com/</font></font> </span>
<li> <font size="+0" color="#000000">Visio Corporation</font> <font
size=+0>http://www.visio.com/</font></font> </span></li>
</ul>
<p> <font color="#000000">要 得 到 最 新 的 目 录 ， 请 访
问 Visual Basic for Applications Web 站 点 或 直 接 进 入 "Who is Licensing
Visual Basic for Applications" 页 </font></span></p>
<p> <font color="#000000">如 果 希 望 在 Web 页 中 使 用
你 的 Active X 控 键 ， 你 可 以 用 编 写 Active X 控 键 和 VBScript 之 间 的 互 操 作 。
ActiveX ControlPad 是 作 为 VISUAL BASIC5.0 ， Control Creation Edition
和 Front Page'97. 的 一 部 份 发 行 的 。 </font></span></p>
<p>
<p></p>
<p align="right"> <br>
<br>
<br>
</b></font></p>
</td>
</tr>
</table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -