Visual Basic - No resulvo este problema de visual basic

Life is soft - evento anual de software empresarial
   
Vista:

No resulvo este problema de visual basic

Publicado por wilber (2 intervenciones) el 06/03/2008 20:16:47
Buenos dias a todos espero que me ayuden en este problema, saben he estado tratando de resolver este problema de visual basic pero no encuentro cual es la falla, este programa es para convertir equivalencias de metros a centimetros, pulgadas, pies y yardas asi que lo pongo aqui:

Dim metros As Double, pies As Double, pulgadas As Double
Dim yardas As Double, centimetros As DragConstants
Private Sub cmdConvertir_Click()
On Error GoTo Error
centimetros = Val(txtMetros.Text) * 100
pulgadas = centimetros / 2.54
pies = pulgadas / 12: yardas = pies / 3
txtSalida.Text = "Centimetros :" & _
Str(Format(centimetros, "#####.##")) + & _
vbCrLf & "Pulgadas :" + Str(Format(pulgadas, "#####.##")) & _
vbCrLf & "Pies : " + Str(Format(pies, "#####.##")) + vbCrLf & _
"Yardas :" + Str(Format(yardas, "#####.##"))
Exit Sub
Error:
MsgBox Err.Description, vbCritical, "Erro número:" & Err.Number
End Sub

El problema surge en las filas siguientes:

txtSalida.Text = "Centimetros :" & _
Str(Format(centimetros, "#####.##")) + & _
vbCrLf & "Pulgadas :" + Str(Format(pulgadas, "#####.##")) & _
vbCrLf & "Pies : " + Str(Format(pies, "#####.##")) + vbCrLf & _
"Yardas :" + Str(Format(yardas, "#####.##"))

Esta filas se marcan de rojo y me manda mensaje de error
no lo se por que pero estoy tratando de resolver.
Alguna sugerencia. Gracias de antemano.
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
Imágen de perfil de Juan Carlos

RE:No resulvo este problema de visual basic

Publicado por Juan Carlos (106 intervenciones) el 07/03/2008 03:39:54
Hola
Tenés que quitar el [+] en:
Str(Format(centimetros, "#####.##")) + &
Por otra parte te conviene sustituir los Signos ¨[+] en el resto de la línea por [&]
Saludos cordiales
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

Gracias

Publicado por wilber (2 intervenciones) el 08/03/2008 15:32:18
Gracias Juan carlos por la respuesta fue precisa y ahora todo esta bien, gracias por el consejo Pedro luis un saludo para argentina.
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
Imágen de perfil de Juan Carlos

RE:No resulvo este problema de visual basic

Publicado por Juan Carlos (106 intervenciones) el 07/03/2008 03:40:58
Hola
Tenés que quitar el [+] en:
Str(Format(centimetros, "#####.##")) + &
Por otra parte te conviene sustituir los Signos ¨[+] en el resto de la línea por [&]
Saludos cordiales
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:No resulvo este problema de visual basic

Publicado por Pedro Luis (878 intervenciones) el 07/03/2008 13:56:55
Además aunque no es un error es una redundancia el Str(Format)), el Format ya te da un string.
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