请问这个循环怎么写?
// 变量 A
Event Form1.A1.Change
Form1.A1.Text = Right(Form1.A1.Text,1)
A1 = Form1.A1.Text
End Event
Event Form1.A2.Change
Form1.A2.Text = Right(Form1.A2.Text,1)
A2 = Form1.A2.Text
End Event
Event Form1.A3.Change
A3 = Form1.A3.Text
For 20
Next
End Event
// 注册热键 one
Event Form1.Hotkey1.Change
Form1.Hotkey1.Register True
End Event
// 执行热键 one
Event Form1.Hotkey1.Hotkey
KeyPress A1, 1
Delay 10
KeyPress A2, 1
Delay 10
For i=1 To 20
A3 = Form1.A3.Text
Next
End Event
Event Form1.Hotkey1.Hotkey
KeyPress B1, 1
Delay 10
KeyPress B2, 1
Delay 10
For i=1 To 20
B3 = Form1.B3.Text
Next
End Event
这样写循环不生效,是不是要做多线程?或者有其他方法的?
|