---- 欣 喜 看 到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
没有相关教程
|