用API改进ListView显示效果

    ListView简介
  ListView控件是VB开发者非常喜爱的控件之一。作为Windows 95 公共控件组(COMCT L32.OCX)的成员,它经常与TreeView、ImageList 等控件联合使用。用 TreeView 显示一个树型结构,而用 ListView 显示选中的节点(Node)对象的记录集,如下图所示: 图1
  这是笔者在开发财务软件项目中的"凭证管理"模块的一个用户界面。屏幕左边是一个TreeView控件,用来显示会计凭证的类别;右边是一个ListView,用来显示对应类别的凭证目录;上方是一个菜单条控件 (MenuBar)和一个工具条控件(ToolBar);下方是一个状态栏控件(Stat usBar),用来显示凭证数和当前日期。
  可见图中所示的界面非常类似于Window 95/98的资源浏览器, Wi ndows的界面风格作为一种标准已为广大用户所接受,而Windows 操作系统的主要优点就是为所有的应用程序提供了公用的界面。掌握了使用基于Windows的应用程序的用户,很容易学会使用其他应用程序。
  这种使用Windows 95公共控件组合的方法能够达到与Windows界面保持一致性,所以在目前VB5.0应用程序的开发中经常使用。
  填充大量结果集的问题
  在实际应用开发中,经常用ListView填充一个数据库结果集(Reco rdset)的内容。即先写一段SQL查询语句,产生一个结果集,然后将结果集的每一条记录用DO...LOOP循环语句中填到ListView中。
  但是当结果集很大时(例如有5000条以上的记录),填充所需要的时间会很长,用户不得不等很长时间完成一个查询,所以在查询的过程中必须允许用户按 Escape键退出。具体做法是在DO...LOOP循环体中加一条DoEvents函数,并写一段中断退出程序代码。
  DoEvents函数的功能是:转让控制权,以便让操作系统处理其他的事件。这样在长时间的查询过程中,如果用户按了Escape键,将退出循环体,结束查询过程。
  但是这样又会引发另外一个问题:由于DoEvents可以让操作系统响应别的事件,循环体中填充每一条ListView项目(ListItem)的过程也会显示出来,所以在填充的过程中屏幕会不停地闪动,这种现象当然不能被用户所接受。如何解决这个问题呢?
  解决方法
  用Windows API函数可以解决这个问题。这里首先对几个用到的A PI函数做一解释和说明。
  1. GetClientRect Lib "user32" (ByVal hwnd As Long, lpRec t As RECT) As Lo ng
  此函数的功能是获得一个指定对象窗口(Window)的矩型框区域(r ectangle)。
  Hwnd为指定对象或窗体的句柄。LpRect为返回矩型框的结构(必须定义为结构类型的变量) 。
  2. ValidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Lon
  此函数的功能是使指定的矩型区域生效,通知Windows不必对指定的区域进行重画(R edraw)。
  3. InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRe ct As RECT, ByVa l bErase As Long) As Long
  此函数的功能是使指定的矩型区域无效,通知Windows要对指定的区域进行重画。
  具体实现步骤如下:
  1. 在填充结果集之前先用GetClientRect函数获得ListView的显示区域。
  2. 在增加完一个显示项目(ListItem)后用ValidateRect函数置这一区域为有效。这样Windows就不会显示每一条ListItem,屏幕闪动的现象就会消失。
  3. 在填充结果集之后, 用InvalidateRect函数置这一区域为无效。这样Windows就会重画ListView的内容,结果集被完整地显示出来。
  本文给出笔者在项目开发中的一个程序实例,程序名为FillListV iew。该程序将一个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" (By Val hwnd As Long , lpRect As RECT, ByVal bErase As Long) As Long
  Private Declare Function ValidateRect Lib "user32" (ByVa l hwnd As Long,l pRect As RECT) As Long
  Private Declare Function GetClientRect Lib "user32" (ByV al 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 Fill ListView。
  编者注:子程序FillListView()的代码发表在本报WWW站点上,地址是:http://www.c omputer world.com.cn/98/skill/default.htm 。欢迎访问!
  按F5执行该程序,用鼠标点击CommandButton,将开始查询并将凭证的内容填写到Lis tView中去。
  关于ListView,本文只是描述了它如何填充大量结果集的方法,它还有很多其他特性(property)和方法(method),利用它们可以达到更完美的显示效果,有兴趣的读者可以进一步研究。不管是开发什么样的应用程序,只有坚持面向用户、方便用户的原则,这样的软件才具有强大的生命力。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值