If ... End If problemas

[@ron]

Estoy creando un programa para hacer la conversión de milímetros centímetros pero en esta parte no me sale y no se muy bien como es porque ya lo he intentado de varias maneras aversi me pueden ayudar.


Private Sub command1_Click()
    If Option1 = True Then Text2 = Val(Text1) * 1000
    ElseIf Option2 = True Then Text2 = Val(Text1) * 100
    ElseIf Option3 = True Then Text2 = Val(Text1) * 10
    ElseIf Option4 = True Then Text2 = Val(Text1) / 1000
    End If
End Sub

me sale error en la primera linea "Private Sub command1_Click()" y me dice que Else sin If. Ojala me puedan ayudar.

saludos 

[Dessa]

Private Sub command1_Click()
    If Option1 = True Then
    Text2 = Val(Text1) * 1000
    ElseIf Option2 = True Then Text2 = Val(Text1) * 100
    ElseIf Option3 = True Then Text2 = Val(Text1) * 10
    ElseIf Option4 = True Then Text2 = Val(Text1) / 1000
    End If
End Sub

[@ron]

Dessa pues muchas gracias fue tan sencillo la manera en como era la solución que me quede sorprendido. Y una ves mas gracias!!

[Dessa]

Se puede hacer de muchas maneras, yo en tu caso lo hago así

Private Sub command1_Click()
    If Option1 Then Text2 = Val(Text1) * 1000
    If Option2 Then Text2 = Val(Text1) * 100
    If Option3 Then Text2 = Val(Text1) * 10
    If Option4 Then Text2 = Val(Text1) / 1000
End Sub

PD: tambien podes usar un select, saludos

[@ron]

gracias Dessa lo acabo de probar y tambien me funciono.

pero tengo otro problema también, estoy creando un programa el cual me da la tabla de multiplicar que yo quiera pero no se da enter despues de terminar por ejemplo:
2x2=4"aqui salen dos cuadritos"2x3=6"vuelven a salir dos cuaditos"2x4=8
y asi se va pero no se da el enter despues de que termina la primera multiplicacion osea quiero que se vea asi:
2x2=4
2x3=6
2x4=8

este es el codigo que tengo:
Private Sub Command1_Click()
    Dim res As Long, retorno
    For n = 1 To 10
    res = Text1 * n
    retorno = Chr(13) & Chr(10)
    Text2 = Text2 & Text1 & "X" & n & "=" & res & retorno
    Next n
End Sub

saludos!

[Dessa]

Text2 multiline (en diseño) ???

[YST]

Ponle la propiedad de Multiline al textbox en TRUE y de pasada aprende visual basic

[Dessa]

No seas malo YST, Saludos   

[@ron]

ps estoy aprendiendo pero lo que pasa esque como la escuela donde me dan clases de esto estara cerrada asta el 18 por causa de la influenza pues esperaba que me ayudaran.

pero si te molesta ayudar mejor ni contestes porque algunas otras personas que si te ayudan sin poner peros como tu.

[Dessa]

YST, nunca habrá un subforo de ASM si te portas mal