Private Sub Timer1_Timer()
Timer1.Enabled = False
Timer2.Interval = 你想要的时间间隔
Timer2.Enabled = True
End Sub
Private Sub Timer2_Timer()
Timer2.Enabled = False
Timer1.Interval = 你想要的时间间隔
Timer1.Enabled = True
End Sub
解决方案 »
- 怎么没人发帖了?我来发一个。
- 如何在vb把bmp图片转化为rgb值之后存储在二维数组?
- 请教各位大侠:如果一次给打印机一万条打印记录。会不会死机。。。急。在线等。。
- 怎样重命名一个文件,最好不使用FileSystemObject
- 请问谁有英语字典数据库,用TXT,MDB都行!!!!!!!!!!!!!!!!
- 急死了:为什么我的程序在win2000中顺利通过,在98中却编译不过,提示见内容。
- 自动由相应的软件打开该文件。大问题100分
- 关于ADODC和ACCESS 2000的怪问题。
- 关于chdrive用法的疑惑
- CreateObject("Excel.Application") 在Asp中出错!
- vb如何实现使一个form始终显示在最上层,如vb里的【查询】对话框那样
- 请教:如何用image或picture控件通过ADO往access2002中添加图片?
Timer1.Enabled = True
Timer2.Enabled = False
timm = 1000 '(你要循环1000次)
End SubPrivate Sub Timer1_Timer()
timm = timm - 1
If timm = 0 Then
Timer1.Enabled = False
Timer2.Enabled = True
timm = 100 '(你要循环100次)
Else
'等待
End If
End SubPrivate Sub Timer2_Timer()
timm = timm - 1
If timm = 0 Then
Timer2.Enabled = False
Timer1.Enabled = True
timm = 1000 '(你要循环1000次)
Else
'等待
End If
End Sub