Validar Precio

[Highlander]

Hola estoy tratando de validar un precio para que siempre quede con el formato de dinero

ej: $ 1000,00

Para lo cual en el evento textChanged uso:

Código:

If Not IsNumeric(txtPrecioNeto.Text) Then
            txtPrecioNeto.Text = FormatCurrency(0, 2)
        End If

Pero queda engorroso ya que el usuario debe ir y escribir el valor antes de la coma, tampoco puede borrar el valor inicial $ 0,00 y luego tipear el valor.

Me pueden dar alguna idea como hacer que quede facil de usar y que siempre sea un valor correcto.

Saludos y gracias por cualquier sugerencia.

[rikimm]

pero para que quieres evitar que se borre el signo de precio si lo que puedes hacer en un evento de la caja de texto que cuando se salga o escriva ciertos caracteres ponga automaticamente el sigo de precio y ya y lo de la coma pues el usuario deve saber que se deve poner coma en caso de que sea con decimales y en caso de k no agrege los valores de 00 y ya

[Highlander]

Iniciado por rikimm

pero para que quieres evitar que se borre el signo de precio si lo que puedes hacer en un evento de la caja de texto que cuando se salga o escriva ciertos caracteres ponga automaticamente el sigo de precio y ya y lo de la coma pues el usuario deve saber que se deve poner coma en caso de que sea con decimales y en caso de k no agrege los valores de 00 y ya

Tienes un ejemplo de como hacer ese evento que auto complete con signo precio?

Gracias.

[rikimm]

mmmmm puedes hacerlo con el evento changed

[Highlander]

Si lo del evento lo tengo claro pero no como digamos insertar el caracter $, voy ver que encuentro supongo habra alguna funcion.

[rikimm]

pues lo que yo tengo en mente seria hacer la uniona de caracteres que seria asi

text1.tex="$"+text1.text
pero no me sale solo me sale si es en otra caja seria casi lo mismo solo cambiaria esto
text2.tex="$"+text1.text
te voy a investigar mañana que mañana tengo escuela jijijiji

[Highlander]

Unir los caracters es facil por ej: txtPrecio.text = "$" & txtPrecio.text

Pero el problema es que no se como detectar si falta el $.

Alguna manera de evaluar en un IF si el primer caracter es igual a $.

[gnzsoloyo]

Código vb.net:

InStr(cadena, adenabuscada)
 

Devuelve un valor mayor a cero si cadenabuscada existe dentro de cadena.

[Porlachucha]

mira esto, quiza es lo que andas buscando
http://www.vbforums.com/showthread.php?t=488810

aca hay otra alternativa, aunque es un poco mas restrictivo para programar.
http://msdn.microsoft.com/es-es/libr...az(VS.85).aspx

slds
plch

[Ka0stj]

Checa este otro hilo haber si te sirve:

http://www.forosdelweb.com/f69/ayuda...moneda-406022/

[NProgram]

Este ejemplo lo estoy aplicando en mi programa:
"Yo uso el punto como decimal"

Código vb:

Imports System.Globalization
 
Private Sub Tb_peso_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tb_peso.LostFocus
        Tb_peso.Text = (CDec(Tb_peso.Text)).ToString("C", CultureInfo.CurrentCulture)
    End Sub
 

Siendo Cdec(tb_peso.text) = 52639.26
Tb_peso.Text = $ 52,639.26

La explicacion de esto la encuentras en :

Cadenas con formato numérico estándar
http://msdn.microsoft.com/es-es/library/dwhawy9k.aspx

Cadenas con formato numérico personalizado
http://msdn.microsoft.com/es-es/library/0c899ak8.aspx



Espero te sirva
Saludos desde Chile

[Highlander]

Muchas gracias amigos ya lo solucione con su ayuda, use el siguente codigo con una pequeña modificación mia ya que sino se cae en alguns situaciones.

Código:

  Private Sub TxtPrecioNeto_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtPrecioNeto.Validating

        Dim currency As Decimal
        'Convert the current value to currency, with or without a currency symbol.

        If Not Decimal.TryParse(Me.txtPrecioNeto.Text, Globalization.NumberStyles.Currency, Nothing, currency) Then

            'Don't let the user leave the field if the value is invalid.

            With Me.txtPrecioNeto

                .HideSelection = False
                .SelectAll()

                MessageBox.Show("Por favor ingrese un valor numerico.", "Valor Invalido", MessageBoxButtons.OK, MessageBoxIcon.Error)

                .HideSelection = True

            End With

            e.Cancel = True
        End If

    End Sub

 Private Sub TxtPrecioNeto_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPrecioNeto.Validated

        'Display the value as local currency.
        Me.txtPrecioNeto.Text = Decimal.Parse(Me.txtPrecioNeto.Text.Replace("$", "")).ToString("c")

    End Sub