问题：在内存里运行，10分钟过就自动运行·运行后又重复工作…………
画一个timer1,timer2控件
然后复制我的代码进去覆盖所有代码
Dim n
Private Sub Form_Load()
Timer1.Interval = 1000 * 10
Timer2.Interval = 1000
End Sub
Private Sub Timer1_Timer()
n = n + 1
Timer2.Interval = 1000
End Sub
Private Sub Timer2_Timer()
If n = 6 * 10 Then
MsgBox ("10分钟到了！") '这里写你要的代码
n = 0
End If
End Sub
如果你对在内存里运行，10分钟过就自动运行·运行后又重复工作…………这个问题有好的意见或
建议，请留言
|
您当前的位置：
百科371 → 电脑/网络 → VB → 电脑/网络内容
退出登录 
减小字体
增大字体