电脑教程
位置:首页>> 电脑教程>> office教程>> 5.2.3.5 Excel VBA窗体的Paint事件

5.2.3.5 Excel VBA窗体的Paint事件

  发布时间:2022-12-10 04:45:20 

标签:事件,正弦曲线,窗体,绘制,Excel教程

另一个在窗体起作用之前可能会发生的事件是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

0
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com