VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB 编程经验点滴
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:10210, 日期:2001-06-21
VB 编程经验点滴
作者:潘显视
---- 欣 喜 看 到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 时 发 生 溢 出 错 误。 这 就 是 说 错 误 陷 阱 只 在 循 环 的 第 一 次 有 效。 这 个 问 题 很 值 得 注 意, 否 则 会 给 程 序 留 下 一 个 很 大 的 臭 虫。