63 - MSGBOX limitado?

Los MSGBOX son cuadros de mensaje que nos permiten mostrar un mensaje y un par de botones para tomar alguna decisión al respecto.

Por ejemplo:

Pero ante la imposibilidad de mostrar más botones, o de personalizar los textos de los mismos, utilizaremos un pequeño objeto del tipo Userform para simular justamente el uso de un MsgBox.

En este modelo de ejemplo, colocamos un control Label donde mostramos el mensaje. Y cuatro controles del tipo CommandButton para ejecutar las distintas opciones. Cada botón dentro del formulario tendrá una instrucción para llamar a su proceso.

Private Sub CommandButton1_Click()

'MsgBox "A continuación se procede a GUARDAR la factura.", , "Información"

Call GuardaFact

End Sub

 

Private Sub CommandButton2_Click()

Call ImprimeFact

End Sub

Private Sub CommandButton3_Click()

Call CopiaFact

End Sub

 

Private Sub CommandButton4_Click()

Unload Me

End Sub 

Y los diferentes procesos los dejaremos en un módulo, junto con las instrucciones para llamar al Userform:

Sub llamaUF()

UserForm1.Show

End Sub

 

Sub GuardaFact()

'.... código que guarda la factura

End Sub

 

Sub ImprimeFact()

'.... código que imprime la factura

End Sub

 

Sub CopiaFact()

'.... código que guarda una copia de la factura 

End Sub

Acceso al VIDEO N° 63 desde aquí.