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:20:00
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:15:23
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

RE:numeros con coma

Publicado por kikecg (352 intervenciones) el 02/04/2003 16:06:28
Si solo es para que al introducir por teclado un punto, te salga una coma, prueba esto:

Private Sub Text1_KeyPress(KeyAscii as Integer)
If KeyAscii = 46 Then KeyAscii = 44
End Sub

Con este código, cada vez que se pulse el punto, se escribirá la coma en el Text Box. Otra cosa es si despues, para operar con el valor de ese texto, necesitas una coma o un punto.
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

RE:numeros con coma

Publicado por Claudio (10 intervenciones) el 14/04/2003 15:37:32
Así es más facil, te paso un ejemplo:
En el evento KeyPress del textbox pone esto,

If KeyAscii = 46 Then
KeyAscii = 44
End If
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