当前位置:编程学习 > VB >>

vb timer控件小问题,请告诉帮忙解答下

有两个timer控件,timer1、timer2,在timer1控件执行事件1秒后,timer2控件执行
补充:或者用一个timer控制两个事件发生差一秒也行,谁能给编个代码
追问:如果要有三个事件呢?
每个事件间隔2秒呢?
答案:添加一timer控件,Interval设为1000
Private Sub Timer1_Timer()
    
    Static i As Integer
    
    i = i + 1
    If i = 1 Then
    
        Print "1" ‘事件1
    End If
    If i = 2 Then
        
        Print "2" '事件2
        i = 0
    End If
End Sub
其他:timer2的Interval属性设置为1000
timer2的Enabled属性设置为False
timer1事件代码里面最后的地方来一句:
timer2.Enabled=True
 
timer2事件代码里面最后的地方来一句:
timer2.Enabled=False timer 控件有bug,就是执行代码时不计时,建议用timer高频读取系统时间(interval在10左右为妙),每过一秒就激发一个事件

上一个:Vb与Access连接后,可以添加和查询了,但是想能够实现数据库中数据的计算
下一个:vb小白询问一个问题

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,