|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：王建兵 日期：2005-8-4 11:23:29 |
|
|
一 、ListView 使 用 简 介
---- ListView 控 件 是VB 开 发 者 非 常 喜 爱 的 控 件 之 一。 作 为Windows95 公 共 控 件 组(COMCTL32.OCX) 的 成 员, 它 经 常 与 经 常 与TreeView、ImageList 等 控 件 联 合 使 用。 即 用 TreeView 显 示 一 个 的树 型 结 构， 而 用 ListView 显 示 选 中 的 节 点(Node) 对 象 的 记 录
集。
---- 这 是 笔 者 在 开 发 财 务 软 件 项 目 中 的<< 凭 证 管 理>> 模 块的 一 个 用 户 界 面。 屏 幕 左 边 是 一 个TreeView 控 件， 用 来 显 示会 计 凭 证 的 类 别； 右 边 是 一 个istView， 用 来 显 示 对 应 类 别的 凭 证 目 录； 上 方 是 一 个 菜 单 条 控 件(MenuBar) 和 一 个 工 具条 控 件(ToolBar)； 下 方 是 一 个 状 态 栏 控 件(StatusBar)， 用 来 显示 凭 证 数 个 当 前 日 期。
---- 大 家 可 以 看 到 图 中 所 示 的 界 面 非 常 类 似 于Window95/98 的资 源 浏 览 器, Windows 的 界 面 风 格 做 为 一 种 标 准 已 为 广 大 用户 所 接 受。 而Windows 操 作 系 统 的 主 要 的 优 点 就 是 为 所 有 的应 用 程 序 提 供 了 公 用 的 界 面。 知 道 如 何 使 用 基 于Windows 的应 用 程 序 的 用 户， 很 容 易 学 会 使 用 其 他 应 用 程 序。
---- 这 种 使 用Windows95 公 共 控 件 组 合 的 方 法 能 够 达 到 与Windows 界 面 的 一 致 性， 所 以 在 目 前VB5.0 应 用 程 序 的 开 发 中经 常 使 用。
二、 填 充 大 量 结 果 集 所 遇 到 的 问 题
---- 在 实 际 应 用 开 发 中， 经 常 用ListView 填 充 一 个 数 据 库 结果 集(Recordset) 的 内 容。 即 先 写 一 段SQL 查 询 语 句， 产 生 一 个结 果 集， 然 后 将 结 果 集 的 每 一 条 记 录 用DO...LOOP 循 环 语 句中 填 到ListView 中。
---- 但 是 当 结 果 集 很 大 时( 例 如 有5000 条 以 上 的 记 录) ， 填充 所 需 要 的 时 间 会 很 长。 用 户 不 得 不 等 很 长 时 间 完 成 一个 查 询。 所 以 在 查 询 的 过 程 中 必 须 允 许 用 户 按Escape 键 退出。 具 体 做 法 是 在DO...LOOP 循 环 体 中 加 一 条DoEvents 函 数， 并写 一 段 中 断 退 出 程 序 代 码。
---- DoEvents 函 数 的 功 能 是： 转 让 控 制 权， 以 便 让 操 作 系 统处 理 其 它 的 事 件。 这 样 在 长 时 间 的 查 询 过 程 中， 如 果 用 户按 了Escape 键， 将 退 出 循 环 体， 结 束 查 询 过 程。
---- 但 是 这 样 又 会 引 发 另 外 一 个 问 题： 由 于DoEvents 可 以 让操 作 系 统 响 应 别 的 事 件， 循 环 体 中 填 充 每 一 条ListView 项 目(ListItem) 的 过 程 也 会 显 示 出 来， 所 以 在 填 充 的 过 程 中 屏 幕会 不 停 的 闪 动， 这 种 现 象 当 然 不 能 被 用 户 所 接 受。 如 何 解决 这 个 问 题 呢 ？
三、 解 决 方 案
---- 用Windows API 函 数 可 以 解 决 这 个 问 题。 首 先 对 几 个 用 到的API 函 数 做 一 解 释 和 说 明。
---- 1. GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT)As Long
---- 此 函 数 的 功 能 是 获 得 一 个 指 定 对 象 窗 口(Window) 的 矩 型框 区 域(rectangle)。
---- Hwnd 为 指 定 对 象 或 窗 体 的 句 柄。LpRect 为 返 回 矩 型 框 的结 构( 必 须 定 义 为 结 构 类 型 的 变 量) 。
---- 2. ValidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT)As Long
---- 此 函 数 的 功 能 是 使 指 定 的 矩 型 区 域 生 效。 这 样 会 通 知Windows 不 必 对 指 定 的 区 域 进 行 重 画(Redraw)。
---- 3. InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT,ByVal bErase As Long) As Long
---- 此 函 数 的 功 能 是 使 指 定 的 矩 型 区 域 无 效。 这 样 会 通 知Windows 要 对 指 定 的 区 域 进 行 重 画。
---- 具 体 实 现 的 步 骤 如 下：
---- 1. 在 填 充 结 果 集 之 前 先 用GetClientRect 函 数 获 得ListView的 显 示 区 域。
---- 2. 在 增 加 完 一 个 显 示 项 目(ListItem) 后 用ValidateRect 函 数置 这 一 区 域 为 有 效。 这 样Windows 就 不 会 显 示 每 一 条ListItem，屏 幕 闪 动 的 现 象 就 会 消 失。
---- 3. 在 填 充 结 果 集 之 后, 用InvalidateRect 函 数 置 这 一 区 域为 无 效。 这 样Windows 就 会 重 画ListView 的 内 容， 结 果 集 被 完 整的 显 示 出 来。
---- 下 面 是 笔 者 在 项 目 开 发 中 的 一 个 程 序 实 例。 程 序 名 为FillListView。 该 程 序 将 填 写 一 个Access 数 据 库(FISCAL.MDB) 的 凭证 表(Table) 的 内 容 到ListView 中。
---- 首 先 进 入VB5.0， 新 建 一 个 窗 体(Form)， 名 为Form1。
---- 然 后 在Form 中 增 加 下 列 控 件。
控 件 名 Name
ListView Lvw
Imagelist imlList
Command Button。 Command1
---- 将ImageList 控 件 中 充 填 一 个 名 为“item” 的 图 象 后 与ListView 控 件 关 联。
---- 在<< 工 程>> 菜 单 命 令 条 中 进 入“ 引 用” 对 话 框, 选 择“Microsoft DAO Object Library”
---- 在Form 的 通 用 模 块(Modle) 中 定 义 以 下 变 量。
Private Type RECT ' 用 来 定 义 一 个 区 域 的 坐 标。
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
'- - - - - -
' Windows API 函 数 的 声 明。
Private Declare Function InvalidateRect Lib "user32"
(ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long
Private Declare Function ValidateRect Lib "user32"
(ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetClientRect Lib "user32"
(ByVal hwnd As Long, lpRect As RECT) As Long
Dim mbSearchCancel As Boolean
' 用 来 定 义 查 询 中 断 的 标 志。
' True 表 示 中 止 查 询；False 表 示 正 在 查 询。
---- 将 该Form 的KeyPreview 属 性 设 为True， 以 控 制 窗 体 接 收 键 盘事 件。
---- 然 后 在Form 的KeyPress 事 件 中 写 下 列 代 码：
If KeyAscii = vbKeyEscape Then
mbSearchCancel = True
' 当 用 户 按Escape 键 时， 置mbSearchCancel 变 量 为True。
End If
' 表 示 结 束 查 询。
在Command Button 的 Click 事 件 中 调 用 填 充 子 程 序：CallFillListView。
子 程 序 的 代 码 为：
Private Sub FillListView()
'
Dim itmX As ListItem ' 定 义 一 个ListView 的 显 示 项 目。
Dim sSQL As String ' 查 询 字 串 变 量 。
'
Dim rc As RECT ' ListView 的 显 示 区 域。
Dim wrkJet As Workspace ' 数 据 库 工 作 空 间。
Dim dbFISCAL As Database ' 数 据 库 对 象。
Dim RS As Recordset ' 数 据 结 果 集。
On Error GoTo ErrFillListView
Screen.MousePointer = vbHourglass
lvw.ListItems.Clear: ' 清 除ListView 的 内 容。
'- - - - - - - -
' 定 义ListView 的 列 头 的 名 称。
With lvw.ColumnHeaders
.Add , , " 凭 证 编 号", 800
.Add , , " 凭 证 日 期", 1000
.Add , , " 凭 证 字 号", 1000
.Add , , " 凭 证 类 别", 800
.Add , , " 首 行 摘 要", 1440
.Add , , " 借 方 金 额 合 计", 1000, lvwColumnRight
End With
'- - - - - - -
' 产 生 查 询 语 句。
sSQL = "select voucher_id,voucher_number,voucher_date,
voucher_type_shortname,"
sSQL=sSQL&"voucher_type_name,voucher_memo,voucher_amount from VOUCHER"
sSQL = sSQL & "order by voucher_number"
' '- - - - - - -
' 打 开 一 个 数 据 库 结 果 集。
Set wrkJet = CreateWorkspace("NewJetWorkspace", "admin", "",
dbUseJet)
Set dbFISCAL = wrkJet.OpenDatabase("FISCAL.mdb")
Set RS=. dbFISCAL .Open sSQL,dbOpenForwardOnly
'- - - - - - - -
' 获 得listview 的 显 示 区 域。
Call GetClientRect(lvw.hwnd, rc)
Do While Not RS.EOF()
DoEvents
If mbSearchCancel Then
' 中 断 退 出
RS.Close: Set RS = Nothing ' 关 闭、 清 除 结 果 集。
mbSearchCancel = False
Screen.MousePointer = vbDefault
'- - - - - -
' 刷 新ListView 的 内 容， 显 示 已 经 查 出 的 记 录 数。
Call InvalidateRect(lvw.hwnd, rc, True)
Exit Sub
End If
'- - - - - - -
' 增 加 一 个 显 示 项 目ListItem。
With lvw.ListItems
Set itmX = .Add(, , "" & RS!voucher_number, "item", "item")
' 凭 证 编 号
itmX.SubItems(1) = Format$("" & RS!voucher_date, "yyyy/mm/dd")
' 凭 证 日 期
itmX.SubItems(2) = "" & RS!voucher_type_shortname & "-" —
' 凭 证 字 号
& "" & RS!voucher_number
itmX.SubItems(3)="" & RS!voucher_type_name
' 凭 证 类 别
itmX.SubItems(4)=""&RS!voucher_memo
' 首 行 摘 要
itmX.SubItems(5)= Format$("" & RS!voucher_amount, "#,###.00")
' 借 方 合 计 金 额
itmX.Tag = "" & RS!voucher_id
End With
'- - - - - -
' 避 免 显 示 区 域 的 闪 动 现 象。
Call ValidateRect(lvw.hwnd, rc)
RS.MoveNext
Loop
'- - - -
'- 刷 新ListView 的 内 容。 显 示 所 有 查 出 的 记 录 数。
Call InvalidateRect(lvw.hwnd, rc, True)
'- - - - -
' 关 闭、 清 除 结 果 集。
RS.Close: Set RS = Nothing
creen.MousePointer = vbDefault
Exit Sub
ErrFillListView:
Screen.MousePointer = vbDefault
MsgBox Err & ":" & Error, vbInformation, Me.Caption
Exit Sub
End Sub
---- 编 写 完 毕 后 按F5 执 行 该 程 序， 用 鼠 标 点 击CommandButton，将 开 始 查 询 并 填 写 凭 证 的 内 容 到ListView 中 去。
---- 关 于ListView 本 文 只 是 描 述 了 它 如 何 填 充 大 量 结 果 集 的方 法， 它 还 有 很 多 特 性(property) 和 方 法(method)， 利 用 它 们 可以 达 到 更 完 美 的 显 示 效 果， 有 兴 趣 的 读 者 可 以 进 一 步 研究。 不 管 是 开 发 什 么 样 的 应 用 程 序， 只 有 坚 持 面 向 用 户、方 便 用 户 的 原 则， 这 样 的 软 件 才 具 有 强 大 的 生 命 力。
---- “ 用Visual Studio 开 发 分 布 式Web 应 用” 系 列 文 章（ 之 十），读 者 有 何 意 见 或 建 议， 请 发E-mail 至：ms_visualstudio@hotmail.com。 谢 谢 ！---- 编 者 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 王建兵 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:23:29 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]