vb6 - 单击并 CheckStateChanged VB6

Question

根据微软:“在 Visual Basic 6.0 中，当 CheckBox 状态以编程方式更改时引发 Click 事件。”而这正是我不想要的。

我希望点击事件只在我点击复选框时引发，而不是在状态改变时引发。

知道怎么做吗？

谢谢

Answer 1

您可以在从代码填充表单时设置一个标志以忽略更改。如果代码组织不好，这可能会变得困惑。

表单级别:

  Public IgnoreChange As Boolean

表单加载:

  IgnoreChange = False

事件:

  If IgnoreChange Then Exit Sub

您的代码:

  frmReference.IgnoreChange = True
  frmReference.Checkbox1.Checked = True
  frmReference.IgnoreChange = False

代码应该只响应用户操作