如何在excel中使用drivelistbox等控件.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

你 所 说 的 几 个 控 件 都 是 VB的 内 置 控 件 ， 它 们 不 是 ActiveX控 件 ， 所 以 你 不 能 在 "附 加 控 件 "找 到 。 既 然 你 对 VB 5.0很 熟 悉 ， 完 全 可 以 利 用 VB 5.0编 写 ActiveX控 件 ， 然 后 在 VBA中 加 以 调 用 。 
    首 先 启 动 VB 5.0， 在 New Project窗 口 中 选 择 ActiveX Control。 这 时 你 的 工 程 文 件 中 将 包 括 一 个 UserControl1。 在 Project菜 单 下 选 择 Project1 Properties修 改 工 程 的 名 字 为 MyFileControl。 然 后 在 UserContronl1上 放 置 一 个 标 准 的 VB的 FileListBox， 然 后 选 择 Add-ins菜 单 中 的 ActiveX Control Interface Wizard。 如 果 你 的 Add-ins菜 单 中 没 有 这 项 ， 你 需 要 在 Add-ins菜 单 的 Add-ins Manager中 加 上 这 项 。 这 个 Wizard是 用 来 向 你 控 件 中 加 入 属 性 、 方 法 和 事 件 的 。 在 第 一 步 你 要 决 定 加 入 哪 些 属 性 、 方 法 和 事 件 ， 你 可 以 在 左 边 的 列 表 框 中 选 择 所 有 标 准 的 属 性 、 方 法 和 事 件 ， 加 入 到 右 边 列 表 框 中 。 一 些 FileListBox的 核 心 属 性 、 事 件 ， 象 Path、 PathChange、 Pattern当 然 不 能 缺 少 。 第 二 步 ， 你 可 以 加 入 自 己 的 属 性 ， 如 果 没 什 么 属 性 可 以 加 的 ， 就 跳 过 这 一 步 。 第 三 步 是 建 立 你 的 控 件 的 属 性 和 File1之 间 的 关 联 (下 图 )， 这 一 步 你 只 要 将 File1的 属 性 、 事 件 与 你 的 控 件 的 相 同 名 字 的 属 性 、 事 件 关 联 起 来 就 行 了 。 然 后 ， 一 直 继 续 下 去 直 至 结 束 。 最 后 ， 在 UserControl_Resize事 件 中 加 入 如 下 代 码 。 
    Private Sub UserControl_Resize() 
     File1.Width = UserControl.Width 
     File1.Height = UserControl.Height 
     File1.Move 0, 0 
    End Sub 
    至 此 ， 一 个 FileListBox控 件 就 制 作 好 了 ， 编 译 生 成 .ocx文 件 。 在 使 用 VBA时 在 "控 件 工 具 箱 "中 加 入 MyFileControl控 件 ， 你 就 可 以 使 用 自 己 的 文 件 框 了 。 类 似 的 ， 你 还 可 以 处 理 VB的 其 它 控 件 。 
<END>