0


我在 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
4

1 回答 1

0

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

 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
于 2013-04-11T17:16:03.930 回答