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

				比 较 好 的 办 法 是 编 写 Automation服 务 器 或 者 编 写 ActiveX控 件 。 我 们 在 问 题 “如何在Excel中使用DriveListBox等控件”的 回 答 中 介 绍 如 何 编 写 ActiveX控 件 ， 先 来 说 说 如 何 编 写 Automation服 务 器 。 
				    首 先 启 动 VB 5.0， 在 New Project窗 口 中 选 择 ActiveX DLL或 ActiveX EXE（ 前 者 速 度 更 快 些 ） 。 这 时 你 的 工 程 文 件 中 将 包 括 一 个 Class1， 你 可 以 在 属 性 窗 口 中 将 它 的 名 字 改 为 MyClass。 在 Project菜 单 下 选 择 Project1 Properties修 改 工 程 的 名 字 为 MyComponent。 在 MyClass中 插 入 以 下 代 码 ： 
				     Option Explicit 
				     
				     Public Function SquareIt(lngNumber As Long) 
				     SquareIt = lngNumber ^ 2 
				     End Function 
				    你 可 以 利 用 类 似 的 步 骤 插 入 其 它 函 数 。 调 试 时 ， 你 可 以 在 集 成 环 境 中 运 行 程 序 ， 在 Excel中 调 用 这 个 Automation服 务 器 。 调 试 结 束 后 ， 编 译 成 DLL或 EXE就 可 以 了 。 
				    下 面 再 来 谈 谈 如 何 在 Excel中 调 用 Automation服 务 器 。 首 先 启 动 Excel 97， 然 后 打 开 Visual Basic编 辑 器 ， 选 择 "工 具 |引 用 "菜 单 ， 在 其 中 选 择 MyComponent。 然 后 你 可 以 在 一 个 过 程 、 函 数 或 事 件 中 加 入 以 下 代 码 ： 
				     '建 立 对 象 
				     Dim obj As MyComponent.MyClass 
				     Dim lngArgument As Long 
				     Dim lngResult As Long 
				     
				     '建 立 对 象 实 例 
				     Set obj = New MyClass 
				     lngArgument = 2 
				     
				     '调 用 SquareIt方 法 
				     lngResult = obj.SquareIt(lngArgument) 
				     
				     MsgBox "The Square of " & lngArgument & _ 
				     " is " & lngResult 
				     
				     '结 束