problème pour créer une condition de msgboxRésolu

Question

Bonjour
Je rencontre un problème avec mon code, en fait j'aimerai créer une msgbox où l'on pourrait grâce à la procédure call être renvoyée en fonction de la réponse donné(vbok ou vbno dans mon cas).
Private Sub test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim reponse As Boolean
        Me.txt_reponse.Text = ""
        reponse = MsgBox("voulez vous continuer?", vbYesNo, "Continuer?")
        If reponse vbOK Then Call txt_reponse Else If reponse vbNo Then Call arret()
    End Sub

ucfoutu · Accepted Answer

Bonjour,
Pas mal (!) ta msgbox avec le pamamètre VbYesNo(6 ni yes et 7 si No) et l'utilisation, dans l'expression conditionnelle, de la valeur du paramètre VbOk (= 1) 
Un peu de sérieux, s'il te plait.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Tout de même !
C'est comme si tu disais à ton copain :
quelle couleur choisis-tu de ces deux-là ? le bleu ou le rouge ?
et qu'ensuite tu décidais :
s'il a choisi le vert (), alors ... sinon ...


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

cs_Trim · Answer

Bonjour,

Msgbox ne renvoie pas de boolean.

En VB6, Msgbox renvoie un Integer avec un numéro correspondant à la réponse.

vbOk 	        1 	OK
vbCancel 	2 	Annuler
vbAbort 	3 	Abandonner
vbRetry 	4 	Réessayer
vbIgnore 	5 	Ignorer
vbYes         	6 	Oui
vbNo 	        7 	Non

PTuner · Answer

merci les gars! :)

CHOURAN · Answer

CODE


   Dim Msg, Style, Title, Help, Ctxt, Response, MyString
   Msg = "Voulez Vous Supprimer Photo De La Source...?"
   Style = vbYesNo + vbCritical + vbDefaultButton2
   Title = "TEST"
   Help = "DEMO.HLP"
   Ctxt = 1000
   Response = MsgBox(Msg, Style, Title, Help, Ctxt)
   If Response = vbYes Then       Else    


RACHID CHOURAN

Problème pour créer une condition de msgbox

5 réponses

Votre réponse

Discussions similaires