Question

关于vb的Check的控件用法

Private Sub Check1_Click()

If Check1.Value = 0 Then
Check1.Value = 1
Else
Check1.Value = 0
End If

End Sub

以上是我的代码 可是一打勾就会出现益处堆栈？
请问怎么解决？

我是使用热键的 按下热键 就会打勾.
哪位仁兄可以帮忙下?

Answer 1

汗！当用户单击Check的时候，check的状态会自动变化，没有必要手动写代码，你这样一写，比如Check1的状态当前是0，用户单击，状态自动变成了1，然后运行到你的代码，又变成0，变化引发Click事件，再次运行你的代码…………这样就没有终止了

注意！！
你用代码改变Check的Value属性，一样会引发check的Click事件！
思考一下吧

Answer 2

Check1_Click被递归调用了，而且陷入死循环，系统当然溢出
热键的话不要在这个事件里做，在keydown里