強制和防止窗口重畫

　　導讀:這個例子告訴你如何強制窗口的一部分重畫。有時這是必須的，上學吧提示當你試驗自己重畫控件的技術，或者已經使用了LockWindowUpdate這個API函數以阻止控件重畫時(參見“防止一個窗口重畫”)。

　　新建一個項目，添加一個module，然后粘貼下列代碼：

　　Private Type RECT

　　Left As Long

　　Top As Long

　　Right As Long

　　Bottom As Long

　　End Type

　　Private Type POINTAPI

　　X As Long

　　Y As Long

　　End Type

　　Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long

　　Private Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long

　　Private Declare Function InvalidateRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT, ByVal bErase As Long) As Long

　　Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long

　　Public Sub RepaintWindow(ByRef objThis As Object, Optional ByVal bClientAreaOnly As Boolean = True)

　　Dim tR As RECT

　　Dim tP As POINTAPI

　　If (bClientAreaOnly) Then

　　GetClientRect objThis.hWnd, tR

　　Else

　　2011年上半年計算機等級考試報名時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB基礎教程匯總

　　2011計算機等考二級VB輔導知識技巧匯總