DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Textbox Validation giving Error

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Oct 2008

Posts: 17

Reputation: En-Motion is an unknown quantity at this point

Solved Threads: 0

En-Motion

Offline

Newbie Poster

Textbox Validation giving Error

Jan 29th, 2009

I'm trying to validate my textbox so that the user must enter a Table Number between 1 and 20. The click event of the exit button checks this and if invalid input, displays a message box. It works for all numbers except 3-9 where it displays the warning even though it is in range. Anyone see where I'm going wrong?

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Public Class Form1
 
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        If (txtTableNo.Text >= "1" And txtTableNo.Text <= "20") Then
            Me.Close()
        Else
            MessageBox.Show("Table Number must be between 1-20", "Warning")
 
        End If
 
    End Sub
 
    Private Sub txtTableNo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTableNo.KeyPress
        If (e.KeyChar < "0" OrElse e.KeyChar > "9") _
            AndAlso e.KeyChar <> ControlChars.Back Then
            e.KeyChar = ""
            Beep()
 
        End If
    End Sub
 
End Class
Public Class Form1

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        If (txtTableNo.Text >= "1" And txtTableNo.Text <= "20") Then
            Me.Close()
        Else
            MessageBox.Show("Table Number must be between 1-20", "Warning")

        End If

    End Sub

    Private Sub txtTableNo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTableNo.KeyPress
        If (e.KeyChar < "0" OrElse e.KeyChar > "9") _
            AndAlso e.KeyChar <> ControlChars.Back Then
            e.KeyChar = ""
            Beep()

        End If
    End Sub

End Class