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

t;& 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)，利用它们可以达到 更完美的显示效果，有兴趣的读者可以进一步研究。不管是开发什么样的应用程序，只有坚持 面向用户、方便用户的原则，这样的软件才具有强大的生命力。