如何使Timer控件在运行x次后自动停止运行
编号：QA002736
建立日期: 2000年3月18日 最后修改日期：2000年3月18日
所属类别：
贝贝:
操作系统: windows98
编程工具: vb 6.0
问题: 请问:
1:如何使Timer控件在运行x秒后(或x次后)自动停止运行!
2:比如我在窗体上有两个check控件,而且都打上了对号。怎么样使程序退出时记住，在下一次运行时,直接就是我的上一次操作,两个都打上了对号!谢谢指点!
回答:
第一个问题可以这样做：
Private Sub Timer1_Timer()
Static nTimes As Integer
nTimes = nTimes + 1
Debug.Print nTimes
If nTimes = 5 Then Timer1.Enabled = False
End Sub
这里的nTimes是一个静态变量，它起计数作用。开始运行后，使用 Static 语句声明的变量会一直保持其值，直至窗体关闭。当运行到5次之后，设置Timer1.Enabled属性禁止Timer控件。
第二个问题已经回答过了：QA001800 "如何保存用户的选择"。
此问题由李海回答。
| |
|
|
| |
|
|
