強制和防止窗口重畫

2019-11-18 17:34:03

字體：大中小

來源：轉載

供稿：網友

這個例子告訴你如何強制窗口的一部分重畫。有時這是必須的，特別是當你試驗自己重畫控件的技術，或者已經使用了LockWindowUpdate
這個API函數以阻止控件重畫時（參見“防止一個窗口重畫”）。

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

aspOINTAPI)AsLong

PublicSubRepaintWindow(ByRefobjThisAsObject,OptionalByValbClientAreaOnlyAsBoolean=True)
　DimtRAsRECT
　DimtPAsPOINTAPI
　If(bClientAreaOnly)Then
　　GetClientRectobjThis.hWnd,tR
　Else
　　GetWindowRectobjThis.hWnd,tR
　　tP.X=tR.Left:tP.Y=tR.Top
　　ScreenToClientobjThis.hWnd,tP
　　tR.Left=tP.X:tR.Top=tP.Y
　　tP.X=tR.Right:tP.Y=tR.Bottom
　　ScreenToClientobjThis.hWnd,tP
　　tR.Right=tP.X:tR.Bottom=tP.Y
　EndIf
　InvalidateRectobjThis.hWnd,tR,1　
EndSub

　　為了試試重畫，在窗體上添加一個ListBox和一個Command。把ListBox拉得大一些，這樣效果比較明顯。再加入下列代碼：

PrivateSubCommand1_Click()
　RepaintWindowList1
EndSub

PrivateSubForm_Load()
　DimiAsLong
　Fori=1To200
　　List1.AddItem"TestItem"&i
　Nexti
EndSub

　　當你單擊Command按鈕，ListBox的客戶區將全部重畫。對于ListBox，這種效果并不十分明顯地顯示，但這段代碼放在這里主要目的，是讓你在
遇上有東西不能恰當地重畫它自己時可以有辦法解決。

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

防止窗口重畫　WXJ_Lake編譯

　　這則代碼演示了如何防止窗口的一部分重畫。當你要往ListBox或ListView這樣的控件里添加許多項時，暫緩重畫可以相當地提高處理速度。
在我的系統上，往一個ListBox中加10000項比原來提速30

　　新建一個項目，添加一個ListBox、一個Command和一個CheckBox。把CheckBox的Caption設為"&LockUpdate",Command的Caption設為"&Load"。
然后，把下列代碼粘貼到窗體中：

PrivateDeclareFunctionLockWindowUpdateLib"user32"(ByValhwndLockAsLong)AsLong
PrivateDeclareFunctiontimeGetTimeLib"winmm.dll"()AsLong

PrivateSubCommand1_Click()
　DimiAsLong
　DimlTImeAsLong

　lTIme=timeGetTime()

　If(Check1.Value=Checked)Then
　　LockWindowUpdateList1.hWnd
　EndIf

　List1.Clear
　Fori=1To10000
　　List1.AddItem"Test"&i
　Nexti

　If(Check1.Value=Checked)Then
　　LockWindowUpdate0
　　List1.Refresh
　EndIf

　MsgBox"Time:"&timeGetTime-lTIme

EndSub

　　當你單擊Command按鈕，代碼將往ListBox中添加10000項。如果"LockUpdate"的復選框被選中，Windows將在往ListBox中添加項時防止它的重畫。操作結束后，會彈出一個對話框報告運行時間。->

上一篇：VB中實現同一窗口的多個實例及控件的動態增減

下一篇：利用子類處理技術限制窗體的大小