• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Ridelight

[VB6] Caixa de texto a confirmar saida da aplicação

1 mensagem neste tópico

Modo 1

dim terminar as integer
terminar = msgbox("Deseja sair da aplicação?", vbYesNo)
if terminar = vbYes then
end
else
if terminar = vbNo then
msgbox("Clique OK para continuar")
end if
end if

Modo 2

dim terminar as integer
terminar = msgbox("Deseja sair da aplicação?", vbYesNo)
if terminar = vbYes then
end
else
end if

Deverão colocar um destes códigos no evento do botão "Sair".

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora