Question

我希望用户选择持续时间，然后再单击复选框（Cagayan），该怎么做？这是我的代码

{{1}}

Answer 1

您必须在第一个if块的末尾添加退出子项...

    Private Sub Rcagayan_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cagayan.CheckedChanged
        If Duration.Text = "" Then
        MessageBox.Show("Please Select Duration", "WARNING", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        exit sub
End if

If Cagayan.Checked = False Then
    Abulug.Checked = False
    Allacapan.Checked = False
    Alcala.Checked = False
    Amulung.Checked = False
    Aparri.Checked = False
    Baggao.Checked = False
    Ballesteros.Checked = False
    Buguey.Checked = False
    Camal.Checked = False
    Claveria.Checked = False
    Enrile.Checked = False
    Gattaran.Checked = False
    Gonzaga.Checked = False
    Iguig.Checked = False
    Lasam.Checked = False
    Lallo.Checked = False
    Pamplona.Checked = False
    Penablanca.Checked = False
    Piat.Checked = False
    Rizal.Checked = False
    SantaAna.Checked = False
    StaTere.Checked = False
    Santonino.Checked = False
    Praxedes.Checked = False
    Sanchez.Checked = False
    Solana.Checked = False
    Tuao.Checked = False
    Tugue.Checked = False

    btnUncheckedckbExpectedFalse.PerformClick()
    btnAdvicedUnchecked.PerformClick()
    Me.btncagayan.PerformClick()
    Me.btnTstmFormat.PerformClick()
End If

 End Sub

如果不是vb.net中的条件

1 个答案: