Programar msgbox los botones si no

Algún experto me puede decir como programar los botones de si y no de un msgbox,

Me estoy peleando para encontrar la solución pero no lo consigo.

Respuesta

Los botones se utilizan, pero no se manipulan se puede conocer que botón ha sido pulsado (como respuesta del MsgBox) y con cualquiera de las opciones de toma de decisiones (IF, Case ...) se actúa en consecuencia.

Un ejemplo básico con tres botones (o su nemotécnico: VbYesNoCancel <==> 3):

Private Sub Comando38_Click()
Dim rpt
rpt = MsgBox("dime algo", 3)
Select Case rpt
    Case vbYes ' vbYes = 6
        MsgBox "lo has confimado"
    Case vbNo ' vbNo = 7
        MsgBox "lo has rechazado"
    Case vbCancel 'vbCancel = 2
        MsgBox "te es indiferente"
    End Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas