• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

duduml

Programar o botão fechar de uma janela

14 mensagens neste tópico

Boas pessoal,

da para programar o botão fechar de uma janela??

Como?

CUMPS

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Se queres fazer algo quando o form fecha usa os eventos FormClosing e/ou FormClosed.

É te possível cancelar o fecho, determinar a causa do fecho e para além disso é uma sub. Podes codar o que te bem apetecer.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Se queres fazer algo quando o form fecha usa os eventos FormClosing e/ou FormClosed.

É te possível cancelar o fecho, determinar a causa do fecho e para além disso é uma sub. Podes codar o que te bem apetecer.

sim é isso, mas como faço isso???

já andei a ver propriedades e essas coisas, mas nada...

o que eu quero é que ao carregar nessa botão apareça uma mensagem...

CUMPS

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ups...

esquece!

nao reparei no que escreves-te...."eventos"---xD

ja la vou!

CUMPS

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ribeiro, eu tenho esta programaçãonum botão que fiz de logout

Dim resultado As MsgBoxResult
        resultado = MsgBox("Tem a certeza que deseja terminar a sua sessão?", MsgBoxStyle.YesNoCancel, "Terminar sessão")
        If resultado = vbYes Then
            MsgBox("Acção confirmada, irá encerrar a sua sessão!", MsgBoxStyle.Information, "Terminar sessão")
            Try
                Me.Close()
                Dim form As New LoginForm1
                form.Show()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Else
            MsgBox("Operação cancelada!", MsgBoxStyle.Information, "Terminar sessão")
        End If

coloquei isto no evento closing da janela mas esta sempre a repetir a pergunta...ou seja, basicamente é porque esta sempre a correr...porquê??

eu ja la pus isto e outras coisas mas nada...

Dim resultado As MsgBoxResult
        resultado = MsgBox("Tem a certeza que deseja terminar a sua sessão?", MsgBoxStyle.YesNoCancel, "Terminar sessão")
        If resultado = vbYes Then
            MsgBox("Acção confirmada, irá encerrar a sua sessão!", MsgBoxStyle.Information, "Terminar sessão")
            Try
                Me.Close()
                Dim form As New LoginForm1
                form.Show()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Else
            MsgBox("Operação cancelada!", MsgBoxStyle.Information, "Terminar sessão")
            Exit Sub
        End If

CUMPS

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Está sempre a repetir porque tu dentro do evento de fecho estás a mandar fechar novamente (Me.Close()), o que dispara novamente o FormClosing.

Se queres que o form feche, a partir do formclosing não ponhas, simplesmente nada. Porque a fechar já ele está.

Se quiseres cancelar o fecho do form, usa e.cancel=true.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

aparece isto:

Error 1 'cancel' is not a member of 'System.EventArgs'. C:\Documents and Settings\Eduardo.DUDUML\Ambiente de trabalho\Eduardo Silva\Gestão de Stocks\Gestão de Stocks\MDIParent1.vb 329 13 Gestão de Stocks

como faço??

CUMPS

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

esquece....estava a programar no sitio errado..:S

nao estou nos meus dias...

ja coloco a solução final...

CUMPS

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

 Dim resultado As MsgBoxResult
        resultado = MsgBox("Tem a certeza que deseja terminar a sua sessão?", MsgBoxStyle.YesNoCancel, "Terminar sessão")
        If resultado = vbYes Then
            MsgBox("Acção confirmada, irá encerrar a sua sessão!", MsgBoxStyle.Information, "Terminar sessão")
            Try
                Dim form As New LoginForm1
                form.Show()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Else
            MsgBox("Operação cancelada!", MsgBoxStyle.Information, "Terminar sessão")
            e.Cancel = True
        End If

Obrigado!

CUMPS

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

4x post? existe um botão para editares os teus post.. :S

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

lool

pois...xD

mas pronto..

olha, então viste aquilo?

CUMPS

0

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