VB.NET

VB.NET RSS

Related To Textbox

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Nov 2008

Posts: 34

Reputation: manoj_582033 is an unknown quantity at this point

Solved Threads: 0

manoj_582033 manoj_582033 is offline

Offline

Light Poster

Related To Textbox

Jan 23rd, 2009

Hi Friends

i am using vb.net & i have a textbox on that ,I want only numeric value on that textbox & if i type alfabetical on that textbox so that must give me a message to that type numeric value only

I m not able to doing this plz help me

•

Join Date: Jan 2009

Posts: 3

Reputation: tickle69 is an unknown quantity at this point

Solved Threads: 0

tickle69

Offline

Newbie Poster

Re: Related To Textbox

Jan 23rd, 2009

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Private Sub textBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles textBox.KeyPress
 
        If Char.IsNumber(e.KeyChar) Or Asc(e.KeyChar) = 8 Then
            e.Handled = False
        Else
            e.Handled = True
            MsgBox("Numeric Values Only", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Input Error")
        End If
 
End Sub
Private Sub textBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles textBox.KeyPress
        
        If Char.IsNumber(e.KeyChar) Or Asc(e.KeyChar) = 8 Then
            e.Handled = False
        Else
            e.Handled = True
            MsgBox("Numeric Values Only", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Input Error")
        End If

End Sub

basicly the IsNumber is numbers 0-9, it also allows the delete button, and the ASCII key 8 is the back space key

•

Join Date: Nov 2007

Posts: 2,641

Reputation: Jx_Man is a glorious beacon of light

Solved Threads: 245

Jx_Man

Offline

Posting Maven

Re: Related To Textbox

Jan 25th, 2009

This following code just allowed you to entered numbers only (No alphabetics or any special characters) :

 Help with Code Tags 
 vb.net Syntax (Toggle Plain Text) 
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
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

Never tried = Never Know
So, Please do something before post your thread.
* PM Asking will be ignored *

•

Join Date: Jan 2009

Posts: 3

Reputation: tickle69 is an unknown quantity at this point

Solved Threads: 0

tickle69

Offline

Newbie Poster

Re: Related To Textbox

Jan 25th, 2009

well that is what you asked for

use google

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
        If Char.IsNumber(e.KeyChar)Then
 
        Else
            MsgBox("Numeric Values Only", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Input Error")
        End If
        If Char.IsNumber(e.KeyChar)Then

        Else
            MsgBox("Numeric Values Only", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Input Error")
        End If

try that, the e.Handled = False/True determins wether the charater is to be imputted - so just simply remove it

•

Join Date: Oct 2008

Posts: 5

Reputation: jalpaeol is an unknown quantity at this point

Solved Threads: 0

jalpaeol

Offline

Newbie Poster

Re: Related To Textbox

Jan 27th, 2009

HI

You can control that text box by this way

Private Sub tbxNumeric_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbxNumeric.KeyPress
StringManipulation.SetTextboxAllowedCharacters("0123456789.", e)

End Sub

•

Join Date: Oct 2008

Posts: 5

Reputation: jalpaeol is an unknown quantity at this point

Solved Threads: 0

jalpaeol

Offline

Newbie Poster

Re: Related To Textbox

Jan 27th, 2009

Sorry that function is like this

Shared Sub SetTextboxAllowedCharacters(ByVal CharactersAllowed As String, ByRef e As System.Windows.Forms.KeyPressEventArgs, Optional ByVal enter As Boolean = True, Optional ByVal BackSpace As Boolean = True)

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
        Dim err As Integer = 0
        If InStr(CharactersAllowed, e.KeyChar.ToString.ToUpper) = 0 Then
            err = 1
            If enter And Asc(e.KeyChar) = Keys.Enter Then err = 0
            If BackSpace And Asc(e.KeyChar) = Keys.Back Then err = 0
            If Asc(e.KeyChar) = 3 Then err = 0
            If Asc(e.KeyChar) = 22 Then err = 0
        End If
        If err = 1 Then
            e.Handled = True
        End If
    End Sub
        Dim err As Integer = 0
        If InStr(CharactersAllowed, e.KeyChar.ToString.ToUpper) = 0 Then
            err = 1
            If enter And Asc(e.KeyChar) = Keys.Enter Then err = 0
            If BackSpace And Asc(e.KeyChar) = Keys.Back Then err = 0
            If Asc(e.KeyChar) = 3 Then err = 0
            If Asc(e.KeyChar) = 22 Then err = 0
        End If
        If err = 1 Then
            e.Handled = True
        End If
    End Sub

thanks