TextBox solo Ingrese Numeros con separador de Miles

[dff1403]

Hola a Todos,

Pues esta vez quisiera hacerles la consulta de como puedo hacer que un TextBox solo Ingrese Numeros con separador de Miles y 2 decimales (Ej. 2,300.00), tal vez sea muy simple pero no se como hacerlo:(

Gracias de Antemano.

Saludos

[JesusGarcia]

Hola a Todos,

Pues esta vez quisiera hacerles la consulta de como puedo hacer que un TextBox solo Ingrese Numeros con separador de Miles y 2 decimales (Ej. 2,300.00), tal vez sea muy simple pero no se como hacerlo:(

Gracias de Antemano.

Saludos

Aqui una pequeña función para hacerlo, tienes que ponerlo en el evento "keypress" del textbox y pasarlo como parámetros el valor de "KeyAscii" y el objeto textbox

'-----------------------------------------------------------------------------

Public Function DigitOnlyDouble(ByVal pintKeyAscii As Integer, pTxt As String) As Integer

'-----------------------------------------------------------------------------

Dim NoDot As Boolean

If (Chr$(pintKeyAscii) = ".") Then

NoDot = InStr(1, pTxt, ".") = 0

Else

NoDot = True

End If

If (Chr$(pintKeyAscii) >= "0" And Chr$(pintKeyAscii) <= "9") _

Or (pintKeyAscii < 32) Or (Chr$(pintKeyAscii) = ".") Then

If NoDot Then

' it's OK

DigitOnlyDouble = pintKeyAscii

Else

DigitOnlyDouble = 0

End If

Else

DigitOnlyDouble = 0

End If

End Function

[dff1403]

Hola, pero disculpa, donde o como pongo el evento? Otra cosa, al ingresar a la hoja, lo detecta como número?

[dff1403]

Alguna respuesta porfa? Gracias