MSGBOX COM YES, NO E CANCEL

FBUR 03/02/2011 11:40:28
#364215
bom dia!

Se tenho uma msgbox com Yes, No e Cancel, como fazer para codificar os três eventos??

ex:


    If MsgBox([Ô]teste[Ô], vbYesNoCancel, [Ô]teste[Ô]) = vbYes Then
        
        MsgBox [Ô]clicou SIM[Ô]
    
    ElseIf ????????????? Then
    
        MsgBox [Ô]clicou CANCELAR[Ô]
    
    Else
        
        MsgBox [Ô]clicou NÃO[Ô]
    
    End If


Como identificar quando clico no botão CANCELAR???

[ ]'s
SAMUKA 03/02/2011 11:47:09
#364219 Resposta escolhida 

Dim resp As VbMsgBoxResult

resp = MsgBox([Ô]Pergunta?[Ô], vbQuestion + vbYesNoCancel, [Ô]Titulo[Ô])
If resp = vbYes Then
    msgbox [Ô]Clicou SIM[Ô]
elseIf resp = vbNo then
    msgbox [Ô]Clicou NÃO[Ô]
else
    msgbox [Ô]Clicou Cancelar[Ô]
end if
XXXANGELSXXX 03/02/2011 11:47:47
#364222
elseIf MsgBox([Ô]teste[Ô], vbYesNoCancel, [Ô]teste[Ô]) = vbcancel Then
JONATHANSTECKER 03/02/2011 11:47:55
#364223 
Select Case MsgBox([Ô]teste[Ô], vbYesNoCancel, [Ô]teste[Ô])
   Case vbYes
       MsgBox [Ô]clicou SIM[Ô]
   Case vbNo
       MsgBox [Ô]clicou NÃO[Ô]
   Case vbCancel
       MsgBox [Ô]clicou Cancelar[Ô]
End Select
JONATHANSTECKER 03/02/2011 11:49:19
#364226
Ai [txt-color=#0000f0]FBUR[/txt-color],

Pode escolher... 4 respostas diferentes que chegam ao mesmo resultado!
SAMUKA 03/02/2011 11:49:36
#364227
Sempre identifique o retorno do MsgBox qdo for utilizar, só isso melhora visualmente o código.

 Dim resp As VbMsgBoxResult
PARREIRA 03/02/2011 11:55:14
#364229
ret = MsgBox([Ô]Teste[Ô], vbQuestion + vbYesNoCancel + vbDefaultButton3, [Ô]Nome[Ô])

If ret = 6 Then
MsgBox [Ô] Yes[Ô]
ElseIf ret = 7 Then
MsgBox [Ô] Não[Ô]
Else
MsgBox [Ô]Cancelar[Ô]
End If
Tópico encerrado , respostas não são mais permitidas
Voltar