5.2.3.5 Excel VBA 窗體的 Paint 事件介紹

另一個在窗體起作用之前可能會發(fā)生的事件是Paint事件。如果將窗體的AutoRedraw事件設(shè)置為True, Paint事件就不會發(fā)生。在Paint事件的處理過程中，需要使用圖形方法重新繪制窗體的內(nèi)容，包括Print, Line, Circle, Point, Cls等等.下面的代碼繪制一個多彩的回形區(qū)域:

Private

Dim

Dim

Cls

Sub Form-Paint(

r As Single,initR As Single

x As Single,y As Single,qbc As Integer

，清屏，圈心位于V幕中央

x-ScaleWidth/2: y..ScaleHeight/2

，取圓心坐標(biāo)的小值作為半徑

If x

FillStyle-vbFSSolid’墳充圈形區(qū)城

，使用欺認(rèn)的頗色，繪制同心圈

For r-initR To 1 Step一《initR/16)

FillColor-QBColor(gbc)

qbc-qbc+1

Circle (x,y),r

加ext

，還原墳充摸式

FillStyle-vbFSTransparent

End Sub