work with ado using vb.net

Question

2.25/5 (4 votes)

See more:

i make a textbox i want to enter only integer data if any one want to type string
data type then generate a message "plese enter integervalue" i am using vb.net and making window based application

Posted 8-Aug-11 2:05am

gauravrahul1991

Add a Solution

4 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Toniyo Jackson · Answer 1 · 2011-08-08T02:10:00

Try this in TextBox KeyPress Event.

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) _
               Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 57) Then
            e.Handled = True
        End If
        If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then
            e.Handled = False
        End If
    End Sub

Suresh Suthar · Answer 2 · 2011-08-08T02:09:00

Solution 1

This is very basic thing. You can do this using TextBox_KeyPress event, where you can add this code

C#

If Not (e.KeyChar.IsDigit(e.KeyChar)) And _
e.KeyChar <> ChrW(Keys.Back) Then
e.Handles = True
End If

Posted 8-Aug-11 2:09am

Suresh Suthar

v2

RaviRanjanKr · Answer 3 · 2011-08-08T05:23:00

Solution 4

You can try given code which enable to user to enter only Digit.

 Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        
If Not (Char.IsDigit(e.KeyChar)) Then e.Handled = True
   
 End Sub

Posted 8-Aug-11 5:23am

RaviRanjanKr

Simon_Whale · Answer 4 · 2011-08-08T03:00:00

Another method is the isnumeric function, further reading MSDN: IsNumeric[^]

VB

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
       If Not IsNumeric(e.KeyChar) Then
           messagebox.show("Please enter a numeric value")
       End If
   End Sub

Updated thanks to Manfred seeing a problem in the code

VB

 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If Char.IsNumber(e.KeyChar) OrElse Char.Equals(e.KeyChar, CType("-", Char)) Then
        'this test to see if "-" appears after the second character i.e. -100- this wont happen
        If TextBox1.Text.Length > 1 And Char.Equals(e.KeyChar, CType("-", Char)) Then
            e.Handled = True
        Else
            e.Handled = False
        End If
    Else
        e.Handled = True
    End If
End Sub

work with ado using vb.net

4 solutions

Solution 2

Solution 1

Solution 4

Solution 3

Add your solution here

Preview 0