Visual Basic - numeros con coma

Life is soft - evento anual de software empresarial
 
Vista:

numeros con coma

Publicado por Sergio (34 intervenciones) el 02/04/2003 00:23:18
Tengo un text y necesito que al cargar un nuemro en el text al usar la parte nuemeral del teclado la tecla del punto al usarla en lugar del punto ponga una coma como puedo hacer nesecitaria un ejemplo de eso o algun componente que lo haga.

gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:numeros con coma

Publicado por Dark_MAC (199 intervenciones) el 02/04/2003 02:20:52
mmm, la verdad pienso que tu duda se genero gracias a la pereza mental, pero en fin, de todos modos la respondere, primero creas una textbox, le das doble click e introduces el siguiente código:

If Mid(Text1.Text, Len(Text1.Text), 1) = "." Then
x = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
x = x + ","
Text1.Text = x
Text1.SelStart = Len(Text1.Text)
End If

despues, para trabajar los datos introducidos en ese text box (regresarlos a que tengan punto), creas un boton y una etiqueta, al boton le incertas el siguiente codigo:

w = 0
For y = 1 To Len(Text1.Text)
If Mid(Text1.Text, y, 1) = "," Then
w = 1
z = y
End If
Next y
If w = 1 Then
x = Mid(Text1.Text, 1, z - 1)
x = x + "."
x = x + Mid(Text1.Text, z + 1, Len(Text1.Text))
Label1.Caption = x
Else
Label1.Caption = Text1.Text
End If

listo, y espero que en un futuro se te quite la pereza mental, suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Otra alternativa...

Publicado por Yera (26 intervenciones) el 03/04/2003 15:56:20
¡Hola!
¡No es para ponerse así!
El ejemplo anterior está muy bien. Ahora voy a darte otro que, a mi humilde entender, es un poco más sencillo.
En el evento Keypress del Textbox debés poner:

If Keyascii = 46 Then '46 es el código ascii correspondiente al punto.
Keyascii = 44 '44 es el código ascii correspondiente a la coma.
EndIf \'Ahora no recuerdo si los números efectivamente corresponden a la coma y al punto. Pero esa es la idea. Si no funciona fijate cuáles son los números correspondientes y listo.
Espero que te sirva.
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar