一个timer控制闪灯的程序，怎么延时10s后

一个timer控制闪灯的程序，如何延时10s后？
T

Private Sub Timer2_Timer() '闪灯程序

Ima1.Item(Timepp - 1).Visible = Not Ima1.Item(Timepp - 1).Visible

在这里如何写一个延时函数，最好不是sleep，怕占线程

ima1.item(timepp-1).visible=true

end sub

------解决方案--------------------
仍有错,修改如下:

VB code

Private Sub Form_Load()
    Timer2.Interval = 1000
End Sub

Private Sub Timer2_Timer() '闪灯程序
    Static sum As Long
    sum = sum + 1
    ima1.Item(timepp - 1).Visible = Not ima1.Item(timepp - 1).Visible
    '在这里如何写一个延时函数，最好不是sleep，怕占线程
    If sum Mod 600 = 0 Then
        ima1.Item(timepp - 1).Visible = True
        sum = 0
    End If
End Sub

一个timer控制闪灯的程序，怎么延时10s后

相关推荐