allowing just numeric value in my textbox

[Reny]

can any one tell how can i restrict my user to type just numeric character
in the textbox.I am using VS.NET 2003 (VB.NET)

[Lars Graeve]

Hi

I would use an own text box like this one:

Public Class NumericTextBox
Inherits TextBox

Private allowedChars As New Collections.Gen eric.List(Of Char)(Chr(13) &
Chr(27) & Chr(8) & "1234567890 .-".ToCharArr ay)

Private Sub NumericTextBox_ KeyPress(ByVal sender As Object, ByVal e As
System.Windows. Forms.KeyPressE ventArgs) Handles Me.KeyPress

' Allow charactes only, which are in a list
If Not allowedChars.Co ntains(e.KeyCha r) Then e.KeyChar = Nothing

End Sub

Private Sub NumericTextBox_ Validating(ByVa l sender As Object, ByVal e As
System.Componen tModel.CancelEv entArgs) Handles Me.Validating

e.Cancel = Not IsNumeric(Me.Te xt)

End Sub

End Class
Of course you can catch those two events of a standard text box, too, and
handle them the same way. But putting it into a inherited class brings the
advantage to be able to used this function a multiple time. Maybe you make
even a user control out of it.

Lars
"Reny" <re**@bxtech.co mschrieb im Newsbeitrag
news:ey******** ******@TK2MSFTN GP05.phx.gbl...

can any one tell how can i restrict my user to type just numeric character
in the textbox.I am using VS.NET 2003 (VB.NET)

[YardDancer]

Hi Rene,

The best approach in my opinion is to restrict user entry by using the
keypress event of the textbox

Example. that only allows digits 1 to 0 and backspace key entries.
Private Sub txtPhoneNumber_ KeyPress(ByVal sender As Object, ByVal e As
System.Windows. Forms.KeyPressE ventArgs) _ Handles txtPhoneNumber. KeyPress
Select Case Asc(e.KeyChar)
Case 8, 48 To 57 ' all chars from 0 to 9 and backspace
e.Handled = False

Case Else
e.Handled = True
End Select
End Sub

you could look up the ASCII codes for decimal, and commas if you you like.
Yard Dancer

"Reny" <re**@bxtech.co mwrote in message
news:ey******** ******@TK2MSFTN GP05.phx.gbl...

can any one tell how can i restrict my user to type just numeric character
in the textbox.I am using VS.NET 2003 (VB.NET)

[Dennis]

The input should still be checked when the control loses focus to be sure the
user has not "cut and pasted" something other than numeric in the text box.
--
Dennis in Houston
"YardDancer " wrote:

Hi Rene,

The best approach in my opinion is to restrict user entry by using the
keypress event of the textbox

Example. that only allows digits 1 to 0 and backspace key entries.
Private Sub txtPhoneNumber_ KeyPress(ByVal sender As Object, ByVal e As
System.Windows. Forms.KeyPressE ventArgs) _ Handles txtPhoneNumber. KeyPress
Select Case Asc(e.KeyChar)
Case 8, 48 To 57 ' all chars from 0 to 9 and backspace
e.Handled = False

Case Else
e.Handled = True
End Select
End Sub

you could look up the ASCII codes for decimal, and commas if you you like.
Yard Dancer

"Reny" <re**@bxtech.co mwrote in message
news:ey******** ******@TK2MSFTN GP05.phx.gbl...

can any one tell how can i restrict my user to type just numeric character
in the textbox.I am using VS.NET 2003 (VB.NET)

[Kerry Moorman]

Reny,

I think the most user-friendly way is to use the textbox's Validating event.

In the Validating event you can use VB's IsNumeric function to test the
input. If the input is not numeric you can use a message box or an error
provider to inform the user and not allow them to leave the textbox without
supplying a numeric value.

Kerry Moorman
"Reny" wrote:

can any one tell how can i restrict my user to type just numeric character
in the textbox.I am using VS.NET 2003 (VB.NET)

[Claes Bergefall]

Public Class NumericTextBox
Inherits TextBox

Private Const ES_NUMBER As Integer = &H2000

Protected Overrides ReadOnly Property CreateParams() As
System.Windows. Forms.CreatePar ams
Get
Dim params As CreateParams = MyBase.CreatePa rams
params.Style = params.Style Or ES_NUMBER
Return params
End Get
End Property

Protected Overrides Function ProcessCmdKey(B yRef msg As
System.Windows. Forms.Message, ByVal keyData As System.Windows. Forms.Keys) As
Boolean
'Need to prevent pasting of non-numeric characters
If keyData = (Keys.Shift Or Keys.Insert) OrElse keyData =
(Keys.Control Or Keys.V) Then
Dim data As IDataObject = Clipboard.GetDa taObject
If data Is Nothing Then
Return MyBase.ProcessC mdKey(msg, keyData)
Else
Dim text As String =
CStr(data.GetDa ta(DataFormats. StringFormat, True))
If text = String.Empty Then
Return MyBase.ProcessC mdKey(msg, keyData)
Else
For Each ch As Char In text.ToCharArra y
If Not Char.IsNumber(c h) Then
Return True
End If
Next
Return MyBase.ProcessC mdKey(msg, keyData)
End If
End If
Else
Return MyBase.ProcessC mdKey(msg, keyData)
End If
End Function
End Class

/claes

"Reny" <re**@bxtech.co mwrote in message
news:ey******** ******@TK2MSFTN GP05.phx.gbl...

can any one tell how can i restrict my user to type just numeric character
in the textbox.I am using VS.NET 2003 (VB.NET)