Visual Basic - Un N° en un texto, si es Mil q se coloq el Punto

Hola
Quiero saber como hacerlo para cuando el Usuario escriba un numero en un texto y si tiene unidad de mil se coloque de la siguiente forma 1.000 aunque el no haya apretado el punto, asi como lo hace la calculador a de windows Millennium

Hola,

Puedes utilizar la función Format que permite formatear números y mostrarlos con separadores de miles y/o decimales.

Se podría implementar en el evento LostFocus del cuadro de texto, de forma que cuando el control cuadro de texto pierda el enfoque se formatee la cantidad.

El código podría ser el siguiente:
Private Sub Text1_LostFocus()
Text1 = Format(Text1, "###,###,###")
End Sub

Saludos!

Dani
http://www.rinconpepe.com

HEY DANY,

MUY BUENA TU AYUDA A ME ME SIRVIO DE MUCHO, SOLO QUE ALA HORA DE QUE TRATO DE USAR ESE VALOR PARA SUMARLO A VALORES INTEGER, ME DA ERROR DE TIPO(type mismatch), QUE PUEDO HACER

GRACIAS
SALUDOS.

Hola,

El error se produce porque al formatear el número lo trata como texto y tienes que convertirlo a número.

Para ello, utiliza la función CInt que lo convertirá a entero.

La síntaxis es:
CInt(Text1)

Saludos!

Dani
http://www.rinconpepe.com

'Espero que te ayude esto
'pruebalo en un nuevo proyecto
'inserta un textbox y pega este codigo
'y teclea los numeros.

'Harold Valdivia : [email protected]

Private Sub Text1_Change()
If Len(Text1.Text) = 4 Then
i = Len(Text1.Text)
temp = Right(Text1, 4)
If Val(temp) > 1000 Then
tempo = (i - Len(temp))
temp1 = Left(Text1, tempo + 1) + "." + Right(temp, 3)
Text1.Text = temp1
End If
Text1.SelStart = Len(Text1)
Else
If Len(Text1.Text) >= 6 Then
cad = Text1
search = "."
resul = InStr(1, cad, search, 1)
cad = Mid(Text1, resul, 1)
For X = 1 To resul - 1
ncad = Mid(Text1, 1, X)
num = ncad
Next
For X = Len(Text1) To resul + 1 Step -1
ncad = Mid(Text1, X, 1)
numeros = numeros + ncad
nume = StrReverse(numeros)
Next
newnum = num + nume
temp = CInt(Right(newnum, 3))
If temp > 100 Then
tempo = (Len(newnum) - Len(temp))
temp1 = Left(newnum, tempo) + "." + Right(newnum, 3)
Text1.Text = temp1
End If
End If
End If
Text1.SelStart = Len(Text1)
End Sub