请问这个循环怎么写？

菜鸡刚[果猿] Rank: 1 果壳币: 1

发表于 2021-1-29 15:58:29 | 0 条回复 | 112 次浏览

请问这个循环怎么写？

//  变量  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

这样写循环不生效，是不是要做多线程？或者有其他方法的？

回复道具举报