Jump to content
Sign in to follow this  
Pt Freelancer

Pergunta Simples vb 2005

Recommended Posts

Pt Freelancer

Sou novo neste forum por isso espero tar a fazer o post no sitio certo, s n o tou a fazer pesso desculpa lol

Bem a minha pergunta e simples, em vb 2005 como e q eu posso criar uma msgbox para quando o utilizar carregar no botao de fechar (o botao da janela a tal famosa cruzinha) a dizer s o utilizador quer sair ou n.

obrigado

Share this post


Link to post
Share on other sites
deathseeker25

Boas,

Em primeiro lugar, bem-vindo ao forum Pt Freelancer. Sobre VB e VB.NET tens a secção respectiva mais abaixo. :) Assim sendo, vou mudar o tópico para o local correcto.  :)

Cumps

Share this post


Link to post
Share on other sites
deathseeker25

Ok Obrigado :) sei bem como e chato ter post em sitios errados :)

Sem problemas. Mais cedo ou mais tade algum entendido em VB virá dar uma ajuda. ;)

Share this post


Link to post
Share on other sites
Pt Freelancer
IAAAA,..eu tb gostama muito de saber isso mas era pra VB6 nos form's.

pois e q e chato ter um botão no form q faz isso e depois a cruzinha n o faz lol

Share this post


Link to post
Share on other sites
M@KO

Oi!!! Em VB6 é com este codigo:


Private Sub Form_Unload(cancel As Integer)
    If MsgBox("Você tem certeza que deseja sair?", vbQuestion + vbYesNo, "Agenda") = vbYes Then
        End
    Else
        cancel = True
    End If
End Sub

Esperimenta em VB5 a ver se da

Share this post


Link to post
Share on other sites
Chicomaravilha

Em Vb.net o código é este.

    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If MsgBox("Quer mesmo sair?", MsgBoxStyle.OKCancel, "Quer sair") = MsgBoxResult.Yes Then
            End
        Else
            e.Cancel = True
        End If

    End Sub

Penso que também tinha sido pedido a solução em VB.Net

Caso eu esteja engandao podem retirar o post.

Cumprimentos

Share this post


Link to post
Share on other sites
Pt Freelancer

@Chicomaravilha

Obrigado :) e quase esse codigo, o codigo certo e

    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If MsgBox("Quer mesmo sair?", MsgBoxStyle.OKCancel, "Quer sair") = MsgBoxResult.Yes Then
            End
        End If

    End Sub

A razão e simples, n podes por no else e.Cancel = True pois assim estarias a anular o q escreveste em cima, so mais uma coisa, quando eu carreguei deu um som, podes me dizer como e q ele s mete noutros command buttons?

Share this post


Link to post
Share on other sites
Tiago Salgado

@Chicomaravilha

Obrigado :) e quase esse codigo, o codigo certo e

    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If MsgBox("Quer mesmo sair?", MsgBoxStyle.OKCancel, "Quer sair") = MsgBoxResult.Yes Then
            End
        End If

    End Sub

A razão e simples, n podes por no else e.Cancel = True pois assim estarias a anular o q escreveste em cima, so mais uma coisa, quando eu carreguei deu um som, podes me dizer como e q ele s mete noutros command buttons?

Anular o que escreveu em cima ? Não percebi, e o código que o chico pos tá correcto, porque sem esse "else" mesmo que carregues em "Não", ele irá sempre fechar, daí precisar do "e.Cancel = True".

Share this post


Link to post
Share on other sites
freesumo

Em VB5 podes fazer isso com este código:

Private Sub Form_Unload(Cancel As Integer)
    Cancel = 1
    If MsgBox("Deseja terminar a aplicação?", vbQuestion + vbYesNo, "Fechar ?") = vbYes Then End
End Sub

Share this post


Link to post
Share on other sites
UnKnowN

Off-Topic: Pt Freelancer, na tua sign falta-te a TAG [/img] para aparecer a img do Futurama :D

Share this post


Link to post
Share on other sites
Pt Freelancer

pois, so agora e q notei q a signature so da para ter 300 caracteres :D

Share this post


Link to post
Share on other sites
UnKnowN

Ok, entao ja estas esclarecido. Acaba aki o Off-Topic agradeço que nao respondam mais a isto :D

Agr até parecia um Moderador a falar :)

Share this post


Link to post
Share on other sites
vbmaster

@Chicomaravilha

Obrigado :P e quase esse codigo, o codigo certo e

    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If MsgBox("Quer mesmo sair?", MsgBoxStyle.OKCancel, "Quer sair") = MsgBoxResult.Yes Then
            End
        End If

    End Sub

A razão e simples, n podes por no else e.Cancel = True pois assim estarias a anular o q escreveste em cima, so mais uma coisa, quando eu carreguei deu um som, podes me dizer como e q ele s mete noutros command buttons?

Esse código é o usado em vb.net 2005 :cheesygrin:

Share this post


Link to post
Share on other sites
UnKnowN

Oi!!! Em VB6 é com este codigo:


Private Sub Form_Unload(cancel As Integer)
    If MsgBox("Você tem certeza que deseja sair?", vbQuestion + vbYesNo, "Agenda") = vbYes Then
        End
    Else
        cancel = True
    End If
End Sub

Esperimenta em VB5 a ver se da

Nao percebi o porquê do cancel As Integer e do Else cancel = True ... já que nao existe cancel só Yes ou No (ou o cancel significa cancelar o Fexo?)

Plz Explain :cheesygrin:

Share this post


Link to post
Share on other sites
psiico

eu axo k sim, que o cancela a acçao que esta a decorrer no momento, neste caso "aborta" o end do programa,mas nao sei, s clhar tou a dizer a maior barbaridade do mundo,lool! tou a flar nakela, mesmo.. mas alguem experiente, esclarece-t

Share this post


Link to post
Share on other sites
Bastos

se nao tiver o cancel=true ele fecha o form quer respondas sim ou nao.

axo q daki a pouco isto vai a votos :s

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.