至于为什么我想应该是ms设计成这样的,要避免好办,加个开关变量。如:
Option ExplicitPrivate mblnHandleEvent As BooleanPrivate Sub Check1_Click()
If mblnHandleEvent Then
' your code here
End If
End SubPrivate Sub Form_Load()
mblnHandleEvent = False
Check1.Value = 1
mblnHandleEvent = True
End Sub
Option ExplicitPrivate mblnHandleEvent As BooleanPrivate Sub Check1_Click()
If mblnHandleEvent Then
' your code here
End If
End SubPrivate Sub Form_Load()
mblnHandleEvent = False
Check1.Value = 1
mblnHandleEvent = True
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货