请问怎能让CheckBox的Value值改变但不发生Click事件？

Question

如题

Answer 1

一样的阿
1=vbChecked
0=vbUnchecked

Answer 2

可以设一个标志blnOutClick如果不是通过Click事件改变: blnOutClick=True在Click事件中增加：If blnOutClick=True then
                     blnOutClick=False
                     Exit sub
                  End If 

Answer 3

hulianchi(需要帮助) 你这样做好像只能通过代码便CLICK 不执行但他还是触发了CLICK 事件呀？

Answer 4

是触发了Click但是代码如果写在Click事件的开始位置，就不会执行后续代码。不知你的需求是这样吗？

Answer 5

也就是说value值的改变一定会触发click事件了？

Answer 6

也许吧，反正我还没找到不触发CLICK事件的方法...

Answer 7

Dim bFlag As Boolean
Private Sub Check1_Click()
  If bFlag = False Then
     '直接单击所执行的任务
     MsgBox "a"
  End If
End SubPrivate Sub Command1_Click()
   bFlag = True
   Check1.Value = 1 - Check1.Value
   bFlag = False
End Sub

Answer 8

自己先看看 MSDN 帮助文档
Have a try by yourself at first.

Answer 9

这样就可以了啊：MyCheckbox.Enabled = False
MyCheckbox.Value = 1
MyCheckbox.Enabled = True

Answer 10

To richardbao(Richard Bao)无论Enable的属性是什么
改变(是改变)Value的值都会触发Click事件的还是自定义控件好
虽然FAN了点儿