欣 喜 看 到VB 编 程 人 和 爱 好 者 的 阵 营 越 来 越 大 了， 而 现 在VB6 也 已 经 横 空 出 世 了， 在 这 里 献 上 自 己 的 一 点VB5 编 程 的 小 经 验， 权 当 和 广 大 朋 友 交 流 交 流， 不 妥 之 处 多 多 指 教。 
　　
　　1. 在 打 开 对 话 框 中 同 时 显 示 多 种 类 型 的 文 件 
　　
　　在 打 开 文 件 时， 我 们 往 往 会 用 到 打 开 对 话 框CommonDialog， 要 把 文 件 类 型 限 制 在 一 定 的 范 围 内 得 用CommonDialog 的Filter 属 性， 比 如 将Filter 属 性 设 置 为"*.TXT|*.TXT" 那 么 打 开 对 话 框 只 显 示 文 本 文 件。 如 果 要 同 时 显 示 几 种 类 型 的 文 件， 比 如 要 显 示 所 有 的 图 形 文 件， 其 设 置 方 法 为 将Filter 属 性 设 置 为" 图 片 文 件|*.bmp;*.jpg;*.gif"， 这 样 打 开 对 话 框 便 能 同 时 显 示bmp 文 件,jpg 文 件,gif 文 件。 这 个 问 题 似 乎 很 简 单， 可 笔 者 曾 经 为 这 个 问 题 查 阅 了 大 量 关 于VB 的 书 籍， 但 是 都 未 找 到。 
　　
　　2. 注 意 最 后 编 译 的 问 题 
　　
　　如 果 编 程 中 用 到 数 据 库 控 件, 在 最 后 编 译 时, 一 定 要 注 意 数 据 库 控 件 的Datebase 属 性, 否 则 会 在 制 作 安 装 盘, 装 到 其 它 机 子 上 时 遇 到 问 题。 原 因 是Datebase 属 性 中 存 在 的 路 径 问 题。 编 译 前 得 将 其 路 径 设 置 为 当 前 路 径。 如 果 用 的 是ACCESS 数 据 库， 将Datebase 属 性 中 的 路 径 信 息 去 掉 便 可 以 了， 比 如， 原 先 为"C:\money\money.mdb", 则 改 为"money.mdb"。 如 果 是FOXPRO 数 据， 将Datebase 属 性 改 为"." 便 可 以 了,"." 就 代 表 当 前 目 录。 比 如， 原 先 为"C:\money", 改 为"." 便 可 以 了。 用 其 它 数 据 库 的 数 据 的 方 法 差 不 多。 当 然 制 作 安 装 盘 时 得 把 用 到 的 数 据 文 件 添 加 进 去， 这 里 不 在 详 叙。 
　　
　　3. 在 程 序 中 调 用 其 它 程 序 
　　
　　在DOS 下 大 家 知 道 可 以 用system（） 函 数 来 调 用 其 它 的 可 执 行 文 件， 那 么 在WINDOWS 下 怎 么 去 调 用 其 它 的 软 件 呢? 其 实 在WINDOWS 的API 中 就 有 这 样 的 函 数。 函 数 说 明 如 下： 
　　
　　UINT WinExec(
　　LPCSTR lpszCmdLine, // 命令行地址
　　UINT fuCmdShow //刚打开时的窗口类型 
　　);
　　
　　在 使 用 时 要 加 如 下 声 明: 
　　
　　Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
　　
　　如 果 想 在 程 序 中 调 用Windows 中 自 带 的 计 算 器, 用 下 面 的 代 码 即 可 实 现: 
　　
　　WinExec "c:/windows/calc.exe", 10 
　　
　　参 数10 使 启 动 的 窗 口 处 于 缺 省 状 态, 若 使 用3 使 启 动 的 窗 口 最 大 化, 若 使 用6 使 启 动 的 窗 口 最 小 化。 实 际 上 许 多 商 用 软 件 的 计 算 器 都 是 这 样 直 接 调 用Windows 自 带 的 计 算 器 的。 
　　
　　4. 输 入 数 据 的 合 法 性 检 测 
　　
　　一 个 软 件 经 常 需 要 用 户 输 入 一 些 数 据， 而 这 些 数 据 往 往 需 要 一 定 格 式， 比 如 输 入 的 是 一 个 整 形， 或 是 一 个 日 期 等， 这 样 作 为 软 件 的 设 计 者 必 须 想 到 用 户 出 错 的 可 能 性， 在 用 户 出 错 时 给 予 提 示 和 纠 正。 只 有 这 样 你 的 程 序 才 是 一 个 好 程 序。 在VB 编 程 中 数 据 的 合 法 性 检 测 有 很 多 的 方 法， 比 如 你 可 以 利 用 一 些 函 数 来 检 测 数 据 的 合 法 性，IsDate 就 可 以 用 于 检 测 日 期 型 的 数 据。 笔 者 发 现 只 要 巧 妙 地 应 用VB 中 的 错 误 陷 阱 技 术 和VB 的 不 同 类 型 数 据 间 的 自 动 转 换 功 能 就 能 很 好 地 实 现 数 据 的 合 法 性 检 测， 编 程 简 单 而 且 效 果 很 好， 能 检 测 各 种 类 型 的 数 据。 
　　
　　通 常 输 入 的 如 果 是 字 符 串 就 不 需 要 检 测， 但 如 果 要 求 输 入 的 是 整 形 或 货 币 形 等 就 必 须 进 行 一 定 的 检 测。 下 面 就 先 讲 一 下 整 形 的 检 测。 比 如 现 有 一 文 本 框（Text1）， 要 求 输 入 的 是 一 个 整 数， 我 们 可 以 在 它 的LostFocus 事 件 中 进 行 检 测， 代 码 如 下： 
　　
　　Private Sub Text1_LostFocus()
　　Dim i As Integer '定义一个整形i
　　On Error GoTo ERROR1 
　　'设置错误陷阱，如果Text1.Text不是整数跳到ERROR1
　　i = Text1.Text
　　'这里可以做其它处理
　　Exit Sub 
　　ERROR1:
　　MsgBox ("请输入一个整数")
　　Text1.SetFocus 
　　End Sub
　　
　　这 样 就 可 以 实 现 合 法 性 检 测 了， 如 果 要 的 是 浮 点 就 将i 定 义 成 浮 点 就 可 以 了， 即： 
　　
　　Private Sub Text1_LostFocus()
　　Dim i As Single
　　On Error GoTo ERROR1
　　i = Text1.Text
　　Exit Sub
　　ERROR1:
　　MsgBox ("请输入一个单精度浮点数")
　　Text1.SetFocus
　　End Sub
　　
　　同 理， 如 果 要 的 是 日 期 就 将i 定 义 成 日 期 就 可 以 了， 就 是 说， 要 什 么 样 的 数 据 就 将i 定 义 成 什 么 样 的 数 据 类 型 就 可 以 了。 
　　
　　当 然 你 不 一 定 要 在LostFocus 事 件 中 对 数 据 的 合 法 性 进 行 检 测， 如 果 是 制 作 数 据 库 应 用 程 序 完 全 可 以 在 数 据 被 添 加 到 数 据 库 之 前 再 对 数 据 进 行 检 测， 这 样 对 用 户 将 更 加 方 便。 
　　
　　5. 窗 体 以 外 光 标 位 置 的 探 测 和 设 置 
　　
　　用VB 编 程 时 想 获 得 窗 体 上 的 光 标 位 置 很 容 易， 用MouseMove 事 件 的 参 数 就 可 得 到 光 标 在 窗 体 上 的 位 置。 然 而， 如 果 想 得 到 窗 体 以 外 的 光 标 位 置 或 想 在 程 序 中 设 置 光 标 位 置， 那 么 则 只 好 求 助 于API 了， 还 好， 这 几 个API 函 数 非 常 简 单， 即 使 刚 接 触 编 程 的 朋 友 也 能 学 会 使 用。 这 里 笔 者 做 一 个 简 单 的 介 绍， 希 望 和 大 家 共 享 使 用API 的 乐 趣。 
　　
　　先 介 绍 一 下 有 关 的API 的 结 构 和 函 数， 首 先 看 一 下 获 得 光 标 位 置 的 这 个 函 数， 其 声 明 如 下： 
　　
　　BOOL GetCursorPos(
　　LPPOINT lpPoint 
　　//指向POINT结构的指针，其中包含所获的光标的位置信息
　　); 
　　再来看一下POINT的结构：
　　typedef struct tagPOINT { // pt 
　　LONG x; 
　　LONG y; 
　　} POINT;
　　真是非常简单，最后看一下设置光标位置的函数：
　　BOOL SetCursorPos(
　　int X, //要设置位置在屏幕上的横坐标
　　int Y //要设置位置在屏幕上的纵坐标
　　);
　　
　　在VB 中 使 用API 就 需 要 一 定 的 说 明 了， 还 好VB 提 供 了 一 个"API 文 本 查 看 器"， 你 只 要 将 所 要 用 的API 的 声 明 复 制 一 下 就 可 以 用 了。 我 们 来 做 一 个 简 单 的 例 子 来 试 一 试。 先 建 立 一 个 项 目， 往 窗 体（Form1） 上 放 置 两 个TextBox 控 件（Text1 和Text2）， 一 个CommandButton 控 件（Command1） 和 一 个Timer 控 件（Timer1）。 将Timer1 的Interval 属 性 改 为1000。 这 个 例 子 的 功 能 是 每 隔 一 秒 钟 在Text1 和Text2 中 显 示 光 标 的 位 置 坐 标, 按Command1 按 钮 光 标 将 按 一 定 的 规 律 在 屏 幕 上 漂 移。 所 有 的 代 码 如 下： 
　　
　　Private Type POINTAPI
　　x As Long
　　y As Long
　　End Type
　　Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
　　Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
　　'以上为API及数据结构的声明
　　
　　Private Sub Command1_Click()
　　Dim i As Integer
　　Dim j As Integer
　　For i = 0 To Screen.Width
　　SetCursorPos i, 100 '设置光标位置
　　For j = 0 To 1000 '循环延时
　　Next j
　　Next i
　　End Sub
　　
　　Private Sub Timer1_Timer()
　　Dim point1 As POINTAPI
　　GetCursorPos point1 '获得光标位置
　　Text1.Text = point1.x '显示光标位置X
　　Text2.Text = point1.y '显示光标位置Y
　　End Sub
　　
　　输 入 完 毕 后 存 盘 运 行 就 行 了， 可 以 发 现 在VB 中 是 很 容 易 实 现 的。 
　　
　　6.Windows 各 种 路 径 的 获 得 
　　
　　在WINDOWS 下 编 程 经 常 需 要 在 程 序 中 获 得 各 种 路 径， 比 如 当 前 的 工 作 路 径， 系 统 的 路 径， 等 各 种 路 径。 在WINDOWS 的API 中 提 供 了 齐 全 的API 函 数 供 我 们 调 用。 
　　
　　先 来 看 一 下 这 几 个API 函 数 的 说 明： 
　　
　　(1). DWORD GetCurrentDirectory( 
　　
　　DWORD nBufferLength, //接收目录的字符串的长度
　　LPTSTR lpBuffer //接收目录的字符串的地址 
　　);
　　
　　通 过 调 用 这 个 函 数 将 获 得 当 前 的 目 录， 如 果 调 用 失 败 此 函 数 将 返 回 零。 调 用 这 个 函 数 时 应 将nBufferLength 参 数 设 足 够 大， 接 收 目 录 的 字 符 串 当 然 也 要 有 这 么 长。 详 细 用 法 请 看 例 子。 另 外 用SetCurrentDirectory（） 函 数 可 以 设 置 当 前 目 录。 
　　
　　(2). UINT GetSystemDirectory( 
　　
　　LPTSTR lpBuffer, //接收目录的字符串的地址
　　UINT uSize // 接收目录的字符串的长度
　　);
　　
　　通 过 调 用 这 个 函 数 可 获 得 系 统 的 目 录， 如 果 调 用 失 败 此 函 数 将 返 回 零。 
　　
　　3. UINT GetWindowsDirectory( 
　　
　　LPTSTR lpBuffer, //接收目录的字符串的地址 
　　UINT uSize // 接收目录的字符串的长度
　　);
　　
　　通 过 调 用 这 个 函 数 可 获 得WINDOWS 目 录， 如 果 调 用 失 败 将 返 回 零。 关 于 这 个 函 数 和 第 二 个 函 数 的 区 别， 通 过 下 面 的 例 子 你 一 定 会 非 常 清 楚。 
　　
　　下 面 用VB 来 实 现。 首 先 当 然 要 先 把API 的 声 明 加 到 代 码 中, 开 始 一 个 新 项 目， 在 窗 体（Form1） 上 放 上 三 个 按 钮（Command1，Command2，Command3）。 这 个 例 子 的 功 能 是 单 击 按 钮 用MSGBOX 显 示 得 到 的 路 径。 
　　
　　笔 者 发 现 不 能 简 单 地 复 制VB5 的API 文 本 查 看 器 中 关 于 上 面 几 个API 的 声 明， 要 做 一 定 的 修 改， 要 在 每 个 函 数 名 后 加 一 个"A"， 所 有 代 码 如 下。 
　　
　　Private Declare Function GetCurrentDirectoryA Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
　　Private Declare Function GetWindowsDirectoryA Lib "kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
　　Private Declare Function GetSystemDirectoryA Lib "kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
　　
　　Private Sub Command1_Click()
　　Dim Path As String * 255
　　GetCurrentDirectoryA(Len(Path), Path) '获取当前路径
　　MsgBox (Path)
　　End Sub
　　
　　Private Sub Command2_Click()
　　Dim Path As String * 255
　　GetWindowsDirectoryA(Path, Len(Path)) '获取WINDOWS路径
　　MsgBox (Path)
　　End Sub
　　
　　Private Sub Command3_Click()
　　Dim Path As String * 255
　　GetSystemDirectoryA(Path, Len(Path)) '获取SYSTEM路径
　　MsgBox (Path)
　　End Sub
　　
　　7. 错 误 陷 阱 中 要 注 意 的 问 题 
　　
　　笔 者 发 现 在 循 环 中 应 用 错 误 陷 阱 技 术 有 一 定 的 问 题。 比 如 下 面 这 一 段 程 序： 
　　
　　Private Sub Command1_Click()
　　Dim I As Integer
　　Dim J As Integer
　　On Error GoTo JERROR
　　For I = 0 To 3
　　MsgBox (I)
　　J = 10000 * 10000 '让J发生溢出错误
　　JERROR:
　　Next I
　　End Sub
　　
　　按 通 常 的 分 析， 这 段 程 序 在 运 行 时 应 该 是 不 会 出 现 错 误 的， 但 实 际 运 行 一 下 可 以 发 现， 当I 等 于1 时 发 生 溢 出 错 误。 这 就 是 说 错 误 陷 阱 只 在 循 环 的 第 一 次 有 效。 这 个 问 题 很 值 得 注 意， 否 则 会 给 程 序 留 下 一 个 很 大 的 臭 虫。