Duda con Propiedad Dataformat en los Textbox y Label (Solucionado)

Iniciado por AlbertoBSD, 19 Mayo 2008, 18:14 PM

0 Miembros y 1 Visitante están viendo este tema.

AlbertoBSD

Tengo un  pequeño problema con el Dataformat en los textbox y label.

El problema esta que al mandar el resultado de una multiplicacion o division de Numeros Double, al .text del Textbox o el .caption del Label, Me muestra "," en lugar de Punto para separar los Decimales, ya he probado con el Dataformat de ambos y le especifico que quiero "." en lugar de ,. y no me lo hace asi.

La asignacion la realizo asi:

Código (vb) [Seleccionar]

Dim c,v1, v2 as Double
v1 = 2.2
v2 = 2.0
c = v1 * v2
Text1.text = c


lo cual me imprime: "4,4" lo que yo quiero es que aparezca "4.4"
Donaciones
1Coffee1jV4gB5gaXfHgSHDz9xx9QSECVW

SKL (orignal)


seba123neo

y declaras mal las variables,hacelo asi:

Dim c As Double, v1 As Double, v2 As Double

porque sino te toma la primera y las otras como variant,en .NET si lo podes hacer asi...



La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

cassiani

Tambien puedes usar "Replace"

Código (vb) [Seleccionar]
Text1.Text = Replace(c, ",", ".")

Dependerá de lo que tengas pensado hacer... hay funciones para seguir trabajando con el contenido del textbox correctamente aún depués de haber usado el replace...

seba123neo

una solucion medio pedorra podria ser:

Private Sub Form_Load()
Dim c As Double, v1 As Double, v2 As Double
v1 = 2.2
v2 = 2
c = v1 * v2
MsgBox Str$(c)
End Sub


:P :P
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

AlbertoBSD

Gracias seba123neo

El codigo me quedo asi:

Código (vb) [Seleccionar]

Dim c, v1, v2 As Double
v1 = Val(Text1.Text)
v2 = Val(Text2.Text)
c = v1 * v2
Label1.Caption = Str$(c)


era solo cuestion de Usar la Funcion Str la cual no conocia xD

Muchas Gracias a todos
Donaciones
1Coffee1jV4gB5gaXfHgSHDz9xx9QSECVW

naderST

Cita de: Anon en 19 Mayo 2008, 21:02 PM
Gracias seba123neo

El codigo me quedo asi:

Código (vb) [Seleccionar]

Dim c, v1, v2 As Double
v1 = Val(Text1.Text)
v2 = Val(Text2.Text)
c = v1 * v2
Label1.Caption = Str$(c)


era solo cuestion de Usar la Funcion Str la cual no conocia xD

Muchas Gracias a todos

lo mas correcto para mi es k uses Format pero bueno asi funciona.

AlbertoBSD

Si seria correcto, pero creo que en el fondo, format llega a llamar  Str.

Igual muchas gracias ya quedo solucionado.
Donaciones
1Coffee1jV4gB5gaXfHgSHDz9xx9QSECVW