themik
Messages postés40Date d'inscriptionlundi 17 janvier 2005StatutMembreDernière intervention10 novembre 2006
-
21 avril 2006 à 20:21
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 2014
-
21 avril 2006 à 20:54
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ée ?
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 21 avril 2006 à 20:54
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, "Êtes-vous sûr ?"
If response = vbNo Then
Cancel = True
End If
themik
Messages postés40Date d'inscriptionlundi 17 janvier 2005StatutMembreDernière intervention10 novembre 2006 21 avril 2006 à 20:36
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, "Êtes-vous sûr ?"
If response = vbYes Then
Else
Exit Sub
End If
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 21 avril 2006 à 20:40
Bonne piste
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'Confirmation
MsgBox ("Voulez-vous vraiment quitter le chat ?"), vbYesNo, "Êtes-vous sûr ?"
If response = vbYes Then
exit sub
Else
Cancel = True
Exit Sub
End If
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 21 avril 2006 à 20:45
Et tu peux même l'amélioré en :
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'Confirmation
MsgBox ("Voulez-vous vraiment quitter le chat ?"), vbYesNo, "Êtes-vous sûr ?"
If response = vbNo Then
Cancel = True
End If
Sim 2005
Messages postés86Date d'inscriptiondimanche 1 mai 2005StatutMembreDernière intervention18 juillet 2009 21 avril 2006 à 20:47
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