如何禁止控件的Click事件？

Question

我要在一个子函数中禁止一个控件的Click事件，能直接实现吗？
请高手指教一二！

Answer 1

这样做这个控件的其它事件也都不响应了！
我只是想在这个子函数中禁止Click，在其它函数中Click还能用。

Answer 2

一个变通方法：Option Explicit
Dim flag As BooleanPrivate Sub Command1_Click()
  If flag = False Then
    Exit Sub
  End If
  .........
End SubPrivate Sub Form_Load()
  flag = True
End Sub在需要的时候修改flag的值。

Answer 3

remanwang(玩玩儿)跟我想到一块儿了！
我刚刚用这种方法解决了问题。
不过全局变量用多了毕竟不好，而且又要加判断，最好有更好的方法。

Answer 4

最好的办法是不在控件的_click 中写任何代码，正所谓“无为而治”。

Answer 5

照  remanwang(玩玩儿) 的做吧