用VISUAL BASIC5.0創建ActiveX控件

夏鵬 編譯

簡 介

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. 的 一 部 份 發 行 的 。

原文轉自：http://www.anti-gravitydesign.com