Pergunta Simples vb 2005

[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

[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

[Pt Freelancer]

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

[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. 😉

[David Pintassilgo]

IAAAA,..eu tb gostama muito de saber isso mas era pra VB6 nos form's.

[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

[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

[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

[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?

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

[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

[Pt Freelancer]

@Tiago Salgado tens razao 😄 pesso desculpa 🙂

[UnKnowN]

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

[Pt Freelancer]

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

[UnKnowN]

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

Agr até parecia um Moderador a falar 🙂

[vbmaster]

@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?

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

[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 😁

[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

[UnKnowN]

Ya , mas a parte do -> cancel As Integer ... :\

[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