Numeric Textbox Code

[Keith]

I apologize for those of you who think I'm posting on the same topic. It is not that I don't appreciate all of your comments - and I'm definitely reading them all - but I think I have a differing opinion of how I want to handle the 'user experience' in the application I'm creating. While I know I could allow the user to enter in number and alpha text - in a text box - and then tell them when the execuate a command "This is not numeric data", I would rather not allow them to enter alpha data - to begin with.

I've posted the below code from a page someone suggested. It is from a William Ryan. I have used it - it does work - but I run into two problems. One, the user cannot use the backspace key and two, it allows someone to enter another "." - decimal. The code author realizes this and says, "The use above will allow all valid numbers as well as decimals. It wouldn't be very difficult to expand upon this to verify that you don't have two decimal in the number, allow for currency characters etc." However - to be quite honest - I don't follow what the code is even doing. Can someone clarify what it is doing and how one would modify it to allow for only one decimal? (Bernie Yaeger I did read your post as well - if you could let me know how I could download your code/control - I would love to see it) Please see William's code below (link: http://www.knowdotnet.com/articles/n...textboxes.html

Private Overloads Sub TextBox1_TextCh anged(ByVal sender As System.Object, ByVal e As System.Windows. Forms.KeyPressE ventArgs) Handles TextBox1.KeyPre s

