在VB中添加错误处理程序

时间:2017-12-06 12:03:44

标签: vb.net error-handling

  ' Button which allows the user to enter in there own password
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click


        Try
            If TextBox3.Text & TextBox6.Text & TextBox7.Text & TextBox8.Text > 0 And TextBox4.Text <> "" Then
                'input in these textboxes must be numerical
                ' It adds the passwords which is made by the user himself 
                ListBox1.Items.Add("Application : " & TextBox4.Text & " Password : " & TextBox3.Text & TextBox6.Text & TextBox7.Text & TextBox8.Text & " Time : " & TimeString & " Date : " & DateTime.Today)

            End If
        Catch ex As Exception
            MessageBox.Show("Please provide correct input")


        End Try

我目前正在visual basic上创建一个密码生成器,我已经在用户可以创建自己的密码的部分显示了代码,但是我希望有一些错误处理程序,目前我已经让它工作了所以错误如果在textbox3,6,7,8中输入非数字信息,则会显示该消息。这是有效的,但我想添加两件事 1.如果textboxes3,6,7,8为空,则显示错误消息 2.如果textbox4为空,则显示错误消息,列表框中未打印任何内容但未显示错误消息。

P.S vb的初学者

2 个答案:

答案 0 :(得分:3)

您确实不需要异常处理来进行验证。您可以使用内置方法执行此操作。

例如,下面检查一个名为ExampleTextBox的texbox是否有输入且输入是否为有效整数。

 If String.IsNullOrEmpty(ExampleTextBox.Text) Then
   'no input
 Else
   'has input, check if number
    Dim enteredNumber As Integer

    If Integer.TryParse(ExampleTextBox.Text, enteredNumber) Then
       'input is a valid integer
    Else
       'input is not a valid integer
    End If

End If

答案 1 :(得分:1)

这没有意义:

If TextBox3.Text & TextBox6.Text & TextBox7.Text & TextBox8.Text > 0 And TextBox4.Text <> "" Then

大声说出你想要的东西,一次一件地建立起来。如果TextBox3为空,您希望显示消息:

If TextBox3.Text = String.Empty Then

如果TextBox3或TextBox6为空,您希望显示消息:

If TextBox3.Text = String.Empty OrElse TextBox6.Text = String.Empty Then

Etc等。