VB Comment récuperer une variable?

Question

Bonjour, Je suis débutant en VB, je sais pas si mon poste va bien dans ce thème, désolé si ce n'est pas le cas. J'ai crée un jeu de quizz mais je voudrai que l'on indique le score en cours obtenu si l'on quitte le quizz avant d'avoir terminé toutes les question. Je voudrai savoir comment récupérer ma variable "nbBonneRep" de mon bouton "suivant" dans mon bouton "quitter". Je voudrai que l'on affiche "voulez vous vraiment quitter le jeu? Vous avez pour le moment "nbBonneRep". Merci d'avance pour vos reponse! Voici le code de mon bouton Quitter et mon bouton Suivant : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuitter.Click If MessageBox.Show("Voulez-vous vraiment quitter le jeu?", "Confirmer", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then Me.Dispose() End If End Sub ____________________________________________________________________ Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuivant.Click Static ind As Integer Static i As Integer Static nbBonneRep As Integer = 0 Call repOk(ind) i = ind + 1 Call affichage(i) If (repOk(ind) = True) Then lbReponse.Items.Insert(index:=i, item:="Question " & ind + 1 & " : Bonne réponse!") nbBonneRep = nbBonneRep + 1 Else lbReponse.Items.Insert(index:=i, item:="Question " & ind + 1 & " : C'est faux...") End If ind = ind + 1 If (i = 10) Then If (nbBonneRep = 10) Then If (MessageBox.Show("BRAVO! Tu es un excellent connaisseur du sport, tu as : " & nbBonneRep & "/10 bonnes réponses!", "Résultat du questionnaire ", MessageBoxButtons.OK) = Windows.Forms.DialogResult.OK) Then Me.Dispose() End If ElseIf (nbBonneRep >= 7 And nbBonneRep < 9) Then If (MessageBox.Show("Pas mal pas mal.. tu t'approches du sans faute avec " & nbBonneRep & " bonnes réponses!", "Résultat du questionnaire ", MessageBoxButtons.OK) = Windows.Forms.DialogResult.OK) Then Me.Dispose() End If ElseIf (nbBonneRep >= 4 And nbBonneRep < 7) Then If (MessageBox.Show("C'est moyen tout ça! Tu as " & nbBonneRep & " bonnes réponses", "Résultat du questionnaire ", MessageBoxButtons.OK) = Windows.Forms.DialogResult.OK) Then Me.Dispose() End If ElseIf (nbBonneRep >= 0 And nbBonneRep < 4) Then If (MessageBox.Show("OULALA! Tu es vraiment un inculte au sport... Tu as " & nbBonneRep & " bonnes réponses..! ", "Résultat du questionnaire ", MessageBoxButtons.OK) = Windows.Forms.DialogResult.OK) Then Me.Dispose() End If End If End If End Sub

Mayzz · Answer

Qu'est ce que tu n'arrives pas à faire au juste ? Afficher le messagebox ? Pourtant tu l'as bien fait pour le reste, je ne pige pas la...

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

oliviertang · Answer

En faite dans la message box je veux qu'il affiche : "Voulez vous vraiment quitter le programme? Vous avez pour le moment xxx bonne réponse
et en faite j'arrive pas a récupéré ma variable "nbBonneRep" de mon bouton "Suivant" pour faire cet affichage.

VB Comment récuperer une variable?

2 réponses

Votre réponse

Discussions similaires