用户登录  |  用户注册
首 页商业源码原创产品编程论坛
当前位置:PB创新网文章中心编程技巧VisualBasic

用API函数改进ListView控件的显示效果

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2009-03-16 19:51:01

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

Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
PB创新网ourmis.com】Copyright © 2000-2009 . All Rights Reserved .
页面执行时间:12,250.00000 毫秒
Email:ourmis@126.com QQ:2322888 蜀ICP备05006790号