MsgBox Yes No question

Question

Bonjour, je voudrais savoir le code pour un bouton quitter...je voudrais une validation oui ou non... quand je code, que je fasse oui ou non, le programme quitte quand meme.



Private 
Sub btnquitter_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles btnquitter.Click



Dim quitter 
As MsgBoxResult


MsgBox("Voulez-vous vraiment quitter?", MsgBoxStyle.YesNo, "Fermeture")



If quitter.Yes 
Then



Me.Close()



Else



End 
If



End 
Sub

Voila ce que j'avais cod&#233;....qu'est-ce qui manque? 

Bruno

mrdep1978 · Answer

Hmm.. &#231;a ressemble &#224; du VB .net.
J'ai la r&#233;ponse mais en VB6, alors &#224; toi d'adapter :
Il semble manquer qqe chose comme
quitter = MsgBox("Voulez-vous vraiment quitter?", MsgBoxStyle.YesNo, "Fermeture")

mythic_kruger · Answer

J' utilise ce code en VB6 dans une application distribu&#233;e aux USA:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'On Error GoTo erreur
    If MsgBox("Close Program?", vbOKCancel + vbQuestion) = 2 Then
        Cancel = 1
    Else
      end
   end if
End Sub

crenaud76 · Answer

Tu n'affecte aps la valeur de retour de Msgbox() a ta variable Quitter !!

Christophe R

cs_corsica · Answer

Encore + simple :
If MsgBox("Close Program?", vbYesNo ) = vbYes  Then End


<HR>

NotSoBad en : VB / ASP / SQL / VBS / VBA / JSP
D&#233;butant : JavaScript / Java / XML / Delphi

MsgBox Yes No question

4 réponses

Discussions similaires