Question

我在Visual Basic 2010中有两个文本框 Textbox1
Textbox2
现在我希望如果用户在Textbox2中输入值（整数），如果Textbox2中的值大于Textbox1，那么这将发出一声嘟嘟声并且也避免他这样做 Example:如果用户在Textbox1中写5，现在他正在8中写Textbox2，因为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

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

 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

一个文本框值大于其他，避免和哔哔声

1 个答案: