大家好，在代码里给checkbox赋值时怎么才能不触发click事件？

Question

大家好，在代码里给checkbox赋值时怎么才能不触发click事件？

Answer 1

Private m_bln_chenck As Boolean
Private Sub Check1_Click()
    If m_bln_chenck = True Then
        m_bln_chenck = False
        Exit Sub
    End If
    
    
    'Check1_Click想实现的相关代码
    
    
End SubPrivate Sub Command1_Click()
    m_bln_chenck = True
    Check1.Value = 1 - (Check1.Value)
End Sub

Answer 2

由于我的checkbox很多，能不能只设置checkbox的属性 ，或是设置check_click的什么参数来实现

Answer 3

把所有checkbox设置成控件数组Option Explicit
Public blnNoCheck As BooleanPrivate Sub Check1_Click(Index As Integer)
If blnNoCheck = True Then Exit Sub
MsgBox ""
End SubPrivate Sub Command1_Click()
blnNoCheck = True
Check1(2).Value = 1
End Sub