Jump to content

Pergunta Simples vb 2005


Pt Freelancer
 Share

Recommended Posts

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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 😁

Link to comment
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
 Share

×
×
  • 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.