Msgbox和vbyesnocancel

Question

祝大家愉快，我的msgbox在vbyesnocancel提示中遇到了一些问题。

·这段代码一切正常“，但是”我需要单击多个yes，no，cancel来激活它的功能

Private Sub cbEnableDeductions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnableDeductions.Click
            If MsgBox("Do You want To Enable deductions?", vbYesNoCancel) = MsgBoxResult.Yes Then
                cbEnableDeductions.Checked = True
                txtSSS.Enabled = True
                txtHDMF.Enabled = True
                txtPhilHealth.Enabled = True
            ElseIf MsgBox("Do You want To Enable deductions?", vbYesNoCancel) = MsgBoxResult.No Then
                cbEnableDeductions.Checked = True
                Total()
            ElseIf MsgBox("Do You want To Enable deductions?", vbYesNoCancel) = MsgBoxResult.Cancel Then
                cbEnableDeductions.CheckState = False
            End If
        End Sub

使用此代码，"NO“和"CANCEL”函数无法工作

 Private Sub cbEnableDeductions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnableDeductions.Click
        If MsgBox("Do You want To Enable deductions?", vbYesNoCancel) = MsgBoxResult.Yes Then
            cbEnableDeductions.Checked = True
            txtSSS.Enabled = True
            txtHDMF.Enabled = True
            txtPhilHealth.Enabled = True
        ElseIf vbYesNoCancel = MsgBoxResult.No Then
            cbEnableDeductions.Checked = True
            Total()
        ElseIf vbYesNoCancel = MsgBoxResult.Cancel Then
            cbEnableDeductions.CheckState = False
        End If
    End Sub

Answer 1

尝试这样做，您将使用现有代码请求输入3次。

 Dim result As MsgBoxResult = MsgBox("Do You want To Enable deductions?", vbYesNoCancel)
    If result = MsgBoxResult.Yes Then
        cbEnableDeductions.Checked = True
        txtSSS.Enabled = True
        txtHDMF.Enabled = True
        txtPhilHealth.Enabled = True
    ElseIf result = MsgBoxResult.No Then
        cbEnableDeductions.Checked = True
        Total()
    ElseIf result = MsgBoxResult.Cancel Then
        cbEnableDeductions.CheckState = False
    End If

或者你可以用一个案例

 Select Case MsgBox("Do You want To Enable deductions?", vbYesNoCancel)
    Case MsgBoxResult.Yes
       cbEnableDeductions.Checked = True
       txtSSS.Enabled = True
       txtHDMF.Enabled = True
       txtPhilHealth.Enabled = True
    Case MsgBoxResult.No
       cbEnableDeductions.Checked = True
       Total()
    Case MsgBoxResult.Cancel
       cbEnableDeductions.CheckState = False
 End Select

Answer 2

试着做这样的事情：

Private Sub cbEnableDeductions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbEnableDeductions.Click

    Dim msgBoxResult = MsgBox("Do You want To Enable deductions?", vbYesNoCancel)

    If msgBoxResult = MsgBoxResult.Yes Then
        cbEnableDeductions.Checked = True
        txtSSS.Enabled = True
        txtHDMF.Enabled = True
        xtPhilHealth.Enabled = True

     ElseIf msgBoxResult = MsgBoxResult.No Then
         cbEnableDeductions.Checked = True
         Total()

     ElseIf msgBoxResult = MsgBoxResult.Cancel Then
         cbEnableDeductions.CheckState = False

     End If
 End Sub