Dim isKey As Boolean = e.KeyChar.IsDig it(e.KeyChar
Dim isDecimal As Boolean = e.KeyChar.ToStr ing = ".
If Not isKey And Not isDecimal The
e.Handled = Tru
End I
End Sub

[Bernie Yaeger]

Hi Keith,

I've read your post. I'm a bit busy now but I will either .zip the code to
you or contact you and get it to you in another manner. I will get this
done hopefully sometime this weekend, Mon the latest. I will try to include
a doc explaining whatever might need explanation. I actually have 2
controls, as I may have told you - one for integers and one for currency.

But - I need to have an email address or an ftp location to send it to -
please get back to me with this at your soonest convenience. You can email
me directly at be*****@cherwel linc.com.

Bernie

"Keith" <an*******@disc ussions.microso ft.com> wrote in message
news:BA******** *************** ***********@mic rosoft.com...

I apologize for those of you who think I'm posting on the same topic. It is not that I don't appreciate all of your comments - and I'm definitely
reading them all - but I think I have a differing opinion of how I want to
handle the 'user experience' in the application I'm creating. While I know
I could allow the user to enter in number and alpha text - in a text box -
and then tell them when the execuate a command "This is not numeric data", I
would rather not allow them to enter alpha data - to begin with.
I've posted the below code from a page someone suggested. It is from a William Ryan. I have used it - it does work - but I run into two problems.
One, the user cannot use the backspace key and two, it allows someone to
enter another "." - decimal. The code author realizes this and says, "The
use above will allow all valid numbers as well as decimals. It wouldn't be
very difficult to expand upon this to verify that you don't have two decimal
in the number, allow for currency characters etc." However - to be quite
honest - I don't follow what the code is even doing. Can someone clarify
what it is doing and how one would modify it to allow for only one decimal?
(Bernie Yaeger I did read your post as well - if you could let me know how I
could download your code/control - I would love to see it) Please see
William's code below (link:
http://www.knowdotnet.com/articles/n...textboxes.html)
Private Overloads Sub TextBox1_TextCh anged(ByVal sender As System.Object, ByVal e As System.Windows. Forms.KeyPressE ventArgs) Handles TextBox1.KeyPre ss
Dim isKey As Boolean = e.KeyChar.IsDig it(e.KeyChar)
Dim isDecimal As Boolean = e.KeyChar.ToStr ing = "."
If Not isKey And Not isDecimal Then
e.Handled = True
End If
End Sub

[Herfried K. Wagner [MVP]]

* "=?Utf-8?B?S2VpdGg=?=" <an*******@disc ussions.microso ft.com> scripsit:

I've posted the below code from a page someone suggested. It is from
a William Ryan. I have used it - it does work - but I run into two
problems. One, the user cannot use the backspace key and two, it allows
someone to enter another "." - decimal.

There is a 3rd problem: It doesn't allow me to enter a number in German
number format when I run the app on a German language system (for
example, "12,3". And it prevents me from entering a number in hex or
octal format.

What if the user already entered a "." and now wants to move it to
another position inside the number he has typed into the textbox? By
forbidding the user to enter a 2nd ".", editing will be very hard. The
user will have to delete the ".", then move to another position and
enter the "." there.

Just my 2 Euro cents...

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Cor Ligthert]

Hi Keith,

When you was stayed in the original thread and told there what where the
problems, than I could have given you this sample I made already some days
ago. It includes the methode which Herfried wants as well, I think this one
is one of the nicest for the customer.

I hope this helps?

Cor

\\\
Private Sub Form1_Load(ByVa l sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Me.TextBox1.Max Length = 10 'or whatever you want
End Sub
Private Sub textbox1_KeyUp( ByVal sender As Object, _
ByVal e As System.Windows. Forms.KeyEventA rgs) Handles textbox1.KeyUp
If e.KeyValue <> 8 Then
If Not IsNumeric(TextB ox1.Text) Then
MessageBox.Show ("Only numeric is allowed")
TextBox1.Select ionStart = TextBox1.Text.L ength - 1
TextBox1.Select ionLength = 1
End If
End If
End Sub
Private Sub TextBox1_Valida ting(ByVal sender _
As Object, ByVal e As System.Componen tModel.CancelEv entArgs) _
Handles TextBox1.Valida ting
If Not IsNumeric(TextB ox1.Text) Then
MessageBox.Show ("There was an error pasting")
TextBox1.Focus( )
End If
End Sub
///

[yEaH rIgHt]

Try this Keith:

Private Sub TextBox3_KeyPre ss(ByVal sender As Object, ByVal e As
System.Windows. Forms.KeyPressE ventArgs) Handles TextBox3.KeyPre ss
If e.KeyChar.IsDig it(e.KeyChar) OrElse e.KeyChar = Chr(Keys.Back)
Then Exit Sub
If e.KeyChar.IsPun ctuation(e.KeyC har) AndAlso
TextBox3.Text.I ndexOf(".") = -1 Then Exit Sub
e.Handled = True

End Sub
"Keith" <an*******@disc ussions.microso ft.com> wrote in message
news:BA******** *************** ***********@mic rosoft.com...

I apologize for those of you who think I'm posting on the same topic. It is not that I don't appreciate all of your comments - and I'm definitely
reading them all - but I think I have a differing opinion of how I want to
handle the 'user experience' in the application I'm creating. While I know
I could allow the user to enter in number and alpha text - in a text box -
and then tell them when the execuate a command "This is not numeric data", I
would rather not allow them to enter alpha data - to begin with.
I've posted the below code from a page someone suggested. It is from a William Ryan. I have used it - it does work - but I run into two problems.
One, the user cannot use the backspace key and two, it allows someone to
enter another "." - decimal. The code author realizes this and says, "The
use above will allow all valid numbers as well as decimals. It wouldn't be
very difficult to expand upon this to verify that you don't have two decimal
in the number, allow for currency characters etc." However - to be quite
honest - I don't follow what the code is even doing. Can someone clarify
what it is doing and how one would modify it to allow for only one decimal?
(Bernie Yaeger I did read your post as well - if you could let me know how I
could download your code/control - I would love to see it) Please see
William's code below (link:
http://www.knowdotnet.com/articles/n...textboxes.html)
Private Overloads Sub TextBox1_TextCh anged(ByVal sender As System.Object, ByVal e As System.Windows. Forms.KeyPressE ventArgs) Handles TextBox1.KeyPre ss
Dim isKey As Boolean = e.KeyChar.IsDig it(e.KeyChar)
Dim isDecimal As Boolean = e.KeyChar.ToStr ing = "."
If Not isKey And Not isDecimal Then
e.Handled = True
End If
End Sub

[yEaH rIgHt]

Oops, mistake. Now it will work

Private Sub TextBox3_KeyPre ss(ByVal sender As Object, ByVal e As
System.Windows. Forms.KeyPressE ventArgs) Handles TextBox3.KeyPre ss
If e.KeyChar.IsDig it(e.KeyChar) OrElse e.KeyChar = Chr(Keys.Back)
Then Exit Sub
If e.KeyChar = "."c AndAlso TextBox3.Text.I ndexOf(".") = -1 Then
Exit Sub

e.Handled = True

End Sub


"yEaH rIgHt" <nospam@haha> wrote in message
news:10******** *****@corp.supe rnews.com...

Try this Keith:

Private Sub TextBox3_KeyPre ss(ByVal sender As Object, ByVal e As
System.Windows. Forms.KeyPressE ventArgs) Handles TextBox3.KeyPre ss
If e.KeyChar.IsDig it(e.KeyChar) OrElse e.KeyChar = Chr(Keys.Back)
Then Exit Sub
If e.KeyChar.IsPun ctuation(e.KeyC har) AndAlso
TextBox3.Text.I ndexOf(".") = -1 Then Exit Sub
e.Handled = True

End Sub
"Keith" <an*******@disc ussions.microso ft.com> wrote in message
news:BA******** *************** ***********@mic rosoft.com...

I apologize for those of you who think I'm posting on the same topic. It

is not that I don't appreciate all of your comments - and I'm definitely
reading them all - but I think I have a differing opinion of how I want to
handle the 'user experience' in the application I'm creating. While I know I could allow the user to enter in number and alpha text - in a text box -
and then tell them when the execuate a command "This is not numeric data", I would rather not allow them to enter alpha data - to begin with.

I've posted the below code from a page someone suggested. It is from a William Ryan. I have used it - it does work - but I run into two

problems. One, the user cannot use the backspace key and two, it allows someone to
enter another "." - decimal. The code author realizes this and says, "The
use above will allow all valid numbers as well as decimals. It wouldn't be very difficult to expand upon this to verify that you don't have two decimal in the number, allow for currency characters etc." However - to be quite
honest - I don't follow what the code is even doing. Can someone clarify
what it is doing and how one would modify it to allow for only one decimal? (Bernie Yaeger I did read your post as well - if you could let me know how I could download your code/control - I would love to see it) Please see
William's code below (link:
http://www.knowdotnet.com/articles/n...textboxes.html)

Private Overloads Sub TextBox1_TextCh anged(ByVal sender As

System.Object, ByVal e As System.Windows. Forms.KeyPressE ventArgs) Handles

TextBox1.KeyPre ss
Dim isKey As Boolean = e.KeyChar.IsDig it(e.KeyChar)
Dim isDecimal As Boolean = e.KeyChar.ToStr ing = "."
If Not isKey And Not isDecimal Then
e.Handled = True
End If
End Sub

[Herfried K. Wagner [MVP]]

* "Cor Ligthert" <no**********@p lanet.nl> scripsit:

ago. It includes the methode which Herfried wants as well, I think this one
is one of the nicest for the customer. [...] If Not IsNumeric(TextB ox1.Text) Then
MessageBox.Show ("There was an error pasting")
TextBox1.Focus( )

I do not like messageboxes. This will prevent the user from leaving the
control if he/she is not able to enter valid data.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Bernie Yaeger]

Hi Herfreid,

I can't believe you're sticking to your position. First, you know very well
that you can program around the minor problems you mention. Second, if I
want you to fill out a form in black ink, I give you the form and a black
pen. If I give you a red pen as well and you use it, do I tell you at the
end that the form was to be filled out in black ink and ask you to fill it
out again?

Bernie

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:el******** ******@tk2msftn gp13.phx.gbl...

* "=?Utf-8?B?S2VpdGg=?=" <an*******@disc ussions.microso ft.com> scripsit:

I've posted the below code from a page someone suggested. It is from
a William Ryan. I have used it - it does work - but I run into two
problems. One, the user cannot use the backspace key and two, it allows
someone to enter another "." - decimal.

There is a 3rd problem: It doesn't allow me to enter a number in German
number format when I run the app on a German language system (for
example, "12,3". And it prevents me from entering a number in hex or
octal format.

What if the user already entered a "." and now wants to move it to
another position inside the number he has typed into the textbox? By
forbidding the user to enter a 2nd ".", editing will be very hard. The
user will have to delete the ".", then move to another position and
enter the "." there.

Just my 2 Euro cents...

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Cor Ligthert]

Hi Keith,

I became crazy from that Herfried (is not true), in the sample is a problem
when you set it to blank or would leave the program with an error. I changed
that.

Remember it is just a sample, how you do your error is your sake, you can
use by instance an errorprovider for that, but that would make the sample
less simple to show, while this one becomes already more and more difficult
to show

(statified with the text of the errroprovider now Herfried?)

Cor
\\\\
Private Sub Form1_Load(ByVa l sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Me.TextBox1.Max Length = 10
End Sub
Private Sub textbox1_KeyUp( ByVal sender As Object, _
ByVal e As System.Windows. Forms.KeyEventA rgs) Handles textbox1.KeyUp
If e.KeyValue <> 8 Then
If Not IsNumeric(TextB ox1.Text) Then
If TextBox1.Text.L ength > 0 Then
MessageBox.Show ("Only 1 to 10 is allowed")

TextBox1.Select ionStart = TextBox1.Text.L ength - 1
TextBox1.Select ionLength = 1
End If

End If
End If
End Sub
Private Sub TextBox1_Valida ting(ByVal sender _
As Object, ByVal e As System.Componen tModel.CancelEv entArgs) _
Handles TextBox1.Valida ting
If TextBox1.Text.L ength > 0 Then
If Not IsNumeric(TextB ox1.Text) Then
MessageBox.Show ("There was an error pasting")
TextBox1.Focus( )
e.Cancel = True
End If
End If
End Sub
////

[Herfried K. Wagner [MVP]]

* "Bernie Yaeger" <be*****@cherwe llinc.com> scripsit:

I can't believe you're sticking to your position. First, you know very well
that you can program around the minor problems you mention. Second, if I
want you to fill out a form in black ink, I give you the form and a black
pen. If I give you a red pen as well and you use it, do I tell you at the
end that the form was to be filled out in black ink and ask you to fill it
out again?

Paper forms are very different from forms on the computer. You can
provide context-sensitive help for the control and display information
about how to fill in the values there. In an application, we used an
errorprovider with an icon showing a "?" on a blue filled square that
displayed information on what to will in. If the input was not valid,
we showed an errorprovider.

I didn't say that there should not be any guidance at all. There should
be hints, and in some special cases custom controls make sense (for
example, DateTimePicker) . But even this control has its problems and
limitations. What I like is if the control reformats the input after
successfully validating its contents, but even that can be annoying.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>