Private Sub cmbSDPFLine_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim rtn_ans1 As String
If cmbSDPFLine.Value = "" Then
rtn_ans1 = MsgBox("Please select a production line.", vbOKOnly, "Please Select Production Line")
Select Case rtn_ans1
Case 1
Cancel = True
cmbSDPFLine.SetFocus
End Select
End If
End Sub
我试图用上述代码实现的是,当用户退出上方的所需文本框时,它将返回该文本框,直到做出选择为止。是的。我还有一个标有“取消”的命令按钮。
Private Sub cmdbtnCancel_Click()
Unload Me
End Sub
我遇到的问题是,如果用户希望在不进行选择的情况下从表单中取消,然后单击“取消”按钮,则上面的消息框将一直显示,直到用户做出选择,然后单击“取消”按钮。同样,如果用户单击表单上带有红色背景的白色“ X”,则消息框也会显示,但是一旦用户确认“确定”按钮,表单就会关闭。因此,我喜欢的是用户单击白色X或单击“取消”按钮后,我需要关闭表单而不显示消息框。我该如何实现?谢谢。