有三个ComboBox在一起，如何清除另外两个ComboBox上的选项而不触动_Change()的宏？

gtwlren · 发表于 2016-6-14 19:35

02761752696 · 发表于 2016-6-14 19:58

那就不用 _Change() 事件
删除删除(*^__^*) 嘻嘻……

liuhoubin168 · 发表于 2016-6-14 20:26

楼上的回答会让楼主哭笑不得。
增加一个变量用来判断是程序引发的还是用户引发的。

gtwlren · 发表于 2016-6-14 21:03

楼上说得有道理，可这个判断怎么写呢？谢谢不吝赐教！

niceguanlan · 发表于 2019-5-14 09:32

比如在清楚之前设置全局变量 mbCancel = True，结束后mbCancel = False
Private Sub ClearCombobox()
Dim Ctrl As Control
mbCancel = True
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "ComboBox" Then
Ctrl.Clear
End If
Next
mbCancel = False
End Sub
在change事件里面加入条件语句
Private Sub CmbAxFmt1_Change()
If mbCancel = True Then
Exit Sub
End If
change 事件后续代码
end sub

		自动登录	找回密码
密码			免费注册

[求助] 有三个ComboBox在一起，如何清除另外两个ComboBox上的选项而不触动_Change()的宏？