5.2.3.5 Excel VBA窗体的Paint事件

2015年09月17日 10:48
   另一个在窗体起作用之前可能会发生的事件是Paint事件。如果将窗体的AutoRedraw事件设置为True, Paint事件就不会发生。在Paint事件的处理过程中，需要使用图形方法重新绘制窗体的内容，包括Print, Line, Circle, Point, Cls等等.下面的代码绘制一个多彩的回形区域:     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     ，取圆心坐标的小值作为半径     If x<y Then initR-x Else initR-y     FillStyle-vbFSSolid’坟充圈形区城     ，使用欺认的颇色，绘制同心圈     For r-initR To 1 Step一《initR/16)     FillColor-QBColor(gbc)     qbc-qbc+1     Circle (x,y),r     加ext     ，还原坟充摸式     FillStyle-vbFSTransparent     End Sub