Click here to Skip to main content
11,920,211 members (51,928 online)
Click here to Skip to main content
Add your own
alternative version

Tagged as


6 bookmarked

Format a textbox for currency input (VB.NET)

, 9 Jan 2012 CPOL
Rate this:
Please Sign up or sign in to vote.
Format a textbox for currency input (VB.NET)
I have used code from these two links:
  1. MSDN site[^]
  2. Automatically put decimal for currency format in TextBox when typing[^]
to code a textbox (unbound) for accepting numeric input with 2 decimal places.
The cursor is placed on the right and the text flows from right to left.
The text-align property of the texbox has been set to Right.

Dim strCurrency As String = ""
Dim acceptableKey As Boolean = False
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If (e.KeyCode >= Keys.D0 And e.KeyCode <= Keys.D9) OrElse (e.KeyCode >= Keys.NumPad0 And e.KeyCode <= Keys.NumPad9) OrElse e.KeyCode = Keys.Back Then
            acceptableKey = True
            acceptableKey = False
        End If
    End Sub
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        ' Check for the flag being set in the KeyDown event.
        If acceptableKey = False Then
            ' Stop the character from being entered into the control since it is non-numerical.
            e.Handled = True
            If e.KeyChar = Convert.ToChar(Keys.Back) Then
                If strCurrency.Length > 0 Then
                    strCurrency = strCurrency.Substring(0, strCurrency.Length - 1)
                End If
                strCurrency = strCurrency & e.KeyChar
            End If
            If strCurrency.Length = 0 Then
                TextBox1.Text = ""
            ElseIf strCurrency.Length = 1 Then
                TextBox1.Text = "0.0" & strCurrency
            ElseIf strCurrency.Length = 2 Then
                TextBox1.Text = "0." & strCurrency
            ElseIf strCurrency.Length > 2 Then
                TextBox1.Text = strCurrency.Substring(0, strCurrency.Length - 2) & "." & strCurrency.Substring(strCurrency.Length - 2)
            End If
            TextBox1.Select(TextBox1.Text.Length, 0)
        End If
e.Handled = True
    End Sub


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


About the Author

United States United States
No Biography provided

You may also be interested in...

Comments and Discussions

GeneralReason for my vote of 3 Very surprising to me ,a beginner~~~ Pin
tdyso_zmh11-Jan-12 0:52
membertdyso_zmh11-Jan-12 0:52 
GeneralWhy not use a numeric updown control? Your solution, whilst ... Pin
John Brett10-Jan-12 3:56
memberJohn Brett10-Jan-12 3:56 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web04 | 2.8.151120.1 | Last Updated 9 Jan 2012
Article Copyright 2012 by shavinder
Everything else Copyright © CodeProject, 1999-2015
Layout: fixed | fluid