命令按钮协助

时间:2018-06-19 22:31:50

标签: commandbutton

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或单击“取消”按钮后,我需要关闭表单而不显示消息框。我该如何实现?谢谢。

0 个答案:

没有答案