按键精灵 if命令

你的逻辑不清晰，所以我代码也只提供只要部分，你理解代码后自己适当修改：

Dimenv CheckBox1, CheckBox2

Event Form1.LoadOver

Call Form1.CheckBox1.Click

Call Form1.CheckBox2.Click

End Event

Event Form1.CheckBox1.Click

CheckBox1 = Form1.CheckBox1.Value

End Event

Event Form1.CheckBox2.Click

CheckBox2 = Form1.CheckBox2.Value

End Event

Do

If CheckBox1 = 1 Then

//子程序1

Exit Do

End If

If CheckBox2 = 1 Then

//子程序2

Exit Do

End If

Loop

兄弟，你认为执行if（K==4）的 while(1)里面之后后面的语句还有机会执行吗？

如果要求不高的话，可以将if（K==4）的 while(1)改成while(A)，将A设成全局变量。然后在定时中断中写if(K7==0) A=0

当然，这并不完美。建议将按键识别放在10MS中断中，然后主函数中用switch(i)对相应键码进行处理。

---