Formato de números

[Seskin]

Muy buenas,

Tengo este codigo hecho, basicamente es una calculadora pesetas-euros, mi duda es como puedo poner para que el formato de númerico sea xxxx.xx es decir, con dos decimales?

Código:

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If RadioButton1.Checked = True Then
            TextBox2.Text = CStr((CDbl(TextBox1.Text) / 166.386))
            TextBox2.Text = CStr((Val(TextBox2.Text)))
        Else
            RadioButton2.Checked = True
            TextBox2.Text = CStr((CDbl(CDbl(TextBox1.Text) * 166.386)))
            TextBox2.Text = CStr((Val(TextBox2.Text)))
        End If

    End Sub

    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        If TextBox1.Text = "" Then
            MsgBox("Este campo Moneda está vacio")
        End If
    End Sub
End Class

Gracias y saludos !

[jaullo]

Prueba con algo como esto.

TextBox2.Text = Double.Parse(CStr((Val(TextBox2.Text))), 2)

[Dradi7]

seria mas facil

textbox2.text = String.Format("{0:N2}",TextBox2.Text)

[Seskin]

Con ambas soluciones salen los decimales, pero no dos, sino 10.

Alguna otra sugerencia chicos?

Muchisimas gracias !

[huggo161]

usa la Instruccion Format de esta manera
TextBox2.Text = Format(elvalor, "$#,##0.00").ToString()
dnde elvalor es el numeor que quieres convertir
puede ser una variable o el Text de un TextBox
Espero te sirva...

[Seskin]

Bueno, antes de anda agradeceros a todos el interés, el ultimo ejemplo también me dio fallo, lo he solucionado de esta forma:

Código:

TextBox2.Text = FormatCurrency(CInt(TextBox2.Text), 2)

Ahora devuelve tantos decimales como numeros indique al final de la instrucción.

Muchisimas gracias a todos compañeros !

Saludos.

[huggo161]

que rarooo, a mi si me funciona en VB
pero me gusta mas tu metodoo
Gracias...