Pergunta Simples vb 2005

[Pt Freelancer 0]

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 6]

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 0]

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

[deathseeker25 6]

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 5]

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

[Pt Freelancer 0]

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 1]

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 0]

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 0]

@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 2]

@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 0]

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 0]

@Tiago Salgado tens razao pesso desculpa

[UnKnowN 0]

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

[Pt Freelancer 0]

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

[UnKnowN 0]

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 5]

@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 0]

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 1]

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 0]

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

[Bastos 0]

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

[psiico 1]

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

nao sei,pk a acçao decorre no form_unload ou seja, no form ao "descarregar" V(ou) "desaparecer" por isso, axo k nao fechava sem perguntar pk podem ter isto:

If MsgBox("Deseja mesmo sair?", vbQuestion + vbYesNo, "Confirmação de saida") = vbYes Then
        End
    Else
        
    End If

o else sem nada, para o nao ( k devia ser cancel = true) e dá na mesma, como se tivesse o cancel = true, a acçao é a mesma...

[Bastos 0]

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

nao sei,pk a acçao decorre no form_unload ou seja, no form ao "descarregar" V(ou) "desaparecer" por isso, axo k nao fechava sem perguntar pk podem ter isto:

If MsgBox("Deseja mesmo sair?", vbQuestion + vbYesNo, "Confirmação de saida") = vbYes Then
        End
    Else
        
    End If

o else sem nada, para o nao ( k devia ser cancel = true) e dá na mesma, como se tivesse o cancel = true, a acçao é a mesma...

entao estas-m a dar razao... lool

se ele ja esta n acçao sair, ou seja ja esta a descarregar se escolhes nao ele n encontra nenhuma acção a dizer pra parar de fechar, correcto??

entao fecha, quer escolhas sim ou nao! entende isto como as gasolineiras! loool

se o preço do petroleo sobe, os media perguntam se estamos de acordo, mas ker digas sim ou nao ele sobe na mesma. pq kando perguntam a acçao (acçao = petroleo a subir) já esta a decorrer... loool, se calhar n foi o melhor exemplo, mas foi o q me ocorreu

pelo menos sempre utilizei o cancel (desde vb6 e continuo )... se der td bem, mas a forma mais correcta penso q é a de utilizar o cancel=true. lol

[UnKnowN 0]

NAO MEUS LAMMES (no gozo)

o Integer é pk em VB 1 ou 0 é igual a True ou False, respectivamente

Lembrei-me depois ...

[psiico 1]

kek tem "haver o cu com as calças"?? pah, é nakela isso..mas s calhar tens razao...

[UnKnowN 0]

kek tem "haver o cu com as calças"?? pah, é nakela isso..mas s calhar tens razao...

Penso que tenha ... mas se calhar estou redondamente enganado ...