Vb.net 密码管理器中的错误处理程序停止按钮的运行

在我的Visual Basic密码管理器应用程序中，我可以选择生成一个随机的8字符串长度的整数。这很好

另一个选项是让用户Inputbox（）将每个2位整数分成4个独立的变量，然后将它们作为变量“Final Input”连接在一起

在我开始在错误处理程序中编程，让用户只输入2个字符长的数值之前，这一切都很正常。这导致我的“手动输入”选项按钮无法激活输入框开始输入数字

我们将非常感谢您对代码的任何帮助

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim number1 As Integer = 0
    Dim number2 As Integer = 0
    Dim number3 As Integer = 0
    Dim number4 As Integer = 0
    Dim finalinput As String
    Dim finalgenerated As New Random
    Dim rn1 As New Random
    Dim rn2 As New Random
    Dim rn3 As New Random
    Dim rn4 As New Random
    'asks for sections of final number

    While TextBox1.Text.Length <> 2 And IsNumeric(TextBox1.Text) = True
        TextBox1.Text = InputBox("Please enter first 2 integer number")
        number1 = TextBox1.Text
        MsgBox("number 1 added")
    End While

    While TextBox2.Text.Length <> 2 And IsNumeric(TextBox2.Text) = True
        TextBox2.Text = InputBox("Please enter second 2 integer number")
        number2 = TextBox2.Text
        MsgBox("number 2 added")
    End While

    While TextBox3.Text.Length <> 2 And IsNumeric(TextBox3.Text) = True
        TextBox3.Text = InputBox("Please enter third 2 integer number")
        number3 = TextBox3.Text
        MsgBox("number 3 added")
    End While

    While TextBox4.Text.Length <> 2 And IsNumeric(TextBox4.Text) = True
        TextBox4.Text = InputBox("Please enter fourth 2 integer number")
        number4 = TextBox4.Text
        MsgBox("number 4 added")
    End While
    finalinput = CStr(number1) + CStr(number2) + CStr(number3) + CStr(number4)
    savedcode = finalinput

Private子按钮1\u单击（发送者作为对象，e作为事件参数）处理按钮1。单击
Dim NUMBER 1为整数=0
Dim NUMBER 2为整数=0
尺寸编号3为整数=0
尺寸编号4为整数=0
作为字符串输入的模糊finalinput
最终生成为新随机变量的Dim
Dim rn1作为新的随机变量
Dim rn2作为新的随机变量
Dim rn3作为新的随机变量
Dim rn4作为新的随机变量
'要求提供最终编号的部分
而TextBox1.Text.Length 2和IsNumeric（TextBox1.Text）=True
TextBox1.Text=InputBox（“请输入前2个整数”）
number1=TextBox1.Text
MsgBox（“添加1号”）
结束时
而TextBox2.Text.Length 2和IsNumeric（TextBox2.Text）=True
TextBox2.Text=InputBox（“请输入第二个2整数”）
number2=TextBox2.Text
MsgBox（“添加2号”）
结束时
而TextBox3.Text.Length 2和IsNumeric（TextBox3.Text）=True
TextBox3.Text=InputBox（“请输入第三个2整数”）
number3=TextBox3.Text
MsgBox（“添加3号”）
结束时
而TextBox4.Text.Length 2和IsNumeric（TextBox4.Text）=True
TextBox4.Text=InputBox（“请输入第四个2整数”）
number4=TextBox4.Text
MsgBox（“添加了4号”）
结束时
最终输入=CStr（编号1）+CStr（编号2）+CStr（编号3）+CStr（编号4）
savedcode=finalinput

我不知道如何修复根本不工作的问题，因为这根本不能告诉我任何事情。但可以肯定的是，您不需要5个单独的随机对象。当然，你需要的是表单级别的，而不是点击事件的本地编辑-我的意思是不再打开输入框来输入整数。可能是IsNumeric（TextBox1.Text）=True没有触发，因为当你启动时，文本框中没有任何内容？我还以为你有呢！但不是这样