Variable Mensajes encadenados [vb2008]

Topic created · 2 Posts · 905 Views
  • Wolas 😄
    Bueno, tengo curiosidad para que sepáis como van las cosas, o así me explayo mas en las explicaciones 😛
    Bien, vamos a modificar una variable que vamos a crear a partir del VB que hará unos mensajes encadenados, tal cual le podremos asignar una acción.

    msgbox("Hola!")
    

    Ese código hará que cuando clickemos en un botón o a lo que tengamos asignado, abra una ventana que ponga Hola!

    Dim MensajeTexto As Integer
    

    Esa es la variable, que yo personalmente he llamado MensajeTexto.

    MensajeTexto = msgbox("Haz click para testear", vbYesNoCancel, vbCritical)
    

    Bien, la variable MensajeTexto hará esa acción, te abrirá una ventana que pondrá: Haz click para testear, con el símbolo de critico (que algo falla, o en otras palabras, error.) y saldrán 3 opciones: Si, No, y Cancelar.

    If MensajeTexto = 6 Then
    MsgBox("Has clickeado en SI")
    

    Bien, esto es un poco mas complejo para unos, y para otros sencillo. Esos botones tienen asignado números, 6 corresponde a Si. 7 a No etc.

    Elseif MensajeTexto = 7 Then
    MsgBox("Has clickeado en NO")
    

    Bien, Elseif es para meter mas formas encadenadas.

    Else
    MsgBox("Has clickeado en Cancelar")
    End If
    

    Este tal Else (quiere decir, "si no" o "si ninguno de los anteriores") hace la acción de contradecir, por llamarlo de algún modo.
    Explico todo el código de una.

    Dim MensajeTexto As Integer
            MensajeTexto = MsgBox("click para testear", vbYesNoCancel + vbExclamation)
            If MensajeTexto = 6 Then
                MsgBox("Has clickeado en SI")
            ElseIf MensajeTexto = 7 Then
                MsgBox("Has clickeado en NO")
            Else
                MsgBox("Has clickeado en Cancelar.")
            End If
    

    Esto hace, que cuando le des al botón al que tiene asignado este código aparezca un mensaje de texto que pondrá: Click para testear, con 3 opciones: Si, No, y cancelar.
    Si pulsas si te aparecerá una ventana diciendo: Has clickeado en SI.
    Si pulsas No, te saldrá una ventana diciendo: Has clickeado en NO.
    Pero si las 2 de las anteriores son falsas(por descarte queda Cancelar) te dirá: Has clickeado en Cancelar.

    En vez de ponerle MsgBox podríamos hacer un remake y hacerlo a nuestro gusto.
    Por ejemplo al mio 😛

    Dim MensajeTexto As Integer
            MensajeTexto = MsgBox("¿Realmente desea salir?", vbYesNo + vbExclamation)
            If MensajeTexto = 6 Then
                close()
            ElseIf MensajeTexto = 7 Then
            End If
    

    Es sencillo, si quieres que alguno de los botones de vbYesNo no haga ninguna función, déjelo en blanco.

  • La verdad me ha gustado mucho tu pequeño tutorial te enseña un poco a usar las parte vbyesnocancel,vbyesno,etc y todo eso 😃 espero mas tutoriales

Log in to reply