体验零代码搭建

5.2.3.5 Excel VBA窗体的Paint事件

网友投稿  ·  2023-12-13 10:12  ·  云表格  ·  阅读 504


另一个在窗体起作用之前可能会发生的事件是Paint事件。如果将窗体的AutoRedraw事件设置为True, Paint事件就不会发生。在Paint事件的处理过程中,需要使用图形方法重新绘制窗体的内容,包括Print, Line, Circle, Point, Cls等等.下面的代码绘制一个多彩的回形区域:

另一个在窗体起作用之前可能会发生的事件是Paint事件。如果将窗体的AutoRedraw事件设置为True, Paint事件就不会发生。在Paint事件的处理过程中,需要使用图形方法重新绘制窗体的内容,包括Print, Line, Circle, Point, Cls等等.下面的代码绘制一个多彩的回形区域:

5.2.3.5 Excel VBA窗体的Paint事件

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

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


5.2.3.10 Excel VBA窗体的GetFocus和LostFocus事件 << 上一篇
2023-12-13 10:12
制造业的生产管理情况
2023-12-13 10:12
下一篇 >>

相关推荐