COMO APARECE UM FORM CLICANDO NO X ( SAIR )
Olá boa tarde estou a tentar que o formulário (Flink) volte a aparecer quando clico no boato x de saída
caso a resposta for não ele volta a mostrar o formulário se for sim sai normalmente mas não estou a conseguir.
Deixo aqui o código para poder ser ajudado.
Grato desde já pela vossa atenção.
Vítor Teles
caso a resposta for não ele volta a mostrar o formulário se for sim sai normalmente mas não estou a conseguir.
Deixo aqui o código para poder ser ajudado.
Grato desde já pela vossa atenção.
Vítor Teles
Private Sub FLink_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim respostaSairLogInLogIn As Integer
respostaSairLogInLogIn = MsgBox("Tem a certeza que deseja sair?", vbYesNo + vbQuestion, "Confirmação")
If respostaSairLogInLogIn = vbNo Then
Me.Show()
Me.TextBox1.Focus()
'Exit Sub
Else
Me.Timer1.Enabled = False
Me.Contagem.Enabled = False
Me.NotifyIcon1.Visible = False
If ObjFuncoes.ExisteFicheiro(ObjFuncoes.GetAppPath & Me.ID_Ficheiro.Text & ".Fbd") = True Then
Dim ObjRedoma As Redoma = New Redoma(Me.ID_X.Text)
ObjRedoma.Iniciar_Bloqueio(ObjFuncoes.GetAppPath & Me.ID_Ficheiro.Text & ".Fbd", ObjFuncoes.GetAppPath & Me.ID_Ficheiro.Text & ".Mep")
'Exit Sub
Application.DoEvents()
Application.Exit()
End If
End If
End Sub
Alterado em 24/10/2025 18:59:34
If MsgBox("Sair ?", vbQuestion + vbYesNo, "Confirmação") = vbNo Then
e.Cancel = True
Exit Sub
End If
Faça seu login para responder