VB 程序设计
使用ADD-IN 技术加强Visual Basic 开发环境
---- Visual Basic 5.0 是 一 个 功 能 强 大 的 集 成 开 发 环 境， 它 可 以 自 动 检 查 语 法 错 误， 提 示 编 码 员 语 法 格 式。 这 些 功 能 都 大 大 提 高 了 编 码 效 率。 可 是 它 作 为 快 捷 开 发 工 具， 它 的 特 点 还 突 出 体 现 在 那 就 是Add-In 技 术 上。 利 用 它， 我 们 可 以 强 化 和 定 制VB 开 发 环 境： 可 以 自 动 在 所 有Project 中 自 动 加 入 一 个 模 块； 可 以 将 每 个 模 块 中 的 某 个 模 块 替 换 成 另 一 个 模 块； 可 以 在 程 序 中 查 找 某 段 代 码， 并 将 它 替 换 掉； 理 论 上 讲， 我 们 甚 至 可 以 利 用 该 技 术 做 一 个 代 码 自 动 生 成 器。
---- Add-In 技 术 的 实 质 就 是VB 编 程 环 境 本 身 做 为 一 个 对 象 模 型 向 用 户 公 开 出 来， 我 们 可 以 将 一 个 模 块、 一 段 代 码 做 为 一 个 操 作 对 象 来 修 改、 优 化。 下 面， 我 们 通 过 一 个 实 例 来 介 绍Add-In 技 术 的 使 用。
---- 例 如， 你 想 将 程 序 中 的 这 样 一 段 代 码：
dim nIndex as integer
nIndex=cStr(vsFlex.Text)
替换为：
dim sIndex as string
sIndex=Spread.text
---- 包 括Word 在 内 的 大 多 数 编 辑 软 件 都 不 包 括 多 行 查 找 替 换 功 能，VB5.0 的 编 辑 器 也 不 例 外， 怎 么 办 呢 ？
---- 1、 打 开VB， 在 选 择Project 类 型 时 选 择"Add In"。 这 样， 我 们 就 打 开 了 一 个 名 叫My Addin 的Project。 将Project 名 称 改 为 你 希 望 的 名 字， 如"Test"。
---- 2、 打 开Addin.bas ， 你 发 现 有 一 个AddToIni 的 子 程 序：
Sub AddToINI()
Dim ErrCode As Long
ErrCode = WritePrivateProfileString("Add-Ins32", "Myaddin.Connect", "0", "vbaddin.ini")
End Sub
---- 在Windows 的 目 录 下， 有 一 文 件 叫vbaddin.ini , 每 次VB 启 动 时 将 根 据 该 文 件 的 设 置 确 定 有 那 些 可 用 的AddIn 程 序。AddToIni 的 功 能 实 际 就 是 将 当 前 的 程 序 注 册 到vbaddin.ini。 修 改"Myaddin.Connect" 为"Test.Connect"， 使 之 与 当 前 的Project 名 称 对 应。
---- 3、 在Immediate 窗 口 执 行AddToIni ， 完 成 对 当 前Addin 的 注 册。
---- 4、 打 开Connect.cls， 在 变 量 声 明 区 有： Implements IDTExtensibility
---- IDTExtensibility 是VB 和AddIn 程 序 交 互 的Interface。 当VB 在Addin 菜 单 选AddId Manager， 并 参 照 当 前 的Addin 程 序"Test" 时，OnConnect 事 件 就 会 触 发，IDTExtensibility_OnConnection（） 程 序 将 被 执 行。 在 如 下 行 设 置 断 点：
---- Debug.Print VBInst.FullName
---- 运 行 当 前 程 序。
---- 5、 启 动 另 外 一 个VB 例 程, 生 成Standard EXE， 名 叫Project1。 从Addin 菜 单 选Addin Manager， 我 们 得 到 一 个 列 表， 我 们 选 择My Addin 并 返 回。 这 时，Test 被 启 动 并 停 在
---- Debug.Print VBInst.FullName
---- 注 意，VBInstance(VBInst) 就 是 指 使 用 该Addin 的VB 的 集 成 开 发 环 境(VBEObject)。 我 们 可 以 它 做 为 一 个 对 象 来 操 作。VBEObject 包 含VBProjects, 每 个VBProject 包 含Vbcomponents, 每 个VBComponet 对 应 一 个 模 块， 每 个Form, Class, 或Module。
---- 6、 我 们 在Test 的 立 即 窗 口 执 行：
---- ？VBInstance.ActiveProject.Name
---- 可 以 得 到Project1 的 名 称。
---- ？VBInstance.ActiveProject.VBComponent(0).Name
---- 可 以 得 到Project1 的 第 一 个 模 块Form1 的 名 称。
---- 到 此 为 止， 我 们 已 经 基 本 说 明 了AddIn 的 技 术 内 涵。 剩 下 的 工 作 就 很 容 易 理 解 了。
---- 7、 在Project1 的Addin Manager 中， 将MyAddin 去 掉。
---- 8、 再 修 改Test， 打 开frmAddin， 将
Private Sub OKButton_Click()
MsgBox VBInstance.FullName
End Sub
改为：
Private Sub OKButton_Click()
Call mReplace()
End Sub
Private Sub mReplace()
Dim oPro As VBProject
Dim oCom As VBComponent
Dim bFind As Boolean
Dim nFindLine as integer
Dim nfindCol as integer
Screen.MousePointer = vbHourglass
On Error GoTo errmReplace
Set oPro = VBInstance.ActiveVBProject
'检查程序是否已保存
If oPro.FileName = "" Then MsgBox "请先保存!" ; Exit Sub
For Each oCom In oPro.VBComponents
bFind = True
Do While bFind
'查找要替换的代码段
bFind=oCom.CodeModule.Find("dim nIndex as integer", nFindLine, nfindCol, oCom.CodeModule.CountOfLines, 500, True
If bFind Then
If oCom.CodeModule.Lines(nFindLine+1, 1)= "nIndex=cStr(vsFlex.Text)"
' 找到后替换
oCom.CodeModule.ReplaceLine
nFindLine, "dim sIndex as string"
oCom.CodeModule.ReplaceLine
nFindLine+1, "sIndex=Spread.text"
Else
bFind=false
End If
End If
Loop
Next oCom
Screen.MousePointer = vbDefault
Exit Sub
errmReplace:
Beep
Screen.MousePointer = vbDefault
MsgBox "ERROR!"
End Sub
---- 9、 我 们 再 使Test 进 入 运 行 状 态。
---- 10、 我 们 再 重 复 第 五 步， 会 在Project1 的Addin 菜 单 中 多 一 项"My Addin"。 我 们 在Project1 中 加 入 一 些 要 替 换 的 代 码， 然 后 执 行My Addin， 替 换 工 作 就 会 完 成。
---- 11、 有 朋 友 不 希 望 在Addin 菜 单 出 现"My Addin" 字 样， 而 是 具 有 更 明 确 含 义 的 标 识， 如" 替 换"。 改 动Test 的Connect Class----IDTExtensibility_OnConnection()， 将
Set mcbMenuCommandBar = AddToAddInCommandBar("My AddIn")
改为 Set mcbMenuCommandBar = AddToAddInCommandBar("替换")
如果你想将Addin Manager中的My Addin改为
"Replace",可用notepad打开Connect.cls,将：Attribute VB_Description = "My Add-In"
改为：Attribute VB_Description = "Replace"
---- 以 上 介 绍 地 只 是AddIn 技 术 的 一 个 简 单 应 用， 了 解 其 机 理 后， 大 家 可 根 据 需 要 做 出 自 己 的 工 具。 对 于 一 些 专 业 的 应 用 软 件 开 发 商 来 说， 积 累 越 多 的AddIn 工 具， 便 可 以 大 大 提 高 编 码 效 率。
---- Add-In 技 术 的 实 质 就 是VB 编 程 环 境 本 身 做 为 一 个 对 象 模 型 向 用 户 公 开 出 来， 我 们 可 以 将 一 个 模 块、 一 段 代 码 做 为 一 个 操 作 对 象 来 修 改、 优 化。 下 面， 我 们 通 过 一 个 实 例 来 介 绍Add-In 技 术 的 使 用。
---- 例 如， 你 想 将 程 序 中 的 这 样 一 段 代 码：
dim nIndex as integer
nIndex=cStr(vsFlex.Text)
替换为：
dim sIndex as string
sIndex=Spread.text
---- 包 括Word 在 内 的 大 多 数 编 辑 软 件 都 不 包 括 多 行 查 找 替 换 功 能，VB5.0 的 编 辑 器 也 不 例 外， 怎 么 办 呢 ？
---- 1、 打 开VB， 在 选 择Project 类 型 时 选 择"Add In"。 这 样， 我 们 就 打 开 了 一 个 名 叫My Addin 的Project。 将Project 名 称 改 为 你 希 望 的 名 字， 如"Test"。
---- 2、 打 开Addin.bas ， 你 发 现 有 一 个AddToIni 的 子 程 序：
Sub AddToINI()
Dim ErrCode As Long
ErrCode = WritePrivateProfileString("Add-Ins32", "Myaddin.Connect", "0", "vbaddin.ini")
End Sub
---- 在Windows 的 目 录 下， 有 一 文 件 叫vbaddin.ini , 每 次VB 启 动 时 将 根 据 该 文 件 的 设 置 确 定 有 那 些 可 用 的AddIn 程 序。AddToIni 的 功 能 实 际 就 是 将 当 前 的 程 序 注 册 到vbaddin.ini。 修 改"Myaddin.Connect" 为"Test.Connect"， 使 之 与 当 前 的Project 名 称 对 应。
---- 3、 在Immediate 窗 口 执 行AddToIni ， 完 成 对 当 前Addin 的 注 册。
---- 4、 打 开Connect.cls， 在 变 量 声 明 区 有： Implements IDTExtensibility
---- IDTExtensibility 是VB 和AddIn 程 序 交 互 的Interface。 当VB 在Addin 菜 单 选AddId Manager， 并 参 照 当 前 的Addin 程 序"Test" 时，OnConnect 事 件 就 会 触 发，IDTExtensibility_OnConnection（） 程 序 将 被 执 行。 在 如 下 行 设 置 断 点：
---- Debug.Print VBInst.FullName
---- 运 行 当 前 程 序。
---- 5、 启 动 另 外 一 个VB 例 程, 生 成Standard EXE， 名 叫Project1。 从Addin 菜 单 选Addin Manager， 我 们 得 到 一 个 列 表， 我 们 选 择My Addin 并 返 回。 这 时，Test 被 启 动 并 停 在
---- Debug.Print VBInst.FullName
---- 注 意，VBInstance(VBInst) 就 是 指 使 用 该Addin 的VB 的 集 成 开 发 环 境(VBEObject)。 我 们 可 以 它 做 为 一 个 对 象 来 操 作。VBEObject 包 含VBProjects, 每 个VBProject 包 含Vbcomponents, 每 个VBComponet 对 应 一 个 模 块， 每 个Form, Class, 或Module。
---- 6、 我 们 在Test 的 立 即 窗 口 执 行：
---- ？VBInstance.ActiveProject.Name
---- 可 以 得 到Project1 的 名 称。
---- ？VBInstance.ActiveProject.VBComponent(0).Name
---- 可 以 得 到Project1 的 第 一 个 模 块Form1 的 名 称。
---- 到 此 为 止， 我 们 已 经 基 本 说 明 了AddIn 的 技 术 内 涵。 剩 下 的 工 作 就 很 容 易 理 解 了。
---- 7、 在Project1 的Addin Manager 中， 将MyAddin 去 掉。
---- 8、 再 修 改Test， 打 开frmAddin， 将
Private Sub OKButton_Click()
MsgBox VBInstance.FullName
End Sub
改为：
Private Sub OKButton_Click()
Call mReplace()
End Sub
Private Sub mReplace()
Dim oPro As VBProject
Dim oCom As VBComponent
Dim bFind As Boolean
Dim nFindLine as integer
Dim nfindCol as integer
Screen.MousePointer = vbHourglass
On Error GoTo errmReplace
Set oPro = VBInstance.ActiveVBProject
'检查程序是否已保存
If oPro.FileName = "" Then MsgBox "请先保存!" ; Exit Sub
For Each oCom In oPro.VBComponents
bFind = True
Do While bFind
'查找要替换的代码段
bFind=oCom.CodeModule.Find("dim nIndex as integer", nFindLine, nfindCol, oCom.CodeModule.CountOfLines, 500, True
If bFind Then
If oCom.CodeModule.Lines(nFindLine+1, 1)= "nIndex=cStr(vsFlex.Text)"
' 找到后替换
oCom.CodeModule.ReplaceLine
nFindLine, "dim sIndex as string"
oCom.CodeModule.ReplaceLine
nFindLine+1, "sIndex=Spread.text"
Else
bFind=false
End If
End If
Loop
Next oCom
Screen.MousePointer = vbDefault
Exit Sub
errmReplace:
Beep
Screen.MousePointer = vbDefault
MsgBox "ERROR!"
End Sub
---- 9、 我 们 再 使Test 进 入 运 行 状 态。
---- 10、 我 们 再 重 复 第 五 步， 会 在Project1 的Addin 菜 单 中 多 一 项"My Addin"。 我 们 在Project1 中 加 入 一 些 要 替 换 的 代 码， 然 后 执 行My Addin， 替 换 工 作 就 会 完 成。
---- 11、 有 朋 友 不 希 望 在Addin 菜 单 出 现"My Addin" 字 样， 而 是 具 有 更 明 确 含 义 的 标 识， 如" 替 换"。 改 动Test 的Connect Class----IDTExtensibility_OnConnection()， 将
Set mcbMenuCommandBar = AddToAddInCommandBar("My AddIn")
改为 Set mcbMenuCommandBar = AddToAddInCommandBar("替换")
如果你想将Addin Manager中的My Addin改为
"Replace",可用notepad打开Connect.cls,将：Attribute VB_Description = "My Add-In"
改为：Attribute VB_Description = "Replace"
---- 以 上 介 绍 地 只 是AddIn 技 术 的 一 个 简 单 应 用， 了 解 其 机 理 后， 大 家 可 根 据 需 要 做 出 自 己 的 工 具。 对 于 一 些 专 业 的 应 用 软 件 开 发 商 来 说， 积 累 越 多 的AddIn 工 具， 便 可 以 大 大 提 高 编 码 效 率。
话题作者
头衔:无
