How do I get this TextBox13 code to display in Currency Format

[piscis]

'TextBox13

        '

        Me.TextBox13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle

        Me.TextBox13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objMachinesAndReadings, _ "Readings.Sel_1_Paid"))

        Me.TextBox13.Location = New System.Drawing.Point(79, 56)

        Me.TextBox13.Name = "TextBox13"

        Me.TextBox13.ReadOnly = True

        Me.TextBox13.Size = New System.Drawing.Size(56, 20)

        Me.TextBox13.TabIndex = 1

        Me.TextBox13.TabStop = False

        Me.TextBox13.Text = ""

        Me.TextBox13.TextAlign = System.Windows.Forms.HorizontalAlignment.Center

[trisuglow]

Dim curr As Single = 12.74
        TextBox1.Text = curr.ToString("C")

This will display the currency value in the correct format for the locale that your PC is set up for.

Go into Regional Options in the control panel and select a different locale before running the code and see the difference.

[trisuglow]

Having said that, my system seems not to have caught up with the fact that Europe is now using Euros...

Anybody know if there's an update out for that yet?

[piscis]

trisuglow:

Do you meant this?

   'TextBox13
        '
        Dim curr As Single = 12.74
        Me.TextBox13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.TextBox13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objMachinesAndReadings, "Readings.Sel_1_Paid"))
        Me.TextBox13.Location = New System.Drawing.Point(79, 56)
        Me.TextBox13.Name = "TextBox13"
        Me.TextBox13.ReadOnly = True
        Me.TextBox13.Size = New System.Drawing.Size(56, 20)
        Me.TextBox13.TabIndex = 1
        Me.TextBox13.TabStop = False
        Me.TextBox13.Text = ""
        Me.TextBox13.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        Me.TextBox13.Text = curr.ToString("c")

[trisuglow]

No.

I mean, when you put text into the box do it like I said.

I don't think you can configure the properties of the textbox to automatically format the text unless you put it into a user control or subclass it.

I'm going home for the weekend now, but if you want more info I'll probably have a chance to look at VBForums on Tuesday.


Tris.

[piscis]

trisuglow

Thank you very much

this worked just fine;

   TextBox74.Text = CDec(TextBox74.Text).ToString("c")

Andy