none
[Ayuda] Con esta condición de If

    Pregunta

  • Hola amigos,

    Tengo esta configuración en el programa, por lo que me gustaría comparar que si es un número como estos, salga una cosa y si es el otro valor salga otra cosa. ¿Cómo podría ponerlo?

    Gracias

     Try
                If My.Setting.Stado = 0,1,2,3,4 Then
                    frms.show
                ElseIf My.Setting.Stado = 5 Then
                    frms1.show
                End If
            Catch ex As Exception
    
            End Try

    jueves, 9 de febrero de 2017 15:30

Respuestas

  • Symantecc,

    Lo simple será que utilices la instrucción Select...Case.

    Select...Case Statement (Visual Basic)

    Try
    	Select Case My.Settings.Stado
    		Case 0 To 4 '0, 1, 2, 3, 4
    			frms.show
    		Case 5
    			frms1.show
    	End Select
    Catch ex As Exception
    	MessageBox.Show(ex.Message)
    End Try


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Symantecc jueves, 9 de febrero de 2017 15:46
    jueves, 9 de febrero de 2017 15:35
  • Hola, prueba

     If My.Setting.Stado = (0 Or 1 Or 2 Or 3 Or 4) Then
                frms.show()
     ElseIf My.Setting.Stado = 5 Then
                frms1.show()
     End If


    Si la respuesta te fue útil vótala como tal,y si fue respuesta márcala. Solo dejo en el foro mis post si fueron útiles , de lo contrario y por mantener el orden los borro. Saludos. Lima-Perú.

    • Marcado como respuesta Symantecc jueves, 9 de febrero de 2017 15:46
    jueves, 9 de febrero de 2017 15:40

Todas las respuestas

  • Symantecc,

    Lo simple será que utilices la instrucción Select...Case.

    Select...Case Statement (Visual Basic)

    Try
    	Select Case My.Settings.Stado
    		Case 0 To 4 '0, 1, 2, 3, 4
    			frms.show
    		Case 5
    			frms1.show
    	End Select
    Catch ex As Exception
    	MessageBox.Show(ex.Message)
    End Try


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Symantecc jueves, 9 de febrero de 2017 15:46
    jueves, 9 de febrero de 2017 15:35
  • Hola, y si lo separo por ejemplo 0 Or 1 Or 2 Or 3 y así también serviría?

    Gracias

    jueves, 9 de febrero de 2017 15:37
  • Hola, prueba

     If My.Setting.Stado = (0 Or 1 Or 2 Or 3 Or 4) Then
                frms.show()
     ElseIf My.Setting.Stado = 5 Then
                frms1.show()
     End If


    Si la respuesta te fue útil vótala como tal,y si fue respuesta márcala. Solo dejo en el foro mis post si fueron útiles , de lo contrario y por mantener el orden los borro. Saludos. Lima-Perú.

    • Marcado como respuesta Symantecc jueves, 9 de febrero de 2017 15:46
    jueves, 9 de febrero de 2017 15:40
  • Gracias por vuestras respuestas.

    Tanto un comentario como otro me han solucionado mi duda y mi pequeño problema.

    Gracias! :D

    jueves, 9 de febrero de 2017 15:46
  • Hola, y si lo separo por ejemplo 0 Or 1 Or 2 Or 3 y así también serviría?

    Gracias

    Claro que sí, de hecho es lo que hace el compilador con la sentencia (Case 0 To 4) sin embargo si la lista fuese algo extensa entonces es mas simple entender el rango (1 To 20) que escribir explicitamente las 20 condiciones combinadas por el operador Or.


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    jueves, 9 de febrero de 2017 16:09