用API函数改进ListView控件的显示效果
发表于:2007-07-14来源:作者:点击数:
标签:
王建兵 ListView使用简介 ListView控件是 VB 开发 者非常喜爱的控件之一。作为 Windows 95公共控件组(COMCTL32.OCX) 的成员,它经常与经常与TreeView、ImageList等控件联合使用。即用TreeView显示一个的树 型结构,而用ListView显示选中的节点(Node)对象的记
王建兵
ListView使用简介
ListView控件是
VB开发者非常喜爱的控件之一。作为
Windows95公共控件组(COMCTL32.OCX) 的成员,它经常与经常与TreeView、ImageList等控件联合使用。即用TreeView显示一个的树 型结构,而用ListView显示选中的节点(Node)对象的记录
集。
这是笔者在开发财务软件项目中的$#@60;$#@60;凭证管理$#@62;$#@62;模块的一个用户界 面。屏幕左边是一个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)的过程也会显示出来,所以在填充的过程中屏幕会不停的闪动,这种现象当然 不能被用户所接受。如何解决这个问题呢?
三、
解决方案
用WindowsAPI函数可以解决这个问题。首先对几个用到的API函数做一解释和说明。
1.GetClientRectLib"user32"(ByValhwndAsLong,lpRectAsRECT)As Long
此函数的功能是获得一个指定对象窗 Window)的矩型框区域(rectangle)。
Hwnd为指定对象或窗体的句柄。LpRect为返回矩型框的结构(必须定义为结构类型的变量)。
2.ValidateRectLib"user32"(ByValhwndAsLong,lpRectAsRECT)As Long
此函数的功能是使指定的矩型区域生效。这样会通知Windows不必对指定 的区域进行重画(Redraw)。
3.InvalidateRectLib"user32"(ByVal hwndAsLong,lpRectAsRECT,ByValbEraseAsLong)AsLong
此函数的 功能是使指定的矩型区域无效。这样会通知Windows要对指定的区域进行重画。
具体实现的步骤如下:
1.在填充结果集之前先用GetClientRect函数获得ListView的 显示区域。
2.在增加完一个显示项目(ListItem)后用ValidateRect函数置这一 区域为有效。这样Windows就不会显示每一条ListItem,屏幕闪动的现象就会消失。
3.在填充结果集之后,用InvalidateRect函数置这一区域为无效。这样Windows就会重画ListView 的内容,结果集被完整的显示出来。
下面是笔者在项目开发中的一个程序实例。程 序名为FillListView。该程序将填写一个A
clearcase/" target="_blank" >ccess数据库(FISCAL.MDB)的凭证表(Table)的内容 到ListView中。
首先进入VB5.0,新建一个窗体(Form),名为Form1。
然后在Form中增加下列控件。
控件名Name
ListViewLvw
ImagelistimlList
CommandButton。Command1
将ImageList控件中充填一个名为“item”的图象后与ListView控件关联。
在$#@60;$#@60;工程$#@62;$#@62;菜单命令条中进入“引用”对话框,选择“MicrosoftDAOObjectLibrary”
在Form的通用模块(Modle)中定义以下变量。
PrivateTypeRECT用来定义一个区域的坐标。
LeftAsLong
TopAsLong
Right AsLong
BottomAsLong
EndType
--
Windows API函数的声明。
PrivateDeclareFunctionInvalidateRectLib"user32"
(ByVal hwndAsLong,lpRectAsRECT,ByValbEraseAsLong)AsLong
PrivateDeclare FunctionValidateRectLib"user32"
(ByValhwndAsLong,lpRect AsRECT)AsLong
PrivateDeclareFunctionGetClientRectLib"user32"
(ByVal hwndAsLong,lpRectAsRECT)AsLong
DimmbSearchCancelAsBoolean
用来定义查询中断的标志。
True表示中止查询;False表示正在查询。
将该Form的KeyPreview属性设为True,以控制窗体接收键盘事件。
然后在Form 的KeyPress事件中写下列代码:
IfKeyAscii=
vbKeyEscapeThen
mbSearchCancel=True
当用户按Escape 键时,置mbSearchCancel变量为True。
EndIf
表示结束查询。
在Command Button的Click事件中调用填充子程序:CallFillListView。
子程序的代码 为:
PrivateSubFillListView()
DimitmXAsListItem定义一 个ListView的显示项目。
DimsSQLAsString查询字串变量。
Dim rcAsRECTListView的显示区域。
DimwrkJetAsWorkspace数据库工作空间。
Dim dbFISCALAsDatabase数据库对象。
DimRSAsRecordset数据结果集。
On ErrorGoToErrFillListView
Screen.MousePointer=vbHourglass
lvw.ListItems.Clear: 清除ListView的内容。
定义ListView的列头的名称。
With lvw.ColumnHeaders
.Add,,"凭证编号",800
.Add,," 凭证日期",1000
.Add,,"凭证字号",1000
.Add,," 凭证类别",800
.Add,,"首行摘要",1440
.Add,," 借方金额合计",1000,lvwColumnRight
EndWith
- --
产生查询语句。
sSQL="selectvoucher_id,voucher_number,voucher_date,
voucher_type_shortname,"
sSQL=sSQL&"voucher_type_name,voucher_memo,voucher_amount fromVOUCHER"
sSQL=sSQL&"orderbyvoucher_number"
---
打开一个数据库结果集。
SetwrkJet=CreateWorkspace("NewJetWorkspace", "admin","",
dbUseJet)
SetdbFISCAL=wrkJet.OpenDatabase("FISCAL.mdb")
Set RS=.dbFISCAL.OpensSQL,dbOpenForwardOnly
获得listview 的显示区域。
CallGetClientRect(lvw.hwnd,rc)
DoWhileNotRS.EOF()
DoEvents
If mbSearchCancelThen
中断退出
RS.Close:SetRS=Nothing关闭、清 除结果集。
mbSearchCancel=False
Screen.MousePointer=vbDefault
--
刷新ListView的内容,显示已经查出的记录数。
CallInvalidateRect(lvw.hwnd, rc,True)
ExitSub
EndIf
---
增加一个显示 项目ListItem。
Withlvw.ListItems
SetitmX=.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
EndWith
--
避免显示区域的闪动现象。
Call ValidateRect(lvw.hwnd,rc)
RS.MoveNext
Loop
- 刷新ListView的内容。显示所有查出的记录数。
CallInvalidateRect(lvw.hwnd,rc, True)
-
关闭、清除结果集。
RS.Close:SetRS=Nothing
creen.MousePointer =vbDefault
ExitSub
ErrFillListView:
Screen.MousePointer= vbDefault
MsgBoxErr&":"&Error,vbInformation,Me.Caption
Exit Sub
EndSub
编写完毕后按F5执行该程序,用鼠标点击CommandButton,将 开始查询并填写凭证的内容到ListView中去。
关于ListView本文只是描述了它 如何填充大量结果集的方法,它还有很多特性(property)和方法(method),利用它们可以达到 更完美的显示效果,有兴趣的读者可以进一步研究。不管是开发什么样的应用程序,只有坚持 面向用户、方便用户的原则,这样的软件才具有强大的生命力。
原文转自:http://www.ltesting.net