关于长时间定时的问题

来源:百度知道 编辑:UC知道 时间:2024/06/01 23:11:03
我想做个定时按键为什么一到长时间定时的时候就不行了,刚学VB请高手指教 代码如下:
Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Timer4.Enabled = True
Me.WindowState = 1
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub

Private Sub Form_Load()
n As Integer, m As Integer
Timer1.Interval = 5200
Timer2.Interval = 10000
Timer3.Interval = 60000
Timer4.Interval = 60000
End Sub

Private Sub Timer1_Timer()
SendKeys "1"
End Sub

Private Sub Timer2_Timer()
SendKeys "2"
End Sub

Private Sub Timer3_Timer()
n = n + 1
If n = 10 Then
SendKeys "3"
n = 0
End If
End Sub

Private Sub Timer4_Timer()
m = m + 1
If m = 11 Then
SendKeys

Private Sub Form_Load()
n As Integer, m As Integer
Timer1.Interval = 5200
Timer2.Interval = 10000
Timer3.Interval = 60000
Timer4.Interval = 60000
End Sub

你这个好象和时间长短没联系的
n As Integer, m As Integer
这行可以移动到最上面.定义为全局变量
Option Explicit
public n As Integer
public m As Integer

把 n As Integer, m As Integer 定义为全局的变量

放到 form_load 外面