Unload Form

[Luiz Humberto]

If MsgBox("Deseja Sair do Programa ?", vbYesNo + vbInformation, "Mutuário") = vbYes Then

Unload Me

Else

Exit Sub

End If

só que mesmo escolhendo a opção não ele sai do form, agora usando um botão ele funciona corretamente.

[Deborah]

Olá Luiz Humberto...

Sua dúvida é bem simples. Neste caso você vai ter que criar uma variável do tipo inteira e igualá-la ao seu msgbox. Aí, utilizando essa variável inteira, você verifica se ela é igual a vbYes ou vbNo. Assim:

dim n as integer

n = msgbox("Sair?", vbOkCancel, "Titulo")

if n = vbOk then

unload me

else

exit sub

end if

Boa sorte!

Déborah.

[PiGmEu]

Salve Brother Luiz!

Bom.. sua duvida eu acho q é a seguinte

voce quer saber so se é o SIM OU não.. se for SIM fecha.. se for não.. ele não faz nada.. continua rodando o programa normalmente certo??

então tente tirar o seu ELSE apenas.. deixando so o IF

assim:

If MsgBox("Deseja Sair do Programa ?", vbYesNo + vbInformation, "Mutuário") = vbYes Then
     Unload Me
End If

[Luiz Humberto]

Gustavo,

Já tinha tentado isto mas não funcionou.

[William Rodrigues]

Brother...

Tenta assim...

If MsgBox("Deseja Sair ?", vbQuestion + vbYesNo, "Pergunta") = vbYes Then
Unload Me
Else
Cancel = False
End If

Abraços,

William Rodrigues

[Luiz Humberto]

Willian,

valeu só uma notificação no cancel tem que ser igual a true.

[William Rodrigues]

Ah.. sim é mesmo

É que eu tinha feito a verificação com VBNO, mas depois mudei para VBYES e acabei esquecendo de mudar embaixo também.

Valeu cara...

Até mais