Confirmation de fermeture d'un form [Visual Basic 6.0]Résolu

Question

Si je veux faire une confirmation de fermeture, quand je click sur le X, il me demande oui et non, si je clique sur Non je veux pas quil se ferme... kk1 a un id&#233;e ?

Merci d'avance...

cs_casy · Accepted Answer

Oupss, pardon, j'avais pas fait gaffe :

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
dim response as integer
'Confirmation
response = MsgBox ("Voulez-vous vraiment quitter le chat ?"), vbYesNo, "&#202;tes-vous s&#251;r ?"
If response = vbNo Then
    Cancel = True
End If

Sim 2005 · Answer

Vb g&#232;re l'&#233;vennement close d'une form.
A l'int&#233;rieur tu mets une MsgBox &#224; deux options. Si on r&#233;pond non, exit sub sinon on laisse l'app se fermer

Sim 2005 · Answer

regarde les events de la form

cs_casy · Answer

Possible, il peut exister quelques astuces, tout d&#233;pend comment tu gere la fermeture de ta form.

Met nous ton bout de code qui gere le click sur le X et la demande de confirmation.

Pour l'instant, tel que tu le pr&#233;sente on est un peut dans le flou pour t'aider.

themik · Answer

J'ai mis sa dans mon programme sauf ki quit pareil...

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'Confirmation
MsgBox ("Voulez-vous vraiment quitter le chat ?"), vbYesNo, "&#202;tes-vous s&#251;r ?"
If response = vbYes Then
Else
    Exit Sub
End If

cs_casy · Answer

Bonne piste 

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'Confirmation
MsgBox ("Voulez-vous vraiment quitter le chat ?"), vbYesNo, "&#202;tes-vous s&#251;r ?"
If response = vbYes Then
    exit sub
Else
    Cancel = True
    Exit Sub
End If

cs_casy · Answer

Et tu peux m&#234;me l'am&#233;lior&#233; en :

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'Confirmation
MsgBox ("Voulez-vous vraiment quitter le chat ?"), vbYesNo, "&#202;tes-vous s&#251;r ?"
If response = vbNo Then
    Cancel = True
End If

&#231;a fait plus propre

Sim 2005 · Answer

et en VB .NET
Public Class Form1


 


   


    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim a As Integer = MessageBox.Show("Are you sure?", "Confirmation.", MessageBoxButtons.OKCancel, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly, False)
        If a = 2 Then
            e.Cancel = True
        End If
    End Sub
End Class

themik · Answer

ma variable vbyes ou vbno = 6 pis response est empty... c koua la ?

Confirmation de fermeture d'un form [Visual Basic 6.0]

9 réponses

Discussions similaires