Data Entry Control

[Christopher Brandy]

Do anyone know how to evaluate each character a user
enters to determine if it is numeric? I don't want to
let the user type in an alpha character. If they hit a
alpha character I want the computer to beep but retain
the numbers they already typed in.

Your help is appreciated

[One Handed Man [ OHM# ]]

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar.IsNumber(e.KeyChar) Then

MsgBox("Numeric")

End If

End Sub

Regards - OHM

Christopher Brandy wrote:

Do anyone know how to evaluate each character a user
enters to determine if it is numeric? I don't want to
let the user type in an alpha character. If they hit a
alpha character I want the computer to beep but retain
the numbers they already typed in.

Your help is appreciated

--
Best Regards - OHM

O_H_M{at}BTInternet{dot}com

[Christopher Brandy]

What if it's not numeric? How do I not add that
character to the textbox. In VB6, I just set the key
code to 0.

-----Original Message-----
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar.IsNumber(e.KeyChar) Then

MsgBox("Numeric")

End If

End Sub

Regards - OHM

Christopher Brandy wrote:

Do anyone know how to evaluate each character a user
enters to determine if it is numeric? I don't want to
let the user type in an alpha character. If they hit a
alpha character I want the computer to beep but retain
the numbers they already typed in.

Your help is appreciated

--
Best Regards - OHM

O_H_M{at}BTInternet{dot}com
.

[One Handed Man [ OHM# ]]

Else
e.Handled=True

End If

Regards - OHM
Christopher Brandy wrote:

What if it's not numeric? How do I not add that
character to the textbox. In VB6, I just set the key
code to 0.

-----Original Message-----
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar.IsNumber(e.KeyChar) Then

MsgBox("Numeric")

End If

End Sub

Regards - OHM

Christopher Brandy wrote:

Do anyone know how to evaluate each character a user
enters to determine if it is numeric? I don't want to
let the user type in an alpha character. If they hit a
alpha character I want the computer to beep but retain
the numbers they already typed in.

Your help is appreciated

--
Best Regards - OHM

O_H_M{at}BTInternet{dot}com
.

--
Best Regards - OHM

O_H_M{at}BTInternet{dot}com

[Chris]

I'm afraid this does not work. The alpha character is
still added to the textbox. Any other suggestions?

-----Original Message-----
Else
e.Handled=True

End If

Regards - OHM
Christopher Brandy wrote:

What if it's not numeric? How do I not add that
character to the textbox. In VB6, I just set the key
code to 0.

-----Original Message-----
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar.IsNumber(e.KeyChar) Then

MsgBox("Numeric")

End If

End Sub

Regards - OHM

Christopher Brandy wrote:
Do anyone know how to evaluate each character a user
enters to determine if it is numeric? I don't want to let the user type in an alpha character. If they hit a alpha character I want the computer to beep but retain the numbers they already typed in.

Your help is appreciated

--
Best Regards - OHM

O_H_M{at}BTInternet{dot}com
.

--
Best Regards - OHM

O_H_M{at}BTInternet{dot}com
.

[One Handed Man [ OHM# ]]

It does work. Look at this NOTE ( KEY PRESS EVENT ). I Just tested it

OHM

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

If Char.IsNumber(e.KeyChar) Then

'Do nothing

Else

e.Handled = True

End If

End Sub



Chris wrote:

I'm afraid this does not work. The alpha character is
still added to the textbox. Any other suggestions?

-----Original Message-----
Else
e.Handled=True

End If

Regards - OHM
Christopher Brandy wrote:

What if it's not numeric? How do I not add that
character to the textbox. In VB6, I just set the key
code to 0.

-----Original Message-----
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar.IsNumber(e.KeyChar) Then

MsgBox("Numeric")

End If

End Sub

Regards - OHM

Christopher Brandy wrote:
> Do anyone know how to evaluate each character a user
> enters to determine if it is numeric? I don't want to
> let the user type in an alpha character. If they hit a
> alpha character I want the computer to beep but retain
> the numbers they already typed in.
>
> Your help is appreciated

--
Best Regards - OHM

O_H_M{at}BTInternet{dot}com
.

--
Best Regards - OHM

O_H_M{at}BTInternet{dot}com
.

--
Best Regards - OHM

O_H_M{at}BTInternet{dot}com

[Chris]

OK, Call me crazy. It works. Sorry and thanks a bunch.

-----Original Message-----
I'm afraid this does not work. The alpha character is
still added to the textbox. Any other suggestions?

-----Original Message-----
Else
e.Handled=True

End If

Regards - OHM
Christopher Brandy wrote:

What if it's not numeric? How do I not add that
character to the textbox. In VB6, I just set the key
code to 0.

-----Original Message-----
Private Sub TextBox1_KeyPress(ByVal sender As

Object,

ByVal e As System.Windows.Forms.KeyPressEventArgs) HandlesTextBox1.KeyPress If e.KeyChar.IsNumber(e.KeyChar) Then

MsgBox("Numeric")

End If

End Sub

Regards - OHM

Christopher Brandy wrote:
> Do anyone know how to evaluate each character a user
> enters to determine if it is numeric? I don't wantto> let the user type in an alpha character. If theyhit a> alpha character I want the computer to beep butretain> the numbers they already typed in.
>
> Your help is appreciated

--
Best Regards - OHM

O_H_M{at}BTInternet{dot}com
.

--
Best Regards - OHM

O_H_M{at}BTInternet{dot}com
.

.