Adding a input mask

[Crirus]

I need to allow only numbers into a text box

--
Cheers,
Crirus

------------------------------
If work were a good thing, the boss would take it all from you

------------------------------

[One Handed Man [ OHM# ]]

In the KeyPress EventDim ch As String

ch = Chr$(KeyAscii)
If Not (ch >= "0" And ch <= "9") Then
' Cancel
KeyAscii = 0
End IfRegards - OHM#Crirus wrote:

I need to allow only numbers into a text box

Regards - OHM# On**********@BTInternet.com

[Armin Zingler]

"One Handed Man [ OHM# ]" <On**********@BTInternet.com> schrieb

In the KeyPress EventDim ch As String

ch = Chr$(KeyAscii)
If Not (ch >= "0" And ch <= "9") Then
' Cancel
KeyAscii = 0
End IfRegards - OHM#Crirus wrote:

I need to allow only numbers into a text box

Regards - OHM# On**********@BTInternet.com

How to suppress inserting chars from the clipboard? ;-)
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[One Handed Man [ OHM# ]]

Hey, I cant write everything from scratch each time, I am after all One
Handed Man.

;-)

Regards - OHM#
Armin Zingler wrote:

"One Handed Man [ OHM# ]" <On**********@BTInternet.com> schrieb

In the KeyPress EventDim ch As String

ch = Chr$(KeyAscii)
If Not (ch >= "0" And ch <= "9") Then
' Cancel
KeyAscii = 0
End IfRegards - OHM#Crirus wrote:

I need to allow only numbers into a text box

Regards - OHM# On**********@BTInternet.com

How to suppress inserting chars from the clipboard? ;-)

Regards - OHM# On**********@BTInternet.com

[Crirus]

I sow some sample of input mask so the text box dont consider any character
that dont fit the mask..but lost it

--
Cheers,
Crirus

------------------------------
If work were a good thing, the boss would take it all from you

------------------------------

"One Handed Man [ OHM# ]" <On**********@BTInternet.com> wrote in message
news:%2****************@TK2MSFTNGP11.phx.gbl...

Hey, I cant write everything from scratch each time, I am after all One
Handed Man.

;-)

Regards - OHM#
Armin Zingler wrote:

"One Handed Man [ OHM# ]" <On**********@BTInternet.com> schrieb

In the KeyPress EventDim ch As String

ch = Chr$(KeyAscii)
If Not (ch >= "0" And ch <= "9") Then
' Cancel
KeyAscii = 0
End IfRegards - OHM#Crirus wrote:
I need to allow only numbers into a text box

Regards - OHM# On**********@BTInternet.com

How to suppress inserting chars from the clipboard? ;-)

Regards - OHM# On**********@BTInternet.com

[Armin Zingler]

"One Handed Man [ OHM# ]" <On**********@BTInternet.com> schrieb

Hey, I cant write everything from scratch each time, I am after all
One Handed Man.

;-)

Yes, I also wondered where it has been asked and answered the last time. :)
--
Armin

[Cor]

Hi Armin,

How to suppress inserting chars from the clipboard? ;-) (saw it, but also

know it)

That you can do with a isnumeric and a leave.

I hope this helps you?

:-)))))

Cor

[Crirus]

Any straight answer?
I need another inputs restrictions too, not only numeric

--
Cheers,
Crirus

------------------------------
If work were a good thing, the boss would take it all from you

------------------------------

"Crirus" <Cr****@datagroup.ro> wrote in message
news:e1**************@TK2MSFTNGP12.phx.gbl...

I need to allow only numbers into a text box

--
Cheers,
Crirus

------------------------------
If work were a good thing, the boss would take it all from you

------------------------------

[Cor]

Hi Crirus,

As addition from the sample of OHM this sample.
And watch that you add with the sample of OHM the allowance of the backspace
08 keyvalue other wise the user cannot make corrections)

You can in both samples of course use any character you want to exclude.
Although this is a value sample.

Cor
\\\
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.textbox1.MaxLength = 2
End Sub
Private Sub textbox1_KeyUp(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) Handles textbox1.KeyUp
If e.KeyValue <> 8 Then
If Not IsNumeric(textbox1.Text) OrElse CInt(textbox1.Text) = 0 _
OrElse CInt(textbox1.Text) > 10 Then
MessageBox.Show("Only 1 to 10 is allowed")
textbox1.Focus()
End If
End If
End Sub
///

[One Handed Man [ OHM# ]]

I think its time we got paid for this Cor, he's probably earning $150 per
hour and they think he's writing it all himself !!!

;-)

Regards - OHM#

Cor wrote:

Hi Crirus,

As addition from the sample of OHM this sample.
And watch that you add with the sample of OHM the allowance of the
backspace 08 keyvalue other wise the user cannot make corrections)

You can in both samples of course use any character you want to
exclude. Although this is a value sample.

