VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用API函数改进ListView 控件的显示效果
发表评论(0)作者:, 平台:, 阅读:11137, 日期:2000-03-12
用API函数改进ListView 控件的显示效果





一 、ListView 使 用 简 介

ListView 控 件 是VB 开 发 者 非 常 喜 爱 的 控 件 之 一。 作 为

Windows95 公 共 控 件 组(COMCTL32.OCX) 的 成 员, 它 经 常 与 经 常 与

TreeView、ImageList 等 控 件 联 合 使 用。 即 用 TreeView 显 示 一 个 的

树 型 结 构, 而 用 ListView 显 示 选 中 的 节 点(Node) 对 象 的 记 录

集。


这 是 笔 者 在 开 发 财 务 软 件 项 目 中 的<< 凭 证 管 理>> 模 块

的 一 个 用 户 界 面。 屏 幕 左 边 是 一 个TreeView 控 件, 用 来 显 示

会 计 凭 证 的 类 别; 右 边 是 一 个ListView, 用 来 显 示 对 应 类 别

的 凭 证 目 录; 上 方 是 一 个 菜 单 条 控 件(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 事 件 中 调 用 填 充 子 程 序:Call

FillListView。




子 程 序 的 代 码 为:


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。 谢 谢 ! 编 者


Wed, 5 Aug 1998 "WangJianBing"


姓 名: 王 建 兵

公 司 名: 西 安 未 来 电 子 有 限 公 司

地 址: 西 安 市 高 新 技 术 产 业 开 发 区D 区1 号 楼D 段10 层

邮 编: 710075

电 话: (029)8224050