VB 编程经验点滴

WTM1

欣 喜 看 到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.T