一个文本框值大于另一个，避免和蜂鸣音

Question

我在Visual Basic 2010中有两个文本框
Textbox1
Textbox2
现在，我希望如果用户在Textbox2中输入值(整数(，如果Textbox2中的值大于Textbox1，那么这将发出嘟嘟声，并避免他这样做
Example:如果用户在Textbox1中写5，而现在他在Textbox2中写8，所以8比5大，所以我希望Textbox2忽略并发出嘟嘟声
我有这个代码，但它不起作用，如果有人帮助我，请：

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

此代码将符合您的要求，顺便说一句，使用beeb声音提醒用户，会让他/她感到不安。

 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