急问大家闪烁光源怎么编写？
急问大家闪烁光源怎么编写？就是能够实现一个光源连续的闪烁，而闪烁的频率是逐渐增加的
谢谢大家了。也愿和大家交个朋友。
2005-05-17 10:44
2005-05-17 10:50
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编辑过]
2005-05-17 13:14