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

Visual Basic 4 / 5 / 6 RSS

How do i test if a user enter a letter in a textbox?

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

•

Join Date: May 2006

Posts: 10

Reputation: janeane_tho12n is an unknown quantity at this point

Solved Threads: 0

janeane_tho12n janeane_tho12n is offline

Offline

Newbie Poster

How do i test if a user enter a letter in a textbox?

May 8th, 2006

the user should enter a digit instead??? what shall i use???

•

Join Date: Apr 2005

Posts: 75

Reputation: purplegerbil is an unknown quantity at this point

Solved Threads: 6

purplegerbil purplegerbil is offline

Offline

Junior Poster in Training

Re: How do i test if a user enter a letter in a textbox?

May 8th, 2006

Try this:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
    Select Case KeyAscii
    Case 48 To 57
        ' These are acceptable keystrokes
    Case Else
        ' These are unacceptable, and should be ignored
        KeyAscii = 0
    End Select
 
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii
    Case 48 To 57
        ' These are acceptable keystrokes
    Case Else
        ' These are unacceptable, and should be ignored
        KeyAscii = 0
    End Select
    
End Sub

The numbers 48 to 57 are the ascii values of the numbers 0 to 9
more characters can be added.

i.e. 12,48 to 57,65,69 etc

Either single numbers or groups.

Pg

•

Join Date: May 2006

Posts: 10

Reputation: janeane_tho12n is an unknown quantity at this point

Solved Threads: 0

janeane_tho12n janeane_tho12n is offline

Offline

Newbie Poster

Re: How do i test if a user enter a letter in a textbox?

May 8th, 2006

it worked. thanks but when i press the backspace key it prompted me an error msg. why is that so?

•

Join Date: Dec 2004

Posts: 2,413

Reputation: Comatose is a jewel in the rough

Solved Threads: 211

Comatose

Offline

Taboo Programmer

Re: How do i test if a user enter a letter in a textbox?

May 8th, 2006

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case 48 To 57
        ' These are acceptable keystrokes
    Case 8
 
    Case Else
        ' These are unacceptable, and should be ignored
        KeyAscii = 0
    End Select
 
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case 48 To 57
        ' These are acceptable keystrokes
    Case 8
        
    Case Else
        ' These are unacceptable, and should be ignored
        KeyAscii = 0
    End Select
    
End Sub