急急急，VB中关于闪烁的问题

来源：百度知道 编辑：UC知道 时间：2024/06/14 17:41:35
我有一组图形shape（1）到shape（14），我想它们顺序闪烁，依次每个闪10秒左右。想用一个计时器控制。可以添加其他控件，最好能控制闪烁的频率。请各位大虾帮帮忙！结果详细正确的追加分。
我用的是Shape1(0).Visible = Not Shape1(0).Visible来进行闪烁的

注意哈，shape控件是以控件数组形式创建的，即先放一个Shape1，然后复制，再粘贴13次，就可以了

'添加多个shape控件，shape控件设置成控件数组，命名为shape1(0)到shape1(n)
'添加两个Timer计时器控件
'添加一个Label和一个Text控件

Dim n As Integer '记录当前控件序号

Private Sub Form_Activate()
Label1.AutoSize = True
Label1.Caption = "请输入闪烁次数(X5次，推荐1-10)："
Text1.Left = Label1.Left + Label1.Width
Text1.Top = Label1.Top + (Label1.Height - Text1.Height) / 2
Text1.Text = "2" '每个周期闪烁2*5次

s = Val(Text1.Text) * 10
Timer1.Interval = 10000 '每个shape闪烁周期是10秒
Timer2.Interval = Int(Timer1.Interval / s) '每个周期闪烁频率

For n = Shape1.LBound To Shape1.UBound
Shape1(n).BackStyle = 1
If n <> Shape1.LBound Then Shape1(n).Visible = False
Next
n = Shape1.LBound
viewctrl n
End Sub

Private Sub Text1_Change()
s = Val(Trim(Text1.Text))
If s = 0 Then s = 1 '避免输入非法字符时出现错误
s = s *