Cor
\\\
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.textbox1.MaxLength = 2
End Sub
Private Sub textbox1_KeyUp(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) Handles textbox1.KeyUp
If e.KeyValue <> 8 Then
If Not IsNumeric(textbox1.Text) OrElse CInt(textbox1.Text)
= 0 _ OrElse CInt(textbox1.Text) > 10 Then
MessageBox.Show("Only 1 to 10 is allowed")
textbox1.Focus()
End If
End If
End Sub
///

Regards - OHM# On**********@BTInternet.com

[Armin Zingler]

"Crirus" <Cr****@datagroup.ro> schrieb

Any straight answer?
I need another inputs restrictions too, not only numeric

I would not restrict the input. I'd check the correct format in the validate
event (or wherever you need the value latest), usually by trying to convert
it to the destination data type (e.g. Decimal.Parse) and catching thrown
exceptions, or by calling a function like Double.TryParse.
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Crirus]

LOL

First, I earn 5$ per hour. (EEST, you know)
Second this is my particular project for a Internet Tick Based game that you
probably whould like to play it for free sometime in the future :)

--
Cheers,
Crirus

------------------------------
If work were a good thing, the boss would take it all from you

------------------------------

"One Handed Man [ OHM# ]" <On**********@BTInternet.com> wrote in message
news:%2****************@tk2msftngp13.phx.gbl...

I think its time we got paid for this Cor, he's probably earning $150 per
hour and they think he's writing it all himself !!!

;-)

Regards - OHM#

Cor wrote:

Hi Crirus,

As addition from the sample of OHM this sample.
And watch that you add with the sample of OHM the allowance of the
backspace 08 keyvalue other wise the user cannot make corrections)

You can in both samples of course use any character you want to
exclude. Although this is a value sample.

Cor
\\\
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.textbox1.MaxLength = 2
End Sub
Private Sub textbox1_KeyUp(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) Handles textbox1.KeyUp
If e.KeyValue <> 8 Then
If Not IsNumeric(textbox1.Text) OrElse CInt(textbox1.Text)
= 0 _ OrElse CInt(textbox1.Text) > 10 Then
MessageBox.Show("Only 1 to 10 is allowed")
textbox1.Focus()
End If
End If
End Sub
///

Regards - OHM# On**********@BTInternet.com

[Crirus]

And I know how to restrict with code the input, but I cant remember one
sample tat use a string as a mask and I'm crazy about using that way

--
Cheers,
Crirus

------------------------------
If work were a good thing, the boss would take it all from you

------------------------------

"One Handed Man [ OHM# ]" <On**********@BTInternet.com> wrote in message
news:%2****************@tk2msftngp13.phx.gbl...

I think its time we got paid for this Cor, he's probably earning $150 per
hour and they think he's writing it all himself !!!

;-)

Regards - OHM#

Cor wrote:

Hi Crirus,

As addition from the sample of OHM this sample.
And watch that you add with the sample of OHM the allowance of the
backspace 08 keyvalue other wise the user cannot make corrections)

You can in both samples of course use any character you want to
exclude. Although this is a value sample.

Cor
\\\
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.textbox1.MaxLength = 2
End Sub
Private Sub textbox1_KeyUp(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) Handles textbox1.KeyUp
If e.KeyValue <> 8 Then
If Not IsNumeric(textbox1.Text) OrElse CInt(textbox1.Text)
= 0 _ OrElse CInt(textbox1.Text) > 10 Then
MessageBox.Show("Only 1 to 10 is allowed")
textbox1.Focus()
End If
End If
End Sub
///

Regards - OHM# On**********@BTInternet.com

[Cor]

Hi Crirus,

I think you can do that with the sample I did send you.

When I say textbox > 10 you also can check it against any regular
expression in my opinion.

But as far as I know there is no standard property that does that for you
(and when you make a custom textbox you do the same again).

Cor

[Crirus]

Right now I found MaskedEdit control ocx on google... there is one in NET?

--
Cheers,
Crirus

------------------------------
If work were a good thing, the boss would take it all from you

------------------------------

"Cor" <no*@non.com> wrote in message
news:uq**************@TK2MSFTNGP12.phx.gbl...

Hi Crirus,

I think you can do that with the sample I did send you.

When I say textbox > 10 you also can check it against any regular
expression in my opinion.

But as far as I know there is no standard property that does that for you
(and when you make a custom textbox you do the same again).

Cor

[Chris Dunaway]

On Fri, 12 Dec 2003 14:12:30 +0200, Crirus wrote:

Right now I found MaskedEdit control ocx on google... there is one in NET?

If you download the VB.Net Resource kit, it includes ComponentOne suite of
controls and the textbox in that has a good masked edit property.
--
Chris

To send me an E-mail, remove the underscores and lunchmeat from my E-Mail
address.