Foros del Web - Formato de decimales en textbox

Foros del Web (http://www.forosdelweb.com/)

- .NET (http://www.forosdelweb.com/f29/)

- - Formato de decimales en textbox (http://www.forosdelweb.com/f29/formato-decimales-textbox-271228/)

Ayesha

16/02/2005 07:39

Formato de decimales en textbox

Tengo una duda en VisualBasic Net, necesito poner una especie de máscara para un text box que permita ingresar decimales con formato ####.##, pero me encuentro que el nuevo text box no tiene la propiedad que tenía el VB6 donde se podía poner ese formato con el mínimo de dolor.

¿Alguien sabe cómo puedo hacerlo en VB Net?

Gracias!

Sayra

16/02/2005 07:51

Hola bueno yo creo que esto puede ayudarte

Si utilizas un RegularExpressionValidator, podrias usar la siguiente expresion regular:

^\d{4}+,\d{2}$
<asp:regularexpressionvalidator id="Regularexpressionvalidator1" runat="server" ControlToValidate="TextBox1" ErrorMessage="* Solo puede introducir caractres con este formato ####,##" ValidationExpression="^\d{4}+,\d{2}$"></asp:regularexpressionvalidator></td>

Ayesha

16/02/2005 08:40

Esto es ASP? porque yo lo quiero para una aplicación desktop.

Sayra

16/02/2005 08:43

Es asp.net, disculpa te entendi mal, no se hacerlo como lo necesitas :'(

nataly_ruiz

30/11/2010 10:21

Respuesta: Formato de decimales en textbox

Hola se que es tarde para responderte, pero para que quede para otros , hay un control que se llama MaskedTextBox especializado para manejar las mascaras. ;D

ncmaster

03/12/2010 06:17

Respuesta: Formato de decimales en textbox

Hola, yo he usado el MaskedTextBox y en verdad no me gusta, asi que lo hago de esta forma, espeo te sirva.

Código vb:

Ver original'Tb_cantidad ==> TextBox donde ingresamos los valores.
'Tb_precio   ==> Siguiente TextBox despues de precionar el Enter
 
Private Sub Tb_cantidad_KeyPress(ByVal sender As Object, ByVal e As _
            System.Windows.Forms.KeyPressEventArgs) Handles Tb_cantidad.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            e.Handled = True
            If Tb_cantidad.Text = CChar("") Then
                Tb_cantidad.Text = "0"
            End If
            Tb_cantidad.Text = Format(Tb_cantidad.Text, "###,##0.00")
            Tb_precio.Focus()
        End If
 
' "0123456789.-" Valores o caracteres que solo aceptara el TextBox
 
        If InStr(1, "0123456789.-" & Chr(8), e.KeyChar) = 0 Then
            e.Handled = True
            e.KeyChar = CChar("")
        End If
    End Sub

Saludos.

La zona horaria es GMT -6. Ahora son las 22:44.