Vb.net 在vb中验证失败时退出if语句

我试图用if语句验证用户输入，除了一件事，一切都很好。当第一个错误发生时，我希望程序发出带有错误的消息框，然后将用户返回带有错误的输入字段

它当前所做的是发出错误，然后继续处理其余的错误

我试着去，去，去，去，但这些都是不想要的

   Private Sub btnCalculateTicketRevenue_Click(sender As Object, e As EventArgs) Handles btnCalculateTicketRevenue.Click

    'Validate Adult Ticket Price user input

    Try
        If txtAdultTicketPrice.Text = "" Or IsNumeric(txtAdultTicketPrice.Text) = False Then
            'MessageBox.Show("Please enter a numeric value for Adult ticket price", "Invalid Input", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            txtAdultTicketPriceError()
        ElseIf CLng(txtAdultTicketPrice.Text) < -1 Then
            'MessageBox.Show("Please enter a value greater than or equal to zero", "Negative value", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            txtAdultTicketPriceError()
        Else
            decAdultTicketPrice = CDec(txtAdultTicketPrice.Text)
            'MessageBox.Show(decAdultTicketPrice.ToString)
            blnPassedAdultTicketPrice = True
        End If
        Catch ex As Exception
        MessageBox.Show("Something went wrong", "General Error")
        End
    End Try

私有子btnCalculateTicketRevenue\u单击（发件人作为对象，e作为事件参数）处理btnCalculateTicketRevenue。单击
'验证成人票价用户输入
尝试
如果txtAdultTicketPrice.Text=”“或是数字（txtAdultTicketPrice.Text）=False，则
'MessageBox.Show（“请输入成人票价的数值”，“输入无效”，MessageBoxButtons.OK，MessageBoxIcon.叹号）
txtAdultTicketPriceError（）
ElseIf CLng（txtAdultTicketPrice.Text）<-1然后
'MessageBox.Show（“请输入一个大于或等于零的值”，“负值”，MessageBoxButtons.OK，MessageBoxIcon.叹号）
txtAdultTicketPriceError（）
其他的
decAdultTicketPrice=CDec（txtAdultTicketPrice.Text）
'MessageBox.Show（DecadutticketPrice.ToString）
BLNPassedUltTicketPrice=True
如果结束
特例
MessageBox.Show（“出错”、“一般错误”）
终止
结束尝试

只需使用

退出子系统

Try
    If txtAdultTicketPrice.Text = "" Or IsNumeric(txtAdultTicketPrice.Text) = False Then
        MessageBox.Show("Please enter a numeric value for Adult ticket price", "Invalid Input", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Exit Sub
    ElseIf CLng(txtAdultTicketPrice.Text) < -1 Then
        MessageBox.Show("Please enter a value greater than or equal to zero", "Negative value", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Exit Sub
    Else
        decAdultTicketPrice = CDec(txtAdultTicketPrice.Text)
        MessageBox.Show(decAdultTicketPrice.ToString)
        blnPassedAdultTicketPrice = True
    End If
    Catch ex As Exception
        MessageBox.Show("Something went wrong", "General Error")
    End
End Try

试试看
如果txtAdultTicketPrice.Text=”“或是数字（txtAdultTicketPrice.Text）=False，则
MessageBox.Show（“请输入成人票价的数值”，“输入无效”，MessageBoxButtons.OK，MessageBoxIcon.叹号）
出口接头
ElseIf CLng（txtAdultTicketPrice.Text）<-1然后
MessageBox.Show（“请输入一个大于或等于零的值”，“负值”，MessageBoxButtons.OK，MessageBoxIcon.叹号）
出口接头
其他的
decAdultTicketPrice=CDec（txtAdultTicketPrice.Text）
MessageBox.Show（decAdultTicketPrice.ToString）
BLNPassedUltTicketPrice=True
如果结束
特例
MessageBox.Show（“出错”、“一般错误”）
终止
结束尝试

改为尝试

返回
。但研究Windows窗体验证会更好