关于checkbox的一个很恶心的问题

Question

你可以在CLICK事件里边写一些无关紧要的代码不就行了，那能不能就满足你的要求啦？

Answer 1

你可以把click事件当成checkbox的"valuechange"事件

Answer 2

你可以参照以下代码实现：Dim m_blnClick As Boolean       '定义是否可以执行Click事件的模块变量'初始化为不执行Click事件
Private Sub Form_Load()
    m_blnClick = False
End SubPrivate Sub Check1_Click()
    If m_blnClick Then          '由于m_click为False,所以不执行其下的代码
        MsgBox "check1Click"
    End If
End Sub其实Click还是执行了，但不没有执行具体代码，这由变量m_blnClick控制

Answer 3

你可以参照以下代码实现：Dim m_blnClick As Boolean       '定义是否可以执行Click事件的模块变量'初始化为不执行Click事件
Private Sub Form_Load()
    m_blnClick = False
End SubPrivate Sub Check1_Click()
    If m_blnClick Then          '由于m_click为False,所以不执行其下的代码
        MsgBox "check1Click"    '将不执行
    End If
End Sub其实Click还是执行了，但不没有执行具体代码，这由变量m_blnClick控制