一个简单的MsgBox问题
我想在添加的时候(command1为不可用),单击check的时候进行如下询问:就是如果是排空车,就切换到另一个界面,如果不是(就是他点错了,就还是这个界面,这个check的value值也不被选中),代码如下:
If Command1.Enabled = False Then
i = MsgBox("是排空车吗?", 1 + 32 + 0, "警告")
If i = 1 Then
Unload Me
paikongche.Show
Else
Check1.Value = 0
exit sub
End If
End If
End Sub
可是这个时候,当用户选择"否"的时候,我的本意是想,还是这个界面,check1仍然没有被选中,可是如果写了如上代码,当我令Check1.Value = 0时,又触发了一次If Command1.Enabled = False Then,所以它弹出两次询问对话框.怎么才能只询问一次,并且如果我选"否",它的check不被选中呢?
[解决办法]
Static b As BooleanIf b Then b = Not b: Exit SubIf Command1.Enabled = False Then i = MsgBox("是排空车吗?", 1 + 32 + 0, "警告") If i = 1 Then Unload Me paikongche.Show Else Check1.Value = 0 b = Not b exit sub End If End If End Sub