vb.net - 一个文本框值大于另一个，避免和哔

Question

我在 Visual Basic 2010 中有两个文本框
Textbox1
Textbox2
现在我希望如果用户在 Textbox2 中输入值（整数），如果值Textbox2大于Textbox1，那么这将发出哔声并且也避免他这样做
Example:如果用户5在 Textbox1 中写入并且现在他正在写信，8所以Textbox2我想用哔哔声忽略它。 我有这段代码，但这不起作用，如果有人帮助我，请：85Textbox2

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress

    Dim valx1 As Integer
    Dim valx2 As Integer

    valx1 = (Val(TextBox1.Text))
    valx2 = (Val(TextBox2.Text))


    If (valx1) > (valx2) Then
        Beep()
        e.Handled = True
    End If

End Sub

Answer 1

此代码将满足您的要求，顺便说一下使用哔哔声提醒用户，会让他/她感到不安。

 Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress

   if val(TextBox1.Text.trim) > val(TextBox2.Text.trim & e.keychar) then
          Beep()
          e.Handled = True
    end if

End Sub