Ir para o conteúdo
Ridelight

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

Mensagens Recomendadas

Ridelight    8
Ridelight

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".

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade