Variable Mensajes encadenados [vb2008]

Anghios

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.

Gabito

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