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

　　强制和防止窗口重画

　　导读:这个例子告诉你如何强制窗口的一部分重画。有时这是必须的，上学吧提示当你试验自己重画控件的技术，或者已经使用了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辅导知识技巧汇总