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的客戶區(qū)將全部重畫。對于ListBox，這種效果并不十分明顯地顯示，但這段代碼放在這里主要目的，是讓你在遇上有東西不能恰當?shù)刂禺嬎�自己時可以有辦法解決。

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

　　防止窗口重畫　 WXJ_Lake 編譯

　　這則代碼演示了如何防止窗口的一部分重畫。當你要往ListBox或ListView這樣的控件里添加許多項時，暫緩重畫可以相當?shù)靥岣咛幚硭俣取Ｔ谖业南到y(tǒng)上，往一個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輔導知識技巧匯總