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

zephirus

[Resolvido] Windows não desliga enquanto aplicação está a correr!

7 mensagens neste tópico

Olá,

Tenho uma aplicação que corre na área de notificação (ao pé do relógio). O problema é que quando faço shutdown ou restar ao windows, o pc não desliga nem reinicia porque a minha aplicação ainda está a correr! Como é que faço para que isto não aconteça, ou seja, que o shutdown do windows passe por cima do meu programa.

Parte do meu código:

Private Sub frm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.Closing

	Select Case sair
		Case = True				
		Case Else
			Me.WindowState = FormWindowState.Minimized
			Me.Visible = False
			e.Cancel = True
	End Select

    End Sub

NOTA: O Case Else é para que quando eu clico na cruz da aplicação, ela não feche, mas minimize para a área de notificação.

Obrigado desde já.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá,

Tenho uma aplicação que corre na área de notificação (ao pé do relógio). O problema é que quando faço shutdown ou restar ao windows, o pc não desliga nem reinicia porque a minha aplicação ainda está a correr! Como é que faço para que isto não aconteça, ou seja, que o shutdown do windows passe por cima do meu programa.

Parte do meu código:

Private Sub frm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.Closing

	Select Case sair
		Case = True				
		Case Else
			Me.WindowState = FormWindowState.Minimized
			Me.Visible = False
			e.Cancel = True
	End Select

    End Sub

NOTA: O Case Else é para que quando eu clico na cruz da aplicação, ela não feche, mas minimize para a área de notificação.

Obrigado desde já.

Acho que tens de fechar a aplicação através de

me.exit

ou então arranjar maneira de apagar o serviço do sistema..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Mas eu não quero sair do programa. Eu quero é que o windows feche sem ter de eu fechar o programa.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tens de dizer à tua aplicação que quando for o windows a pedir o encerramento, para ela fechar, assim:

Private Sub frm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.Closing
      If e.CloseReason = CloseReason.WindowsShutDown Then
       sair = True
      End IF
      Select Case sair
         Case = True            
         Case Else
            Me.WindowState = FormWindowState.Minimized
            Me.Visible = False
            e.Cancel = True
      End Select
      
    End Sub

Edit: Adaptei o codigo para ti.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Muito obrigado Weasel!!! É isto mesmo. Só outra coisa, eu suponho que quando peço para reiniciar o windows, terei o mesmo problema. Posso se calhar escolher outra "CloseReason", mas não há nada geral?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Penso que irá funcionar na mesma, é questão de testares.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Penso que irá funcionar na mesma, é questão de testares.

Já testei Weasel. Está a funcionar. Obrigado.

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