急问大家闪烁光源怎么编写?
急问大家闪烁光源怎么编写?就是能够实现一个光源连续的闪烁,而闪烁的频率是逐渐增加的
谢谢大家了。也愿和大家交个朋友。
Option Explicit
Private Sub Timer1_Timer() If Timer1.Interval > 10 Then Timer1.Interval = Timer1.Interval - 2 Else Timer1.Interval = 100 End If Shape1.FillStyle = IIf(Shape1.FillStyle = 0, 1, 0) Text1.Text = Timer1.Interval End Sub 加一个Timer(Interval设为500),一个TextBox,一个Shape(设成圆形)
[此贴子已经被作者于2005-5-17 13:15:47编辑过]