2011年计算机等考二级VB辅导知识技巧总结(21)

　　GetWindowRect objThis.hWnd, tR

　　tP.X = tR.Left: tP.Y = tR.Top

　　ScreenToClient objThis.hWnd, tP

　　tR.Left = tP.X: tR.Top = tP.Y

　　tP.X = tR.Right: tP.Y = tR.Bottom

　　ScreenToClient objThis.hWnd, tP

　　tR.Right = tP.X: tR.Bottom = tP.Y

　　End If

　　InvalidateRect objThis.hWnd, tR, 1

　　End Sub

　　为了试试重画，在窗体上添加一个ListBox和一个Command。把ListBox拉得大一些，这样效果比较明显。再加入下列代码：

　　Private Sub Command1_Click()

　　RepaintWindow List1

　　End Sub

　　Private Sub Form_Load()

　　Dim i As Long

　　For i = 1 To 200

　　List1.AddItem "TestItem " & i

　　Next i

　　End Sub

　　当你单击Command按钮，ListBox的客户区将全部重画。对于ListBox，这种效果并不十分明显地显示，但这段代码放在这里主要目的，是让你在遇上有东西不能恰当地重画它自己时可以有办法解决。

　　————————————————————————————————

　　防止窗口重画　 WXJ_Lake 编译

　　这则代码演示了如何防止窗口的一部分重画。当你要往ListBox或ListView这样的控件里添加许多项时，暂缓重画可以相当地提高处理速度。在我的系统上，往一个ListBox中加10000项比原来提速30%。

　　新建一个项目，添加一个ListBox、一个Command和一个CheckBox。把CheckBox的Caption设为"&Lock Update",Command的Caption设为"&Load"。然后，把下列代码粘贴到窗体中：

　　Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

　　Private Declare Function timeGetTime Lib "winmm.dll" () As Long

　　Private Sub Command1_Click()

　　Dim i As Long

　　2011年上半年计算机等级考试报名时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等考二级VB辅导知识技巧汇总