capturar valores de un MsgBox

Iniciado por mapers, 7 Agosto 2011, 09:45 AM

0 Miembros y 1 Visitante están viendo este tema.

mapers

Desearia capturar los valores de un MsgBox de este tipo

Código (vb) [Seleccionar]

MsgBox "¿Se retorna a la ventana de inicio?", vbYesNoCancel + vbQuestion, "Confirmación"

capturar cuando le da si ,no y cancelar y poder manipular el evento con estos valores gracias 

mapers

Solucionado dejo la respuesta para otros que tengan duda

Código (vb) [Seleccionar]

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 27 Then
Dim Mensaje, Botones, Titulo, Respuesta
Mensaje = "¿Desea salir?"
Botones = vbYesNo + vbQuestion + vbDefaultButton2
Titulo = "Escape"
Respuesta = MsgBox(Mensaje, Botones, Titulo)
If Respuesta = vbYes Then
Mostrar1.Visible = False

Else

End If
End If
End Sub

x64core

buenas yo dejo otra forma de hacerlo ;D

Código (vb) [Seleccionar]
Dim respuesta As Integer

respuesta = MsgBox("que decea hacer?", vbYesNoCancel, "titulo")
Select Case respuesta
    Case vbYes
        Debug.Print "elegidio yes"
    Case vbNo
        Debug.Print "eligio no"
    Case Else
        Debug.Print "cancelar"
End Select