text box validation

[Lal]

Hi,

Any method to validate on the text box; the entering data is numeric or
text
I want to type only numeric data on the text box


Regards
K R Lal

[Qwert]

Run following function in _TextChanged event.
Event:
------
Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

TextBoxNumericOnly(Me.TextBox1, e)

End Sub
Function:
---------
Private Sub TextBoxNumericOnly(ByRef objTextBox As
System.Windows.Forms.TextBox, ByRef e As
System.Windows.Forms.KeyPressEventArgs, Optional ByVal blnAllowNegative As
Boolean = False, Optional ByVal blnAllowDecimal As Boolean = False)

Try
With objTextBox
e.Handled = True
Select Case Convert.ToInt32(e.KeyChar)
Case 48 To 57, 8, 13 ' 0 to 9, backspace, enter, delete.
e.Handled = False
Case 45 '-'.
REM You may only add 1 '-' char and only if it it
the first.
If blnAllowNegative Then
If (.Text.Length - .SelectedText.Length) = 0
Then
If .Text.LastIndexOf("-"c) = -1 Then
e.Handled = False
End If
End If
End If
Case 46 '.'.
REM You may only add 1 '.' char.
If blnAllowDecimal Then
If .Text.LastIndexOf("."c) = -1 Then
e.Handled = False
End If
End If
End Select
End With
Catch Ex As Exception
REM Handle exception.
End Try

End Sub

[Cor Ligthert]

Qwert,

A nice very extended function. I assume it is working. However some remarks
to make it better. First to do it completly right you have to do something
for as people are pasting in a value. That can be in an event as validating.

And than beneath in the code a little change to make it more general.

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

TextBoxNumericOnly(Me.TextBox1, e)

TextBoxNumericOnly(DirectCast(sender, TextBox),e)

I hope this gives some ideas

Cor

[Herfried K. Wagner [MVP]]

"Lal" <la**@yahoo.com> schrieb:

Any method to validate on the text box; the entering data is numeric or
text
I want to type only numeric data on the text box

Place an ErrorProvider component on the form and add this code:

\\\
Imports System.ComponentModel
..
..
..
Private Sub TextBox1_Validating( _
ByVal sender As Object, _
ByVal e As CancelEventArgs _
) Handles TextBox1.Validating
Dim SourceControl As TextBox = DirectCast(sender, TextBox)
Dim ErrorText As String
Try
Dim i As Integer = Integer.Parse(SourceControl.Text)
Catch
ErrorText = "Value must be an integer."
Finally
Me.ErrorProvider1.SetError( _
SourceControl, _
ErrorText _
)
End Try
End Sub
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Lal]

Thanks Qwert

it is working fine
"Qwert" <no**@nosp.com> wrote in message
news:zp********************@casema.nl...

Run following function in _TextChanged event.
Event:
------
Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

TextBoxNumericOnly(Me.TextBox1, e)

End Sub
Function:
---------
Private Sub TextBoxNumericOnly(ByRef objTextBox As
System.Windows.Forms.TextBox, ByRef e As
System.Windows.Forms.KeyPressEventArgs, Optional ByVal blnAllowNegative As
Boolean = False, Optional ByVal blnAllowDecimal As Boolean = False)

Try
With objTextBox
e.Handled = True
Select Case Convert.ToInt32(e.KeyChar)
Case 48 To 57, 8, 13 ' 0 to 9, backspace, enter, delete. e.Handled = False
Case 45 '-'.
REM You may only add 1 '-' char and only if it it
the first.
If blnAllowNegative Then
If (.Text.Length - .SelectedText.Length) = 0
Then
If .Text.LastIndexOf("-"c) = -1 Then
e.Handled = False
End If
End If
End If
Case 46 '.'.
REM You may only add 1 '.' char.
If blnAllowDecimal Then
If .Text.LastIndexOf("."c) = -1 Then
e.Handled = False
End If
End If
End Select
End With
Catch Ex As Exception
REM Handle exception.
End Try

End Sub

[J L]

This is asked a lot. Check out this article and the associated code

http://msdn.microsoft.com/library/de...et04082003.asp

You can use his validator directly or (as I did) modify it to meet
your behavioral requirements. It also incorporates the error provider
interface. Once you have this tool in your toolbox, text validation is
solved for quite simply!

John

On Fri, 18 Mar 2005 11:59:51 +0530, "Lal" <la**@yahoo.com> wrote:

Hi,

Any method to validate on the text box; the entering data is numeric or
text
I want to type only numeric data on the text box


Regards
K R Lal

[Cor Ligthert]

John,

However Quert has a solution I did not see until now.
He has as complet possible done the problem.

Cor